Ordner kopieren

Forumthread: Ordner kopieren

Ordner kopieren

27.02.2005 15:52:29

Sebastian

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

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Ordner kopieren

27.02.2005 16:09:24

Nepumuk
Danke, funktioniert super. (o.T.)

27.02.2005 16:17:15

Sebastian

AW: Ordner kopieren

27.02.2005 16:09:24

Nepumuk

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

Danke, funktioniert super. (o.T.)

27.02.2005 16:17:15

Sebastian

Forumthread: Ordner kopieren

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread