File Exists or not? Can't use dir() 1

[Werneck]

Hi,

How I can check if a file exists without using the A97 dir() function? I need to check the existence of a possible new file name while on a loop that already uses dir(). The task is to traverse an hierarchy of folders containing sub folders and files, renaming some.

I got the function bellow but don't how to make it work, may be it needs a reference which I couldn't find.

Function FileExistsFSO(sFile As String) As Boolean
Dim fs As FileSystemObject
FileExistsFSO = True
Set fs = CreateObject("Scripting.FileSystemObject&quot
If fs.FileExists(sFile) = False Then FileExistsFSO = False
Set fs = Nothing
End Function

Thanks

 

[PaulF]

you need to set a reference to Microsoft Scripting Runtime

PaulF

 

[Werneck]

Thank you, PaulF!

 

[GummowN]

Not sure whether this is an alternative.

Public Function FileExists(filename As String)
On Error GoTo NoSuchFile
If Len((Dir(filename))) < 2 Then
FileExists = False
Else
FileExists = True
End If
Exit Function
NoSuchFile:
FileExists = False
Resume Next
End Function

 

[LambertH]

This function checks for a file's existance by using GetAttr() instead of Dir()...
[tt]
Function FileExists(strFile As String) As Boolean
' Comments : Determines if the file exists
' Works for hidden files and folders
' Parameters: strFile - file to check
' Returns : True if the file exists, otherwise false
Dim intAttr As Integer
Dim errNum As Long
On Error Resume Next
'GET THE FILE ATTRIBUTE INSTEAD OF THE LENGTH OF THE FILE NAME
intAttr = GetAttr(strFile)
errNum = Err.Number
FileExists = (Err.Number = 0)
End Function [/tt]

 

[Werneck]

Hi
This function that checks for a file's existance by using GetAttr() instead of Dir() or FileLen() solved my problem.
Thanks you all for the helpfull suggestions!