18. august 2006 - 11:56
Der er
1 kommentar og
1 løsning
file copy via vbs
Hej,
Har nedstående script. Men det fejler hvis filen/mappen findes i forvejen eller der ikke er nogen filer til kopiering.
Kan man lave det anderledes, så det ignorer dette ?
vh thjoe
Set fso = CreateObject("Scripting.FileSystemObject")
dato = Replace(Date(),"-","")
fso.createfolder "c:\" & dato
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFile "C:\*.gif" , "c:\" & dato
18. august 2006 - 12:32
#1
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