0

我是 VBS 和一般脚本的相对新手。我有一个管家脚本，其中包括清除我遇到了一些麻烦的空文件夹，希望有人能告诉我哪里出错了..

这是我的子

sub clearfolder(folder) 'Recursive search for old empty folders
For Each Subfolder in Folder.SubFolders
    If Subfolder.Files.Count = 0 And Subfolder.SubFolders.Count = 0 Then
        Logwrite "The folder:" & Subfolder.Path & " is empty and will be removed"
        redim preserve arrFolders(arrpath)
        arrFolders(arrpath) = Subfolder.Path
        foldersDeleted = foldersDeleted + 1
        arrpath = arrpath + 1
    else
        Logwrite "The folder:" & Subfolder.Path & " Contains files or folders"
    End If
    clearfolder Subfolder
Next
end sub

当我打电话给副..

这有效：

clearfolder objFSO.GetFolder ("F:\Scripts\file_cleardown\Testing\_UK")

这不起作用：（strVariable 在路径上方）

clearfolder objFSO.GetFolder (strVariable)

谁能解释为什么我似乎无法传递包含路径而不是完整路径的变量？我尝试了各种方法将路径作为变量传递，但通常会出现以下错误。

---------------------------
Windows Script Host
---------------------------
Script: F:\Scripts\file_cleardown\bill_cleanup.vbs
Line:   70
Char:   2
Error:  Object required: 'folder'
Code:   800A01A8
Source: Microsoft VBScript runtime error

---------------------------
OK   
---------------------------

提前致谢！

4

0 回答 0