Which "it"? The file or folder, referenced in code.
Here are a couple of handy, no UI to fix errors so they run more quickly, utilities to make certain that character string points to a file or folder. The differentiating line is highlighted
Function IsAvailableFolder(Optional FolderWithPath) As Boolean
On Error GoTo IsAvailableFolder_Error
IsAvailableFolder = (GetAttr(FolderWithPath) And vbDirectory) = vbDirectory
GoTo IsAvailableFolder_Exit
IsAvailableFolder_Error:
IsAvailableFolder = False
IsAvailableFolder_Exit:
On Error GoTo 0
End Function
Function IsAvailableFile(Optional FileWithPath) As Boolean
On Error GoTo IsAvailableFile_Error
IsAvailableFile = Not (GetAttr(FileWithPath) And vbDirectory) = vbDirectory
GoTo IsAvailableFile_Exit
IsAvailableFile_Error:
IsAvailableFile = False
IsAvailableFile_Exit:
On Error GoTo 0
End Function
Here are a couple of handy, no UI to fix errors so they run more quickly, utilities to make certain that character string points to a file or folder. The differentiating line is highlighted
Function IsAvailableFolder(Optional FolderWithPath) As Boolean
On Error GoTo IsAvailableFolder_Error
IsAvailableFolder = (GetAttr(FolderWithPath) And vbDirectory) = vbDirectory
GoTo IsAvailableFolder_Exit
IsAvailableFolder_Error:
IsAvailableFolder = False
IsAvailableFolder_Exit:
On Error GoTo 0
End Function
Function IsAvailableFile(Optional FileWithPath) As Boolean
On Error GoTo IsAvailableFile_Error
IsAvailableFile = Not (GetAttr(FileWithPath) And vbDirectory) = vbDirectory
GoTo IsAvailableFile_Exit
IsAvailableFile_Error:
IsAvailableFile = False
IsAvailableFile_Exit:
On Error GoTo 0
End Function
No comments:
Post a Comment