Hilfe bei Fehler 800A0005

  • VBScript

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von Refnex.

    Hilfe bei Fehler 800A0005

    Hallo zusammen,

    Ich hoffe einer von euch kann mir Helfen da ich den Wald vor lauter Bäumen nicht mehr sehe.

    Folgendes:
    Ich habe ein script geschrieben was mir datein und ordner von einem Fileserver löschen soll.
    leider bricht mir das script mit folgendem Fehler ab :


    (dateiname) (29, 1) Laufzeitfehler in Microsoft VBScript: Typen unverträglich: '
    fso.GetFolder'



    Visual Basic-Quellcode

    1. ''-Konstanten----------------------------------------------
    2. Const ForReading = 1, ForWriting = 2, ForAppending = 8
    3. '-Array Variablen die zu überprüfenden Ordner getrennt mit ; angeben------
    4. strRootFolder = "C:\test\1test; "
    5. 'CompName
    7. 'strComputer =strRootFolder
    9. '-Variablen-----------------------------------------------
    10. strRootFolders = split(strRootFolder, ";")
    11. strLogFile = "F:\Rekursiv_loeschen\log.txt" '-Ablage der Log Datei
    12. strExcludeFile = "F:\Rekursiv_loeschen\KillfolderExclude.txt" ' In diesem Textfile bitte die zu Exclusion Freigegebenen Verzeichnisse eintragen
    13. lngDays = 1
    14. lngRetries = 3 'Anzahl Versuche, wenn Ordner-löschen fehlschlägt
    15. lngRetSleepTime = 1000 'Wartezeit nach Fehlversuch in ms
    16. '---
    17. 'Wenn Statusmeldungen in DOS-Box gewünscht, Script mittels "cscript.exe KillOldFolders.vbs" starten!
    18. If LCase (Right (WScript.FullName, 11)) <> "cscript.exe" Then boolcsript = False Else boolcscript=True
    19. Set fso = CreateObject("Scripting.FileSystemObject")
    20. Set ofolder = fso.GetFolder(strRootFolders)
    21. Set flog = fso.OpenTextFile(strLogFile, ForAppending, True)
    22. Writelog "---- Alte Ordner in " & strRootFolders & " werden gelöscht! - " & Now()
    23. Writelog "Ausgeschlossene Verzeichnisse:"
    24. Dim arrEx()
    25. maxExcludes=0
    26. If fso.FileExists(strExcludeFile) Then
    27. Set fex = fso.OpenTextFile(strExcludeFile, ForReading)
    28. Do While Not fex.AtEndOfStream
    29. maxExcludes=maxExcludes+1
    30. ReDim Preserve arrEx(maxExcludes)
    31. arrEx(maxExcludes) = fex.readline()
    32. Writelog arrEx(maxExcludes)
    33. Loop
    34. fex.close
    35. End If
    36. Writelog "----"
    37. 'Durchlaufe alle Unterverzeichnisse
    38. For Each folder In ofolder.subfolders
    39. KillfolderSub folder
    40. Next
    41. Writelog "---- Script beendet - " & Now()
    42. if not boolcscript then MsgBox "Script beendet - " & Now()
    43. '---
    44. 'ENDE
    45. '---
    46. Sub KillfolderSub(objFolder)
    47. 'On Error Resume Next
    48. strFolder = objFolder.Path
    49. ' vardatecreated = objFolder.datecreated
    50. 'Wenn Ordner in "Exclude"-Liste steht, nicht löschen!
    51. boolExclude = False
    52. For i=1 To maxExcludes
    53. if lcase(strFolder) = lcase(trim(arrEx(i))) then boolExclude = True
    54. Next
    55. If boolExclude Then
    56. Writelog "Ordner " & strFolder & " incl. Unterordner nicht gelöscht (Exclude-Regel!)"
    57. Else
    58. 'Durchlaufe alle Unterverzeichnisse
    59. For Each subfolder In objFolder.subfolders
    60. KillfolderSub subfolder
    61. Next
    62. 'Wenn Ordner vor mehr als x Tagen erstellt wurde...
    63. ' WScript.Echo vardatecreated & " - "& Date & " - "& lngDays
    64. ' If vardatecreated < (Date - lngDays) Then
    65. ' WScript.Echo "alt löschen"
    66. 'Alle Dateien im Ordner löschen
    67. For Each file In objFolder.Files
    68. vardatecreated = file.DateLastModified
    69. 'Script.Echo file & " - "&vardatecreated & " - "& Date & " - "& lngDays
    70. If vardatecreated < (Date - lngDays) Then
    71. Err.Clear
    72. strFile = file.Path
    73. fso.DeleteFile strFile, True
    74. If Err = 0 Then
    75. Writelog "Datei " & strFile & " gelöscht"
    76. Else
    77. Writelog "Datei " & strFile & " konnte nicht gelöscht werden! - Fehler " & Err & " (" & Err.Description & ")"
    78. End If
    79. Else
    80. Writelog "Datei " & strFile & " nicht gelöscht! - zu Neu" & vardatecreated
    81. End If
    82. Next
    83. ' End If
    84. End If
    87. On Error Goto 0
    88. End Sub
    90. '---
    91. 'Löschen leerer Ordner
    92. '---
    93. mko (strRootFolders)
    94. Sub mko (sfolder)
    95. Set fso = CreateObject("Scripting.FileSystemObject")
    96. Set fsofolder = fso.GetFolder(sFolder)
    97. For Each subfolder In fsofolder.SubFolders
    98. mko(subfolder.Path)
    99. Next
    100. If fsofolder.Files.Count = 0 And fsofolder.SubFolders.Count = 0 Then
    101. fsofolder.Delete vbTrue
    102. End If
    104. End Sub
    106. '---
    107. Sub Writelog(strMessage)
    108. flog.writeline strMessage
    109. if boolcscript then WScript.echo strMessage
    110. End Sub


    Ich hoffe es kann mir jemand helfen

    Danke an alle gruss ben

    Versuch's mal damit:

    Visual Basic-Quellcode

    1. ''-Konstanten----------------------------------------------
    2. Const ForReading = 1, ForWriting = 2, ForAppending = 8
    4. strRootFolder = "C:\test\1test" '<--- *****
    5. 'CompName
    7. 'strComputer =strRootFolder
    9. '-Variablen-----------------------------------------------
    11. strLogFile = "F:\Rekursiv_loeschen\log.txt" '-Ablage der Log Datei
    12. strExcludeFile = "F:\Rekursiv_loeschen\KillfolderExclude.txt" ' In diesem Textfile bitte die zu Exclusion Freigegebenen Verzeichnisse eintragen
    13. lngDays = 1
    14. lngRetries = 3 'Anzahl Versuche, wenn Ordner-löschen fehlschlägt
    15. lngRetSleepTime = 1000 'Wartezeit nach Fehlversuch in ms
    16. '---
    17. 'Wenn Statusmeldungen in DOS-Box gewünscht, Script mittels "cscript.exe KillOldFolders.vbs" starten!
    18. If LCase (Right (WScript.FullName, 11)) <> "cscript.exe" Then boolcsript = False Else boolcscript=True
    19. Set fso = CreateObject("Scripting.FileSystemObject")
    21. Set ofolder = fso.GetFolder(strRootFolder) '<---- ****
    23. Set flog = fso.OpenTextFile(strLogFile, ForAppending, True)
    24. Writelog "---- Alte Ordner in " & strRootFolders & " werden gelöscht! - " & Now()
    25. Writelog "Ausgeschlossene Verzeichnisse:"
    26. Dim arrEx()
    27. maxExcludes=0
    28. If fso.FileExists(strExcludeFile) Then
    29. Set fex = fso.OpenTextFile(strExcludeFile, ForReading)
    30. Do While Not fex.AtEndOfStream
    31. maxExcludes=maxExcludes+1
    32. ReDim Preserve arrEx(maxExcludes)
    33. arrEx(maxExcludes) = fex.readline()
    34. Writelog arrEx(maxExcludes)
    35. Loop
    36. fex.close
    37. End If
    38. Writelog "----"
    39. 'Durchlaufe alle Unterverzeichnisse
    40. For Each folder In ofolder.subfolders
    41. KillfolderSub folder
    42. Next
    43. Writelog "---- Script beendet - " & Now()
    44. If Not boolcscript Then MsgBox "Script beendet - " & Now()
    45. '---
    46. 'ENDE
    47. '---
    48. Sub KillfolderSub(objFolder)
    49. 'On Error Resume Next
    50. strFolder = objFolder.Path
    51. ' vardatecreated = objFolder.datecreated
    52. 'Wenn Ordner in "Exclude"-Liste steht, nicht löschen!
    53. boolExclude = False
    54. For i=1 To maxExcludes
    55. If LCase(strFolder) = LCase(Trim(arrEx(i))) Then boolExclude = True
    56. Next
    57. If boolExclude Then
    58. Writelog "Ordner " & strFolder & " incl. Unterordner nicht gelöscht (Exclude-Regel!)"
    59. Else
    60. 'Durchlaufe alle Unterverzeichnisse
    61. For Each subfolder In objFolder.subfolders
    62. KillfolderSub subfolder
    63. Next
    64. 'Wenn Ordner vor mehr als x Tagen erstellt wurde...
    65. ' WScript.Echo vardatecreated & " - "& Date & " - "& lngDays
    66. ' If vardatecreated < (Date - lngDays) Then
    67. ' WScript.Echo "alt löschen"
    68. 'Alle Dateien im Ordner löschen
    69. For Each file In objFolder.Files
    70. vardatecreated = file.DateLastModified
    71. 'Script.Echo file & " - "&vardatecreated & " - "& Date & " - "& lngDays
    72. If vardatecreated < (Date - lngDays) Then
    73. Err.Clear
    74. strFile = file.Path
    75. fso.DeleteFile strFile, True
    76. If Err = 0 Then
    77. Writelog "Datei " & strFile & " gelöscht"
    78. Else
    79. Writelog "Datei " & strFile & " konnte nicht gelöscht werden! - Fehler " & Err & " (" & Err.Description & ")"
    80. End If
    81. Else
    82. Writelog "Datei " & strFile & " nicht gelöscht! - zu Neu" & vardatecreated
    83. End If
    84. Next
    85. ' End If
    86. End If
    89. On Error Goto 0
    90. End Sub
    92. '---
    93. 'Löschen leerer Ordner
    94. '---
    95. mko (strRootFolders)
    96. Sub mko (sfolder)
    97. Set fso = CreateObject("Scripting.FileSystemObject")
    98. Set fsofolder = fso.GetFolder(sFolder)
    99. For Each subfolder In fsofolder.SubFolders
    100. mko(subfolder.Path)
    101. Next
    102. If fsofolder.Files.Count = 0 And fsofolder.SubFolders.Count = 0 Then
    103. fsofolder.Delete vbTrue
    104. End If
    106. End Sub
    108. '---
    109. Sub Writelog(strMessage)
    110. flog.writeline strMessage
    111. If boolcscript Then WScript.echo strMessage
    112. End Sub

    Visual Basic-Quellcode

    1. ...
    2. ...
    4. For i = 0 To UBound(strRootFolders)
    6. Set ofolder = fso.GetFolder(strRootFolders(i))
    7. Set flog = fso.OpenTextFile(strLogFile, ForAppending, True)
    8. Writelog "---- Alte Ordner in " & strRootFolders(i) & " werden gelöscht! - " & Now()
    9. Writelog "Ausgeschlossene Verzeichnisse:"
    10. ...
    11. ...
    13. Next
    14. ...
    15. ...

    hmmmm leider gleiches problem

    Microsoft VBScript runtime error (30, 1) : Type mismatch: 'fso.GetFolder'

    Visual Basic-Quellcode

    1. ''-Konstanten----------------------------------------------
    2. Const ForReading = 1, ForWriting = 2, ForAppending = 8
    4. '-Array Variablen die zu überprüfenden Ordner getrennt mit ; angeben------
    6. strRootFolder = "O:\vbs\del; O:\vbs\del - Copy;"
    8. 'CompName
    11. 'strComputer =strRootFolder
    15. '-Variablen-----------------------------------------------
    17. strRootFolders = split(strRootFolder, ";")
    19. strLogFile = "O:\vbs\Rekursiv_loeschen\log.txt" '-Ablage der Log Datei
    20. strExcludeFile = "O:\vbs\Rekursiv_loeschen\KillfolderExclude.txt" ' In diesem Textfile bitte die zu Exclusion Freigegebenen Verzeichnisse eintragen
    21. lngDays = 1
    22. lngRetries = 3 'Anzahl Versuche, wenn Ordner-löschen fehlschlägt
    23. lngRetSleepTime = 1000 'Wartezeit nach Fehlversuch in ms
    24. '---
    25. 'Wenn Statusmeldungen in DOS-Box gewünscht, Script mittels "cscript.exe KillOldFolders.vbs" starten!
    26. If LCase (Right (WScript.FullName, 11)) <> "cscript.exe" Then boolcsript = False Else boolcscript=True
    28. Set fso = CreateObject("Scripting.FileSystemObject")
    29. For i = 0 To UBound(strRootFolders)
    30. Set ofolder = fso.GetFolder(strRootFolders)
    31. Set flog = fso.OpenTextFile(strLogFile, ForAppending, True)
    33. Writelog "---- Alte Ordner in " & strRootFolders & " werden gelöscht! - " & Now()
    34. Writelog "Ausgeschlossene Verzeichnisse:"
    35. Next
    36. Dim arrEx()
    38. maxExcludes=0
    39. If fso.FileExists(strExcludeFile) Then
    40. Set fex = fso.OpenTextFile(strExcludeFile, ForReading)
    41. Do While Not fex.AtEndOfStream
    42. maxExcludes=maxExcludes+1
    43. ReDim Preserve arrEx(maxExcludes)
    44. arrEx(maxExcludes) = fex.readline()
    45. Writelog arrEx(maxExcludes)
    46. Loop
    47. fex.close
    48. End If
    49. Writelog "----"
    51. 'Durchlaufe alle Unterverzeichnisse
    53. For Each folder In ofolder.subfolders
    54. KillfolderSub folder
    55. Next
    56. Writelog "---- Script beendet - " & Now()
    57. if not boolcscript then MsgBox "Script beendet - " & Now()
    59. '---
    60. 'ENDE
    61. '---
    63. Sub KillfolderSub(objFolder)
    64. 'On Error Resume Next
    65. strFolder = objFolder.Path
    66. ' vardatecreated = objFolder.datecreated
    67. 'Wenn Ordner in "Exclude"-Liste steht, nicht löschen!
    68. boolExclude = False
    69. For i=1 To maxExcludes
    70. if lcase(strFolder) = lcase(trim(arrEx(i))) then boolExclude = True
    71. Next
    72. If boolExclude Then
    73. Writelog "Ordner " & strFolder & " incl. Unterordner nicht gelöscht (Exclude-Regel!)"
    74. Else
    76. 'Durchlaufe alle Unterverzeichnisse
    78. For Each subfolder In objFolder.subfolders
    79. KillfolderSub subfolder
    80. Next
    81. 'Wenn Ordner vor mehr als x Tagen erstellt wurde...
    82. ' WScript.Echo vardatecreated & " - "& Date & " - "& lngDays
    83. ' If vardatecreated < (Date - lngDays) Then
    84. ' WScript.Echo "alt löschen"
    85. 'Alle Dateien im Ordner löschen
    87. For Each file In objFolder.Files
    88. vardatecreated = file.DateLastModified
    90. 'Script.Echo file & " - "&vardatecreated & " - "& Date & " - "& lngDays
    92. If vardatecreated < (Date - lngDays) Then
    93. Err.Clear
    94. strFile = file.Path
    95. fso.DeleteFile strFile, True
    96. If Err = 0 Then
    97. Writelog "Datei " & strFile & " gelöscht"
    98. Else
    99. Writelog "Datei " & strFile & " konnte nicht gelöscht werden! - Fehler " & Err & " (" & Err.Description & ")"
    100. End If
    101. Else
    102. Writelog "Datei " & strFile & " nicht gelöscht! - zu Neu" & vardatecreated
    103. End If
    104. Next
    106. ' End If
    108. End If
    111. On Error Goto 0
    112. End Sub
    114. '---
    115. 'Löschen leerer Ordner
    116. '---
    118. mko (strRootFolders)
    119. Sub mko (sfolder)
    120. Set fso = CreateObject("Scripting.FileSystemObject")
    121. Set fsofolder = fso.GetFolder(sFolder)
    122. For Each subfolder In fsofolder.SubFolders
    123. mko(subfolder.Path)
    124. Next
    125. If fsofolder.Files.Count = 0 And fsofolder.SubFolders.Count = 0 Then
    126. fsofolder.Delete vbTrue
    127. End If
    129. End Sub
    131. '---
    133. Sub Writelog(strMessage)
    134. flog.writeline strMessage
    135. if boolcscript then WScript.echo strMessage
    136. End Sub


    Ich bin langsam am zweifeln ob ich zu blöde bin ?(
    danke für eure hilfen
    Ihr seid klasse

Facebook