If file exists then

[Curt]

Want to check if file exists zzz.xxx if true call a macro KillFile if not
exit
Blanked out
Thanks
If ("C:\Parade\zzz.txt") Then
Call KillFile
Exit Sub
' Else
End If

 

[Rick Rothstein \(MVP - VB\)]

If Len(Dir("C:\Parade\zzz.txt")) > 0 Then ' File exists

Rick

 

[John Wilson]

Curt,

Public Function FileExists(FileName as String) As Boolean
FileExists = Len(Dir(FileName))
End Function

If FileExists("C:\Parade\zzz.txt") Then
Call KillFile
Exit Sub
Else
'Whatever
End If

HTH,
John