Set fso = CreateObject("Scripting.FileSystemObject") Const ForReading = 1, ForWriting = 2, ForAppending = 8 ' Create Text File Set tso = fso.OpenTextFile("foo.txt", ForWriting, true) tso.Close Set tso = Nothing If fso.FileExists("foo.txt") Then WScript.Echo "foo.txt file exists." Else WScript.Echo "foo.txt file not found." End If If fso.FileExists("bar.txt") Then WScript.Echo "bar.txt file exists." Else WScript.Echo "bar.txt file not found." End If Set fso = Nothing