Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations IamaSherpa on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Check a folder contents 1
- Thread starter jorgemc
- Start date
Dim sFilePath as String
sFilePath = 'Folder you want to search
If FileExists(sFilePath & "*.*"
Then
MsgBox "File exists."
else
MsgBox "No files Found."
End if
Public Function FileExists(strPath As String) As Integer
FileExists = Not (Dir(strPath) = ""
End Function
sFilePath = 'Folder you want to search
If FileExists(sFilePath & "*.*"
ThenMsgBox "File exists."
else
MsgBox "No files Found."
End if
Public Function FileExists(strPath As String) As Integer
FileExists = Not (Dir(strPath) = ""
End Function
-
1
- Thread starter
- #3
- Status
