If folder not exist

[kippy13]

Hi,
I have a simple problem (to most experts)
I have an existing script that I need to modify.
Basicilly, I want the script to check if a file exists (c:\windows\tools\filename.exe) and if it doesnt to copy the file from a location on the server to that location.
If the file does exist I just want the script to move onto the next line.
The next line of the script is to execute this file so the file needs to be on the machine.
Any ideas?
Kippy

***************************************
Looking for the best answers:
faq222-2244
Keeping your system clear of malware:
faq608-4650
***********************************
Dont forget to post back with the eventual resolution.
***************************************

 

[tsuji]

[tt]set fso=createobject("scripting.filesystemobject")
if fso.fileexists("c:\windows\tools\filename.exe") then
'do something: file exists
else
'do something else: file does not exists
end if
[/tt]

 

[Ravok]

This will do what you wanted:
Dim fso, WshShell, SourceFile, DestFile
DestFile = "c:\windows\tools\filename.exe" 'Local workstation file
SourceFile = "\\ServerName\ShareName\FileName.exe" 'Remote server file
Set fso = CreateObject("scripting.filesystemobject")
set WshShell = CreateObject("wscript.Shell")

If Not fso.FileExists(DestFile) Then
fso.CopyFile(SourceFile,DestFile)
End If
WshShell.Run(DestFile)