dim oFSO Set oFSO = CreateObject("Scripting.FileSystemObject") if oFSO.FileExists("FileName") Then ' file exists End If