Herbers Excel-Forum - das Archiv

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
Excel-Beispiele zum Thema "Ordner kopieren"
Excel-Dateien eines Ordners listen Ordner eines Verzeichnisses in ListBox übernehmen
Bei Doppelklick Ordner im Explorer öffnen Dateien einer Ordnerliste in einer Tabelle zusammenstellen
Ordnernamen eines Verzeichnisses in Zelle einfügen Dateisuche unter Einbeziehung der untergeordneten Ordner
Ordnerdialog mit nachfolgendem Dateidialog aufrufen Aus Dialog Verzeichnis auswählen, dann neuen Ordner erstellen
Die Eigenschaft "Stichwort" in allen Dateien eines Ordners ändern Vorhandensein von Verzeichnissen prüfen und Ordner anlegen