To ensure that your VBA project works smoothly without any error, you need to put lot of error handlers and validations. Here is one of them, below code can be used to check if the given path is valid or not. You just need to provide the path of the file to the function and it will check if the file exist at the location. If it returns True that means the file is available at the path, if it returns False that means it is invalid path or the file does not exist at the location.
'This function checks if given file path is valid or not
'If the function returns True that means file exist
'If the function retunrs False that means file does not exist at given path
Sub CheckFileExist()
Dim lAttributes As Long
Dim strFilePath As String
'Read the file path from Cell B4 and assign to the variable
strFilePath = Sheet1.Range("B4").Value
'Include read-only, hidden and system files
lAttributes = (vbReadOnly Or vbHidden Or vbSystem)
'If last character is slash then remove the same
Do While Right(strFilePath, 1) = "\"
strFilePath = Left(strFilePath, Len(strFilePath) - 1)
Loop
'If Dir returns anything that means the file exist
On Error Resume Next
If (Len(Dir(strFilePath, lAttributes)) > 0) Then
MsgBox "File exist at the location", vbInformation
Else
MsgBox "File does not exist at the location", vbCritical
End If
On Error GoTo 0
End Sub
1. Open an Excel file
2. Press Alt+F11
3. Insert a Module (Insert>Module) from menu bar
4. Paste the code in the module
5. Now add a shape in Excel sheet
6. Give a name to the shape like ‘Check File Exist’
7. Right click on the shape and select ‘Assign Macro…’
9. Done, enter a file path in cell B4 and click on the shape
Hope you liked this article !!
Subscribe our blog for new amazing excel tricks.
Click to below for some more interesting tricks and learning:
Please leave your valuable comments in Comments section:
WEEKDAY function applies to a Date and returns the output for Day of the week. The output of the function varies from 0 to 7
Pie Chart is one of the ways of visual presentation of your data sets. Sometimes it makes easier to understand the data while visualizing.
How to Change TEXT into DATE Format Microsoft Excel “DATEVALUE” is the very useful where dates are available as TEXT and need to convert them to proper DATE format. DATEVALUE function helps to convert the…
Have you ever got into situation in office where you need to count the cells in Excel sheet with specific color? If yes then you can use following code which counts the number of cells…
How to find duplicates in excel? Hope you read the post “Remove Duplicates in Excel”. Now I am going to explain how you can find these duplicates. There are multiple methods available to Find and…
VBA Code to check if folder exist Validation is one of the important parts of any programming language. As per few studies, 60% of the code is focused on validating input or output. In this…
GOOD IDEA