Sr. Le pido de la manera más atenta que cheque en las Faqs antes de preguntar.
2 páginas atras respodí lo mismo:
Function ReportFileStatus(filespec)
Dim fso, msg
Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FileExists(filespec)) Then
msg = filespec & " exists."
Else
msg = filespec & " doesn't exist."
End If
ReportFileStatus = msg
End Function
