Skip to content

Instantly share code, notes, and snippets.

@engalar
Forked from can3p/FileExists.vba
Created June 23, 2013 00:36
Show Gist options
  • Save engalar/5843243 to your computer and use it in GitHub Desktop.
Save engalar/5843243 to your computer and use it in GitHub Desktop.
Function FileExists(ByVal fname As String) As String
Dim objFSO As Object
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists(fname) Then
FileExists = "1"
Else
FileExists = "0"
End If
End Function
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment