If file exists then
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
"Curt" wrote in message
...
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
|