Question

我试图将两个对象组合到一个列表中，以便在一个“ for each”循环中进行迭代。在VBA / VBscript中甚至有可能？

例如，我想基于上一个mod从特定位置删除所有文件和文件夹。日期，我不想创建两个循环。

Set oFolder = fso.GetFolder(FolderPath)
Set oFileList = oFolder.Files
Set oFolderList = oFolder.SubFolders
Set oFullList = oFileList + oFolderList (???)

For Each oFile In oFullList 
    lastModDate = oFile.DateLastModified
    If (lastModDate < PurgeDate) Then
        oFile.Delete True
    End If
Next

Answer 1

仅使用FileSystemObject方法是不可能的。即使您从oFolder.Files和oFolder.SubFolders的元素创建了单个数组或ArrayList，也需要两个单独的循环才能实现。

您可以使用Shell.Application对象枚举文件夹内容，但是生成的对象没有delete方法，因此您仍然需要FileSystemObject对象和方法来删除文件/文件夹：

path = "C:\some\folder"

Set app = CreateObject("Shell.Application")
Set fso = CreateObject("Scripting.FileSystemObject")

For Each it In app.NameSpace(path).Items
    If it.IsFolder Then
        fso.GetFolder(it.Path).Delete
    Else
        fso.GetFile(it.Path).Delete
    End If
Next

但是，与仅使用FileSystemObject方法并循环两次相比，我看不到这种方法的显着优势。如果您担心重复代码，只需将循环包装在一个过程中，然后为子文件夹和文件调用该过程。

path = "C:\some\folder"

Sub DeleteItems(list)
    For Each it In list
        it.Delete
    Next
End Sub

Set fso = CreateObject("Scripting.FileSystemObject")
Set oFolder = fso.GetFolder(path)

DeleteItems oFolder.Files
DeleteItems oFolder.SubFolders

在VBA中对对象进行分组

1 个答案: