Check if a File exist in shared Folder without opening the file

[drom]

Hi and thanks in advance!!

I have this Macro:

Sub Macro1()
  On Error Resume Next
Dim wCell As String:        wCell = ActiveCell
  ThisWorkbook.FollowHyperlink (wCell)
  If Err <> 0 Then
    Debug.Print Err, Err.Description
  End If
End Sub

Is any way of knowing if I am gonna get err <> 0 without using:

ThisWorkbook.FollowHyperlink (wCell)​

Sometimes the Link is gonna be in a Shared folder and the File Address is gonna be something like:

Invoices%20VISADAS%202024/Week%2021/OLIVAR%20EL%20frfrss-%2024A001894%20ABC.pdf​

So I Would like to know if I can Check if I am gonna get the Err Message without opening the file

So If the File exists (No ERR) Good but but:

Otherwise Get the Message



Sometimes the File are gonna be on a PC like:

• D:\ExcelFiless\aaaaaaaaaaaaaaaaPendingJOBS\20ABC.PDF
• X:\File___0001abc.PDF
• E:\Filess\AAA___0001abc.PDF

PS:
I fthe file is in a PC, I know how to act (D: X: E: etc...)

 

[Vogateer]

I use this as a Function just because I like the way it reads as part of an if statement:

Function file_exists(filename As String) As Boolean
    file_exists = Dir(filename) <> ""
    End Function

Add that somewhere, then your code might look like this:

Sub Macro1()
Dim wCell As String:        wCell = ActiveCell
If file_exists(wcell) Then
  ThisWorkbook.FollowHyperlink (wCell)
  End If
End Sub

Or you can avoid that function and just do the test directly:

Sub Macro1()
Dim wCell As String:        wCell = ActiveCell
If Dir(wcell) <> "" Then
  ThisWorkbook.FollowHyperlink (wCell)
  End If
End Sub