Check if file exist without Dir$()

[newapa]

Hi!

Is there any other way to check if file exist without using dir$() function?

any help i appreciated

thanks in advance

 

[Firefly2012]

You could use the FileSystemObject?

Dim fl As Object

On Error Resume Next
Set fl = CreateObject("scripting.filesystemobject").GetFile("C:\SomeFolder\SomeFile.xlsx")
On Error Goto 0

If fl Is Nothing Then
  MsgBox "File doesn't exist"
Else
  MsgBox "File Does Exist"
End If

 

[newapa]

firefly2012 big thanks.

is there any other way than filesystemobject?

 

[Firefly2012]

There will also be the Windows API route (the FileSystemObject encapsulates the API functions I believe so you could argue you are using them when you use the FileSystemObject).

For what purpose do you wish to avoid Dir?

 

[newapa]

Hi firefly2012 is just for the learning.

i did find out another way to find if file exist or not with getattr(Path & FileName) and have a error handler. if err.number = 53 or err.description = "file not found".