'===================
'
' File: runQDAT.vbs
'
' Date : 07/14/2005
'
' COMMENT: Create a subdirectory on the users' H: drive and copy
' the latest version of the QDAT_Query front end
'===================
Dim fso 'to be used for file related code
Dim f
Dim wsh
Set wsh=WScript.CreateObject("Wscript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FolderExists("H:\QDAT") Then
Set f = fso.CreateFolder("H:\QDAT")
End If
'delete the old file if it exists
If fso.FileExists("H:\QDAT\QDAT_Query.mdb") Then
fso.DeleteFile("H:\QDAT\QDAT_Query.mdb")
End If
'copy the new version files to the user's H drive
fso.CopyFile "N:\DEPTS\QA\QDAT\QDAT_Query.mdb", "H:\QDAT\"
wsh.RUN "H:\QDAT\QDAT_Query.mdb",3
WScript.Quit