Hallo Zusammen,
ich habe bereits einen Kopiervorgang von einem Ordner zum anderen.
Nun schleicht sich ein Fehler ein, den ich nicht gelöst bekomme. Da ich Dateien von einem Netzwerklaufwerk kopiere, dachte ich es könnte daran liegen. Jedoch tritt der Fehler nur auf , wenn ich Dateien aus einem Unterodner kopieren will. Laufzeitfehler 70 Zugriff verweigert. Nun habe ich den Schreibschutz und Freigaben eingerichtet. Hat nichts gebracht. Was mich wundert. Kopiere ich Dateien aus dem Hauptordner , funktioniert das. Sobald ich auf einen unterordner zugreifen will kommt der Fehler.
Muss ich einen bestimmten Befehl für den Kopiervorgang angeben, weil ich auf Unterordner zugreife?
Viele Grüße und danke für jede Antwort
ich habe bereits einen Kopiervorgang von einem Ordner zum anderen.
Nun schleicht sich ein Fehler ein, den ich nicht gelöst bekomme. Da ich Dateien von einem Netzwerklaufwerk kopiere, dachte ich es könnte daran liegen. Jedoch tritt der Fehler nur auf , wenn ich Dateien aus einem Unterodner kopieren will. Laufzeitfehler 70 Zugriff verweigert. Nun habe ich den Schreibschutz und Freigaben eingerichtet. Hat nichts gebracht. Was mich wundert. Kopiere ich Dateien aus dem Hauptordner , funktioniert das. Sobald ich auf einen unterordner zugreifen will kommt der Fehler.
Muss ich einen bestimmten Befehl für den Kopiervorgang angeben, weil ich auf Unterordner zugreife?
Viele Grüße und danke für jede Antwort
Visual Basic-Quellcode
- Private Sub CommandButton2_Click()
- Dim fso As Object, f1 As Object, f2 As Object
- Dim ordner1 As String, ordner2 As String, ordner3 As String, ordner4 As String
- Const Ziel = "C:\Zielordner\"
- Const Ziel1 = "C:\Zielordner\1"
- Const Ziel2 = "C:\Zielordner\2"
- ordner1 = "C:\exceltemp"
- ordner3 = "C:\exceltemp\1"
- ordner4 = "C:\exceltemp\2"
- ordner2 = "c:\Quelle"
- Set fso = CreateObject("Scripting.FileSystemObject")
- If fso.FolderExists(ordner1) And fso.FolderExists(ordner2) Then
- Set f1 = fso.GetFolder(ordner1)
- Set f2 = fso.GetFolder(ordner2)
- If f1.Files.Count = f2.Files.Count And _
- f1.SubFolders.Count = f2.SubFolders.Count And _
- f1.Size = f2.Size Then
- For Each oFile In fso.GetFolder(ordner1).Files
- If Not (InStr(1, fso.GetFileName(oFile.Path), "ERR", 1) > 0) Then
- fso.CopyFile oFile.Path, Ziel
- Else
- MsgBox "Ordner sind nicht gleich 11111"
- End If
- Next
- For Each oFile In fso.GetFolder(ordner3).Files
- If Not (InStr(1, fso.GetFileName(oFile.Path), "ERR", 1) > 0) Then
- fso.CopyFile oFile.Path, Ziel1
- Else
- MsgBox "Ordner sind nicht gleich 2222"
- End If
- Next
- For Each oFile In fso.GetFolder(ordner4).Files
- If Not (InStr(1, fso.GetFileName(oFile.Path), "ERR", 1) > 0) Then
- fso.CopyFile oFile.Path, Ziel2
- Else
- MsgBox "Ordner sind nicht gleich 33333"
- End If
- Next
- End If
- End If
- Set fso = Nothing
- End Sub