Returns a Boolean value that indicates if the parameter is a folder.
Function IsFolder(FolderPath)
IsFolder = False
On Error GoTo ByeBye
If FolderPath > "" Then IsFolder = GetAttr(FolderPath) And vbDirectory ' vbDirectory = 16
ByeBye:
End Function
IsFolder = False
On Error GoTo ByeBye
If FolderPath > "" Then IsFolder = GetAttr(FolderPath) And vbDirectory ' vbDirectory = 16
ByeBye:
End Function
FolderPath
Views 4,475
Downloads 1,302
CodeID
DB ID