Ordner kopieren

Forumthread: Ordner kopieren

Ordner kopieren

07.05.2025 20:29:52

Marrin

Hallo zusammen

Ich habe im VBA editor unter Tools - References " Microsoft Scripting Runtime" angeklickt und trontzdem funktioniert mein Macro nicht. Weiss jemand wieso?

Sub CopyMyFolder()

Dim FSO As New FileSystemObject

Set FSO = CreateObject("Scripting.FileSystemObject")

SourceFolder = “C:\Users\bob\Documents\test”
DestFolder = “C:\Users\bob\Documents\”

FSO.CopyFolder Source:=SourceFolder, Destination:=DestFolder

End Sub

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Ordner kopieren

07.05.2025 21:07:20

Yal
AW: Ordner kopieren

07.05.2025 23:29:48

Ulf

AW: Ordner kopieren

07.05.2025 21:07:20

Yal

Hallo Marrin,

Du hast eine Doppelung der Objekt-Instanzierung:
einmal mit
Dim FSO As New FileSystemObject
Funktioniert, weil Bibliothek "Microsoft Scripting Runtime" angebunden ist.

ein zweite mal mit
Set FSO = CreateObject("Scripting.FileSystemObject")

aber das ist nicht das Problem.

Wenn Du "C:\Users\bob\Documents\test" in "C:\Users\bob\Documents\" kopieren willst, dann entsteht ein Verzeichnis "C:\Users\bob\Documents\test". Der eigentlich bereits existiert. Es ist nicht, dass es nicht funktioniert, sondern dass die Wirkung nicht sichtbar ist.

VG
Yal

AW: Ordner kopieren

07.05.2025 23:29:48

Ulf

Hi,
angenommen du willst den Inhalt von test in das Wurzelverzeichnis kopieren, dann sind deine Hochkommata typografisch und der abschließende Backslash überflüssig.

Sub CopyMyFolder()

    Dim src As String

    Dim dst As String

    Dim FSO As FileSystemObject

    Set FSO = New FileSystemObject

    src = "C:\Users\hg\Documents\test"

    dst = "C:\Users\hg\Documents"

    With FSO

        'If Not .FolderExists(dst) Then

            .CopyFolder Source:=src, Destination:=dst

        'End If

    End With

End Sub

hth
Ulf

Forumthread: Ordner kopieren

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

Forumthreads zu verwandten Themen

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread