Folder Exists
This function will return True if the directory exists and False if the directory does not exist
Public Function Folder_Exists( _
ByVal sFolderPath As String) As Boolean
Dim sreturn As String
sret = Dir(sFolderPath)
If Len(sreturn) > 0 Then
Folder_Exists = True
Else
Folder_Exists = False
End If
End Function
Public Function Folder_Exists( _
ByVal sFolderPath As String) As Boolean
Dim iTemp As Integer
On Error GoTo AnError
iTemp = GetAttr(sFolderPath)
Folder_Exists = True
Exit Function
AnError:
Folder_Exists = False
End Function
© 2024 Better Solutions Limited. All Rights Reserved. © 2024 Better Solutions Limited TopPrevNext