Check to see if a file exists 2

[Cimso]

How would I write an IF EXIST type statment? I'm need to check if a file exists.

 

[TheInsider]

Use the Dir() function

 

[dm7941]

You can also use the FileSystemObject Object

Set fs = CreateObject("Scripting.FileSystemObject&quot
If fs.fileexists("filename.txt&quot Then

'Insert Code Here

EndIf

David Moore
dm7941@sbc.com

 

[TheInsider]

FSO is overkill in this situation. VB has a built-in function Dir(), which returns the filename if the file exists, or "" if it doesn't. i.e.

If Dir(&quot;C:\Autoexec.bat) <> &quot;&quot; Then ...

 

[MikeCox]

Here's how I do it:

---------------------
Public Function FileExists(File As String) As Boolean
On Error Resume Next
FileExists = (Dir$(File) <> &quot;&quot
On Error Goto 0
End Function

---------------------

Hope that helps!

~Mike

Any man willing to sacrifice liberty for security deserves neither liberty nor security.

-Ben Franklin