Zugriff verweigert // Laufzeitfehler 70

  • VBScript

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von J.Herbrich.

    Zugriff verweigert // Laufzeitfehler 70

    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

    Visual Basic-Quellcode

    1. Private Sub CommandButton2_Click()
    3. Dim fso As Object, f1 As Object, f2 As Object
    4. Dim ordner1 As String, ordner2 As String, ordner3 As String, ordner4 As String
    5. Const Ziel = "C:\Zielordner\"
    6. Const Ziel1 = "C:\Zielordner\1"
    7. Const Ziel2 = "C:\Zielordner\2"
    8. ordner1 = "C:\exceltemp"
    9. ordner3 = "C:\exceltemp\1"
    10. ordner4 = "C:\exceltemp\2"
    11. ordner2 = "c:\Quelle"
    12. Set fso = CreateObject("Scripting.FileSystemObject")
    15. If fso.FolderExists(ordner1) And fso.FolderExists(ordner2) Then
    16. Set f1 = fso.GetFolder(ordner1)
    17. Set f2 = fso.GetFolder(ordner2)
    18. If f1.Files.Count = f2.Files.Count And _
    19. f1.SubFolders.Count = f2.SubFolders.Count And _
    20. f1.Size = f2.Size Then
    22. For Each oFile In fso.GetFolder(ordner1).Files
    23. If Not (InStr(1, fso.GetFileName(oFile.Path), "ERR", 1) > 0) Then
    24. fso.CopyFile oFile.Path, Ziel
    25. Else
    26. MsgBox "Ordner sind nicht gleich 11111"
    27. End If
    28. Next
    30. For Each oFile In fso.GetFolder(ordner3).Files
    31. If Not (InStr(1, fso.GetFileName(oFile.Path), "ERR", 1) > 0) Then
    32. fso.CopyFile oFile.Path, Ziel1
    33. Else
    34. MsgBox "Ordner sind nicht gleich 2222"
    35. End If
    36. Next
    38. For Each oFile In fso.GetFolder(ordner4).Files
    39. If Not (InStr(1, fso.GetFileName(oFile.Path), "ERR", 1) > 0) Then
    40. fso.CopyFile oFile.Path, Ziel2
    42. Else
    43. MsgBox "Ordner sind nicht gleich 33333"
    44. End If
    46. Next
    48. End If
    49. End If
    51. Set fso = Nothing
    52. End Sub

    Hallo,

    VBS hat kein CommandButtonX_Click. Ich sehe kein Netzwerkpfad.

    Einmal hast Du hinter Ziel noch ein Backslash und einmal nicht. <-- Hier würde ich anfangen zu suchen.
    Gruß
    Peterfido

    Keine Unterstützung per PN!

    Hi, danke für die Antwort. Ich mach mich mal auf die Fehlersuche.
    Der obere VB-Code Ausschnitt war ein Test bei dem ich schauen wollte , ob der Fehler auch auftritt wenn ich lokale Ordner anspreche.

    Ich greife normalerweise auf J zu , welches ein Netzwerklaufwerk ist

    Visual Basic-Quellcode

    1. Dim fso As Object, f1 As Object, f2 As Object
    2. Dim ordner1 As String, ordner2 As String, ordner3 As String, ordner4 As String
    3. Const Ziel = "C:\Zielordner\"
    4. Const Ziel1 = "C:\Zielordner\1"
    5. Const Ziel2 = "C:\Zielordner\2"
    6. ordner1 = "J:\DAS\exceltemp"
    7. ordner3 = "J:\DAS\exceltemp\1"
    8. ordner4 = "J:\DAS\exceltemp\2"
    9. ordner2 = "c:\Quelle"



    Tatsache. Es lag daran, dass bei "Ziel" der Backslash gefehlt hat.

    Danke sehr!

    Netzwerk Laufwerke laufen in Context des Benutzers, läuft der Scripthost iwo anders (SYSTEM,NETWERKDIENST,etc...) müsstest du vorher mit net use hand anlegen. (Ebenfalls im Script). In VB.NET hast du für sowas glaube ich den Shell() befel.

    LG, J Herbrich

Facebook
Telefonspende