18. august 2006 - 11:56Der 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
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
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.