09. maj 2007 - 17:22Der er
1 kommentar og 1 løsning
Kopier fil til underfoldere
Hej Eksperter
Jeg skal ha kopieret en fil til en række underfoldere, se nedenfor:
c:\test \folder 1 \anden folder ..... \foldernr5
Jeg kan godt kopiere til en enkelt folder, men hvordan får jeg kopieret de underliggende foldere? foldernavnee er variable ligeledes er antallet af foldere.
urlen er filnavn og den fulde sti (c:\tekst.txt) navn er (tekst.txt)
jeg har fået et hint med at det kan være noget i stil med:
For each fldr in f.subfolders fso.CopyFile filnavn.value, "c:\test\" & navn NEXT
men det vil den ikke.
Nogen der har nogle idéer om hvordan det kan løses?
Sub Rekursivt(DrevOgMappe As String, StiTilFilDerSkalKopieres As String, FilDerSkalKopieres As String) Dim fso As New FileSystemObject Dim Mappe As Folder Dim Mapper As Folders
Set Mapper = fso.GetFolder(DrevOgMappe).SubFolders
For Each Mappe In Mapper fso.CopyFile StiTilFilDerSkalKopieres & FilDerSkalKopieres, Mappe.Path & "\" & FilDerSkalKopieres Rekursivt Mappe.Path, StiTilFilDerSkalKopieres, FilDerSkalKopieres Next Mappe Set fso = Nothing End Sub
Sub Start() Rekursivt "c:\Test", "c:\", "tekst.txt" End Sub
Fik hjælp fra en kolega, så her er hvad der virker
Sub KopierFiler if filnavn.value <> "" then urlen = filnavn.value sidstedel = inStrRev(urlen, "\") navn = Right(urlen, ( len(urlen)-sidstedel ))
Set f = fso.GetFolder(strFolder) For each fldr in f.subfolders fso.CopyFile filnavn.value, fldr.Path & "\" & navn Next Msgbox("Filen er blevet kopieret") else Msgbox("Vælg fil") end if End Sub
Synes godt om
Ny brugerNybegynder
Din løsning...
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.
