Ordner kopieren
19.10.2006 13:23:54
lueckii
Ich möchte gerne nen Ordner per vba von einem Pfad in ne anderen kopieren.
Ich hab auch schon ein Makro geschrieben, was so ähnlich im Forum beschrieben wurde.
Allerdings wird hier bei der letzten Zeile immer ein Fehler("Ungültiger Prozeduraufruf oder ungültiges Argument angezeigt. Weiß jemand von euch vielleicht woran das liegen könnte?
Public
Sub Foldercopy()
Dim Pfad As String
Dim Jahr As String
Dim Neupfad As String
Dim FsyObjekt As Object
Jahr = ActiveWorkbook.Sheets("Navigation").Range("I2")
Pfad = ActiveWorkbook.Path
Neupfad = Pfad & "\" & Jahr & "\"
Set FsyObjekt = CreateObject("Scripting.FileSystemObject")
FsyObjekt.CopyFolder Pfad, Neupfad
End Sub
Mfg Martin
Anzeige