cScript = [Set WshShell = Wscript.CreateObject("WScript.Shell") + CHR(13) + CHR(10) + ; Wscript.Sleep 20000 + CHR(13) + CHR(10) + ; Set FSO = Wscript.CreateObject("Scripting.FileSystemObject") + CHR(13) + CHR(10) + ; If Not FSO.IsFile("C:\GotAFile") THEN + CHR(13) + CHR(10) + ; WshShell.AppActivate "Open" + CHR(13) + CHR(10) + ; WshShell.SendKeys "%{F4}" + CHR(13) + CHR(10) + ; End If + CHR(13) + CHR(10) + ; WshShell = Nothing + CHR(13) + CHR(10) + ; FSO = Nothing] IF FILE('C:\GotAFile') ERASE C:\GotAFile ENDIF =StrToFile(cScript,'MYVBSCRIPT.VBS') ! /N7 CSCRIPT.EXE MYVBSCRIPT.VBS ax=getf() IF ! ISEMPTY(ax) =strtofile('','c:\gotafile') ENDIF