vbs（25，3）Microsoft VBScript運行時錯誤：無效的過程調用或參數

我編寫了一個腳本來抓取文件中的文件夾列表，它將檢查並刪除超過90天的文件。vbs（25，3）Microsoft VBScript運行時錯誤：無效的過程調用或參數

該腳本能夠刪除超過90天的文件。然而，我繼續得到一個錯誤說：

D:\cleanup90days.vbs(25, 3) Microsoft VBScript runtime error: Invalid procedure call or argument

我不知道我錯過了什麼。任何幫助將不勝感激。

下面是我的腳本：

Dim days 
Dim inputFolderList, ObjFolder, Files, objFileAge 

If Not WScript.Arguments.Count = 2 Then 
    Wscript.Echo "Invalid number of arguments. Arg1: Daily or Weekly. Arg2: Remove all files older then this" 
    WScript.Quit(-1) 
End If 

days = WScript.Arguments.Item(1) 

inputFileList = "D:\FileGrep2.txt" 
Set Fso = CreateObject("Scripting.FileSystemObject") 
Set objTextFile = fso.OpenTextFile(inputFileList, 1) 

Do Until objTextFile.AtEndOfStream 
    sFolderName = objTextFile.ReadLine 
    getfoldernames(sFolderName) 
Loop 

Function getfoldernames(sFolderName) 
    Set ObjFolder = fso.GetFolder(sFolderName) 
    Set Files = ObjFolder.Files 

    For Each Check In Files 
     objFileAge = DateDiff("n", Check.DateLastModified, Now) 
     If objFileAge > 90 Then 
      WScript.Echo Now & "the following will be deleted " & Check.Path 
      Check.Delete 
     End If 
    Next 
End Function

來源

2017-09-07 mirei

您的腳本看起來沒問題......腳本中還有其他事情嗎？或者這是完整的腳本？ –

在調用'getfoldernames（sFolderName）之前檢查'sFolderName'是否爲空' – SearchAndResQ

您發佈的代碼中的第25行是'objFileAge = DateDiff（「n」，Check.DateLastModified，Now）'。這真的是提高錯誤的路線嗎？ –

也許，你已經有了一個空行中輸入文件"D:\FileGrep2.txt"造成Set ObjFolder = fso.GetFolder(sFolderName)線引發此錯誤。

來源

2017-09-08 05:30:06 AutomatedChaos

非常感謝你@AutomatedChaos ...我沒有注意到我的輸入文本文件中有一個空行。我再也沒有得到這個錯誤。 – mirei

@mirei很高興我可以幫忙。如果這是您的問題的解決方案，您可以將此標記爲接受的答案並可選擇提供。這給虛擬的互聯網點給回答者似乎讓人開心:) – AutomatedChaos

vbs（25，3）Microsoft VBScript運行時錯誤：無效的過程調用或參數

回答

相關問題