Denne her virker, er simplere og ligner mere dit eget forslag:
Dim Sti As String Dim NySti As String Dim FSO As FileSystemObject
Sti = "N:\Backup\" 'Mappe der kopieres FRA NySti = "C:\jakob\" 'Mappe der kopieres TIL Set FSO = CreateObject("Scripting.FileSystemObject") FSO.CopyFile Sti & "*.*", NySti Set FSO = Nothing
Du ved allerede nu hvordan du skal kopiere filer fra en folder til en anden, hvordan du opretter en folder (If Not FSO.FolderExists("c:\enEllerAndenMappe") Then FSO.CreateFolder "c:\enEllerAndenMappe")
Det eneste du mangler er, at få loopet gennem ALLE dine mapper på N-drevet. Og vupti, det kan du se her:
Det er den jeg bruger til at få placeret indholdet på N:Backup, men jeg troede bare at man kunne bruge en god gammel dos komamdo til at kopirer filer når man nu viste hbor de var placeret.
Man det er et kanon link, jg det tog kun 2 timer at rette den til.
PS: Man kunne også krybe til korset og bruge VB's udemærkede hjælp. Søg på CopyFolder Method, der står hvordan du kopiere en folder og alle dens SUBFOLDERE :o)
Men det er jo for nemt at kikke i hjælpen, he he ;o)
Du kan jo også bare bruge en shell-kommando som kabbak har foreslået. Men kik i ovenstående (VB-hjælp) - der kan du se, at du men en enkelt kommando på din FSO kan kopiere en folder og alle dens subfoldere.
Og at bruge FSO synes jeg personligt er ret så meget smartere end at bruge shell - og i øvrigt det du lægger op til.
PS: Ovenstående link (planetsourcekode) er nu ret godt i en masse andre sammenhænge...
det kan jeg ikke da jeg ikke kan finde ud af at afinstallere msdn, der kommer nemlig en fejl når jeg trykker på F1, hvor den siger at jeg skal reinstallere msdn.....(/&(/#¤#!"¤
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.