vba - 在文件夹中搜索时排除系统和打开的文件

Question

我的代码搜索文件夹和子文件夹。我希望在处理这些文件夹中的每个文件时能够排除打开的文件或系统文件。任何帮助都会很棒!

Dim fso, oFolder, oSubfolder, oFile, queue As Collection

Set fso = CreateObject("Scripting.FileSystemObject")
Set queue = New Collection
queue.Add fso.GetFolder("folderpath")

Do While queue.Count > 0
    Set oFolder = queue(1)
    queue.Remove 1 'dequeue
    For Each oSubfolder In oFolder.SubFolders
        If UCase(oSubfolder.Name) <> "DO NOT USE" Then
            queue.Add oSubfolder 'enqueue
        Else
        End If
    Next oSubfolder
    For Each oFile In oFolder.Files
        'Process each file but exclude files such as "~xxxxxx" or thumbs.db or xxxx.tmp files
    Next oFile
Loop

Answer 1

我认为 GetAttr function应该可以帮助你。
这应该排除任何隐藏或打开的文件:

For Each oFile In oFolder.Files 
    If (GetAttr(oFile) And vbHidden) = 0 Then 'Process files that are not hidden
        '
        '~~> Do what you want
        '
Next oFile