file copy via vbs

hey !

Folderen, kan du tjekke for eksisterer i forvejen med fso.folderexists.
M.h.t. filer, er det næsten nemmest, at lave en on error resume next. Så slipper du for, at skulle finde filerne før kopiering :o)


On Error Resume next
Set fso = CreateObject("Scripting.FileSystemObject")
dato = Replace(Date(),"-","")
If Not fso.FolderExists("c:\" & dato) then
fso.createfolder "c:\" & dato
End If
fso.CopyFile "C:\*.gif" , "c:\" & dato

/Killer

Kanon... Tak.. lige det....