11. marts 2006 - 17:45Der er
7 kommentarer og 1 løsning
Kopiere filer fra flere undermapper til en mappe
Nogen som ved hvordan man i Command prompt (eller med et freeware program) kan kopiere/flytte alle filer i et dir (med subdirs) til en mappe hvor filerne er samlet.
Den moderne arbejdsplads er i stigende grad afhængig af mødelokaler til at fremme samarbejde, men dette skift medfører også stigende sikkerhedsudfordringer.
Jeg kender ikke et en kommando i til commando prompt, men du kan lave vbScript. Hvis du laver en tekstfil med følgende indhold og omdøber den til endelsen vbs så kan du bare køre filen og filerne bliver kopieret. Husk at rette taget og source
sub CopyFolder(f) set files = f.Files for each folder in f.Subfolders CopyFolder(folder) next for each f in files if objFSO.FileExists(target&"\"&f.Name) then a=1 fname=left(f.name,inStr(1,f.name,".")-1) ftype=mid(f.name,inStr(1,f.name,"."),len(f.name)) while objFSO.FileExists(target&"\"&fname&"_"&a&ftype) a=a+1 wend f.copy(target&"\"&fname&"_"&a&ftype) else f.copy(target&"\"&f.Name) end if next end sub
source="C:\test\src" target="C:\test\trg"
dim folder,folderCol Set objFSO = CreateObject("Scripting.FileSystemObject") set folder = objFSO.getFolder(source) CopyFolder(folder) set folder = nothing set objFSO = nothing
du kan bruge xcopy til formålet, eller robocopy (eller vbscript) hvis du vil benytte xcopy kan jeg lige vende tilbage med syntaksen først på natten, sidder ik ved noget lige nu der kan bruges til det
hmm - er det meningen at den selv skal tjekke om der findes en dublet, og kun rename i de tilfælde? så kan xcopy+batfil benyttes, men vbscript er lige så tjekket mindst
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.