Determine If File or Directory Exists

The VBA Macro determines if a file or directory exists.

Explanation

To be able to determine if a file or directory exists can be useful in some coding situations. This code is a straight forward approach that logs if a error occurs when trying to use the GetAttr() if a error occurs then the file or directory clearly does not exist. This function is useful when you want to communicate or write to a certain file and you are uncertain if the file really exists and if you refer the file you might crash the program, thus check if the file exist if it does communicate with the file or terminate the program.

The entire VBA Excel program is available for downloading at the bottom of this page, enjoy!

Code

Public Sub DetermineIfFileDirectoryExists()

Dim DetermineFileExists As Integer
Dim PathOfName As String

Range("C8").Value = ""
Range("C8").Interior.ColorIndex = 0

' If the file does not exist the program will log an error
On Error Resume Next
PathOfName = Range("C5").Value + "\" + Range("C6").Value

DetermineFileExists = GetAttr(PathOfName)

Select Case Err.Number
Case Is = 0
    Range("C8").Value = "The File or Directory Exists"
    Range("C8").Interior.ColorIndex = 4
Case Else
    Range("C8").Value = "The File or Directory does NOT Exists"
    Range("C8").Interior.ColorIndex = 3
End Select

On Error GoTo 0
End Sub

Download excel file! Determine_If_File_Or_Directory_Exists.xls

Add your comment

yvComment v.CommentVersion