Microsoft Scripting Runtime Fehler
22.02.2006 01:21:44
Rene
Habe die MSR über Verweise eingebunden. Leider funktionieren einige Funktionen nicht, z.B. das kopieren von Ordnern mit "CopyFolder". Dazu möchte ich das folgende Makro verwenden:
Private Sub CommandButton1_Click()
Dim objFSO As Scripting.FileSystemObject
Dim objOrdner As Scripting.Folder
On Error Resume Next
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objOrdner = objFSO.CopyFolder(TextBox1.Value, TextBox9.Value)
End Sub
Wenn ich das Makro ausführen möchte, erscheint die Fehlermeldúng "Function oder Variable erforderlich", ".CopyFolder" ist dabei markiert. Die gleiche Meldung erschein bei "DeleteFolder" und "MoveFolder". Die Makrocodes stammen teilweise aus einem Excel-Kompendium.
Das Erstellen von neuen Ordnern funktioniert dagegen. Hierfür verwende ich das folgende Makro:
Private Sub CommandButton2_Click()
Dim objFSO As Scripting.FileSystemObject
Dim objOrdner As Scripting.Folder
On Error Resume Next
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objOrdner = objFSO.CreateFolder(TextBox2.Value)
End Sub
Wie kann ich das Problem beheben und wo liegt der Fehler? Danke für die Hilfe!
Grüße, Rene