我有VBscript可以从已存在30天的文件夹中删除文件。但是我正在尝试在一个脚本中添加多个文件夹路径

Question

我有VB脚本，该脚本将从30天以上的文件夹中删除文件。但是问题是它只会从一个文件夹中删除。我需要在一个脚本中添加文件夹的多个路径。这样一个脚本可以从多个文件夹中删除文件。

Constr strPath =“ D：\ LIMS测试\”昏暗的objFSO设置objFSO = CreateObject（“ Scripting.FileSystemObject”）

呼叫搜索（strPath）

'如果您想在Windows Schedule Task中使用此脚本，请在下面的行中注释掉WScript.Echo“完成。”

子搜索（str）昏暗的objFolder，objSubFolder，objFile设置objFolder = objFSO.GetFolder（str）对于objFolder.Files中的每个objFile

    ' Use DateLastModified for modified date of a file
    If objFile.DateLastModified < (Now() - 30) Then
        objFile.Delete(True)
    End If

Next
For Each objSubFolder In objFolder.SubFolders
    Search(objSubFolder.Path)

    ' Files have been deleted, now see if the folder is empty.
    If (objSubFolder.Files.Count = 0) Then
        objSubFolder.Delete True
    End If

Next

结束子

Answer 1

您可以简单地为要处理的所有文件夹调用Search：

Search "D:\LIMS Testing\"
Search "D:\some other folder\"
Search "D:\yet another folder\"

如果要处理的所有文件夹已经在同一个文件夹中（例如，如果它们都在D:\LIMS Testing\下，则您的代码将起作用，因为Search子例程是递归的。