Ordner kopieren

Bild

Betrifft: Ordner kopieren
von: Sebastian
Geschrieben am: 27.02.2005 14:52:29
Hallo,
ich möchte beim Klick auf einen Button, einen Ordner mit seinem gesamten Inhalt kopieren. Das Quelllaufwerk steht in Range("A25") und das Ziellaufwerk in cmbLauf.
Danke für eure Hilfe,
MfG
Sebastian

Bild

Betrifft: AW: Ordner kopieren
von: Nepumuk
Geschrieben am: 27.02.2005 15:09:24
Hallo Sebastian,
so geht's:


Public Sub test()
    Dim myFSO As Object
    Set myFSO = CreateObject("Scripting.FileSystemObject")
    myFSO.copyfolder Range("A25").Value & "\", cmbLauf.Value & "\"
    Set myFSO = Nothing
End Sub


Gruß
Nepumuk
Bild

Betrifft: Danke, funktioniert super. (o.T.)
von: Sebastian
Geschrieben am: 27.02.2005 15:17:15

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Ordner kopieren"