Does published drive in a network exists?

[mrojas]

I backup my back-end database to a computer's published drive on a network. Sometimes, however, this computer is off-line and therefore my backup procedure fails because the specified path does not exists.

This is the backup path: \\DELL800W7\Data2\Backups\MiltonHPlaptop

I know how to check if a drive letter exists, i.e. D:,E:, F: but can't seem to get code to verify \\DELL800W7\Data2\Backups\MiltonHPlaptop path.
This is the code I'm using to find out if a drive exists:

Public Function f_DriveExists(DirectoryPath As String) As Boolean    Dim objFS As Object
    On Error GoTo ErrorTrap
    'Assume it does not
    f_DriveExists = False
    
    Set objFS = CreateObject("Scripting.FileSystemObject")
    'DriveExists returns True or False
    f_DriveExists = objFS.DriveExists(DirectoryPath)
ExitPoint:
    Exit Function
ErrorTrap:
    MsgBox "f_DriveExists: " & Err.Description, vbExclamation, "Error"
    f_DriveExists = False
    GoTo ExitPoint
End Function

[HiTechCoach]

You can use the built in VBA DIR() function to do this.

Here is an example UDF:

Option Compare Database
Option Explicit

Public Function fFolderExists(strFullPath As String) As Boolean
'Author       : Boyd Trimmell aka HiTechCoach at http://www.hitechcoach.com
'Purpose: Check if a folder exists
' Returns: True or False
    
Dim strFolderPath As String

    strFolderPath = strFullPath
    
    ' make sure folder path ends with a \
    If Right(strFolderPath, 1) <> "\" Then strFolderPath = strFolderPath & "\"
    
    On Error Resume Next
    If Not Dir(strFolderPath, vbDirectory) = vbNullString Then fFolderExists = True
    

End Function

Example usage in the immediate windows:

? fFolderExists("\\DELL800W7\Data2\Backups\MiltonHPlaptop")

[mrojas]

Hi HiTechCoach:

Thanks for your suggestion. I tried your code with variations of folder paths (\\somedriveIknowDoesNotExist, \myDrive) and the code although it run, it reported it had found the directory, which I knew did not exist.

[HiTechCoach]

Oops ... Here is code that will handle UNC paths

Public Function fFolderExists(strFullPath As String) As Boolean
'Author       : Boyd Trimmell aka HiTechCoach at http://www.hitechcoach.com
'Purpose: Check if a folder exists
    
Dim strFolderPath As String

    strFolderPath = strFullPath
    
    ' make sure folder path ends with a \
    If Right(strFolderPath, 1) <> "\" Then strFolderPath = strFolderPath & "\"
    
    On Error GoTo Err_handler
    If Not Dir(strFolderPath, vbDirectory) = vbNullString Then fFolderExists = True
    
    
    Exit Function
    
Err_handler:
    If Err.Number <> 52 Then MsgBox Err.Number & " " & Err.Description

End Function