Zhong Wang CAD VBA detects if a file exists

Option Explicit

Private Declare Function pathfileexists Lib "Shlwapi.dll" Alias "Pathfileexistsa" (ByVal Pszpath as String) as Long
Sub C100 ()
Dim S as String
Dim SS as String

s = Dir ("C:\xzh.txt")

Do While Len (s)
SS = "G:\" & S
If pathfileexists (ss) Then
MsgBox "G on disk" & S
End If
s = Dir
Loop
End Sub

The above is the VBA code
Create a Xzh.txt file under the C-Drive and G-Packing directory and then load the VBA program to run it to get the results.

Zhong Wang CAD VBA detects if a file exists