VBS kopierings scipt

[Gouliat]

Hei

 

Kan noen som har litt bedre VBS kunnskaper enn meg hjelpe meg med et script?

Scriptet skal sjekke om en fil er gamlere i folder1, hvis så skal den slette alle filene i folder1, og kopiere inn nye filer fra folder2 til folder1. Har laget et script i BAT som fungerer, men nå må jeg ha det over i VBS.

[geir__hk]

Scriptet skal sjekke om en fil er gamlere i folder1

Hvilken fil? Skal du sjekke én bestemt fil sin dato? Ligger den i en av mappene du nevnte ovenfor?

[Gouliat]

skal sjekke en bestemt fil som ligger i samme folder som alle filene først slettes og så koiperis inn i fra en annen folder. Har prøvd med noe sånt uten at jeg får det helt til å kjøre:

 

On Error Resume Next

sFileName1 = FileDateTime("C:\mpress\mbase\sendmail")

sFileName2 = FileDateTime(\\helgfs01\mpress_v6.00\Mbase-Studio\sendmail)

Set objFSO = CreateObject("Scripting.FileSystemObject")

 

If objFSO.FolderExists("C:\mpress\mbase") and sFileName1 < sFileName2 then

 

Const DeleteReadOnly = True

Set objFSO = CreateObject("Scripting.FileSystemObject")

objFSO.DeleteFile("C:\mpress\mbase\*.*"), DeleteReadOnly

objFSO.CopyFile "\\helgfs01\mpress_v6.00\Mbase-Studio\*.*" , "C:\mpress\mbase" , OverwriteExisting

 

End If

[Gjest]

Tror du har litt feil syntax, microsoft sine sider kan kanskje hjelpe deg: http://msdn.microsoft.com/en-us/library/2z9ffy99(VS.85).aspx