H
Heera Chavan
Hi
Below mentioned is my macro.
I want to see an access file is available on a path or not.
Sub team()
Dim mypath As String
Dim Fpath As String
Dim Fname As String
Fpath = ThisWorkbook.Sheets("Team3").Range("A1").Value ' the value is
"C:\Documents and Settings"
Fname = ThisWorkbook.Sheets("Team3").Range("A2").Value ' the value is "Team"
mypath = Fpath & "\" & Fname
If Dir(mypath) = "" Then
MsgBox "Network is disconnect or the required file is not available on
path.", vbInformation
Exit Sub
End If
end sub
Below mentioned is my macro.
I want to see an access file is available on a path or not.
Sub team()
Dim mypath As String
Dim Fpath As String
Dim Fname As String
Fpath = ThisWorkbook.Sheets("Team3").Range("A1").Value ' the value is
"C:\Documents and Settings"
Fname = ThisWorkbook.Sheets("Team3").Range("A2").Value ' the value is "Team"
mypath = Fpath & "\" & Fname
If Dir(mypath) = "" Then
MsgBox "Network is disconnect or the required file is not available on
path.", vbInformation
Exit Sub
End If
end sub