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…’
8. Select ‘CheckFileExist’ from the list and click on ‘Ok’ button
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:
What is Pareto Chart? Pareto principle was introduced by Italian Economist Vilfredo Pareto. He stated that 80% of the effects are caused by 20% of the causes. So if we closely monitor and solve 20% of…
VBA Code to Read Outlook Emails Reading emails from Outlook and capture them in Excel file is very common activity being performed in office environment. Doing this activity manually every time is quite boring and…
How to Export Access Data to Excel using VBA Code? Creating a VBA tool in MS Access is always better as compare to MS Excel. MS Access provides better user interface and ability to handle…
VBA Code To Delete All Shapes On A Excel sheet Here is a VBA code which deletes all the shapes from an Excel sheet. Code is simple but you have to be bit careful while…
File Properties Tool is an MS Excel based tool which helps you to get File Name, File Path, Date Created, Date Last Accessed, Date Last Modified, Size (MB) and File Type properties of the files. You just need to browse the folder where your files are and click on ‘Get File Properties’ button.
File Manager tool is an Excel based tool which helps you to delete or move unwanted files from your system. It requires a source and destination folder (in case you want to move files). First it lists all the files available in the folder or sub-folders then you can select the action to be taken for each file such as Move or Delete. With a click of button, tool will take all necessary actions.
GOOD IDEA