Question

问题：
我需要知道哪些文件放在一系列文件夹中。我想列出每个文件夹中有哪些文件，并且能够随时检查，而无需手动进入每个文件夹。一种从不同目录到集中目录的多个文件的“同步”，这样如果我从文件夹中删除文件，那么目录将反映这一变化。

我希望Excel可以帮助解决这个问题。总之，我希望能够做到这一点：

Filename     FilePath                     Exists

abc_4.23.11  C:\4-23-11\abc_4.23.11.pdf   *True/False*

详情/假设：

主目录不会更改文件。因此文件“abc.pdf”将始终位于同一文件夹中。

假设文件夹1具有以下约定：

文件夹名称：mm-dd-yy (i.e 4-30-11)

文件夹1的内容：一系列其他子文件夹，我们将这些字母称为文件夹A，文件夹B，文件夹C ...文件夹Z.

在每个子文件夹中都有一个pdf文件，我需要确认它在那里。

如果有任何问题，请告诉我。

万分感谢！

Answer 1

这可能有助于开始：

Sub ListAllFiles() 
Dim fs As FileSearch, ws As Worksheet, i As Long 
Set fs = Application.FileSearch 
With fs 
    .SearchSubFolders = False ' if you want to search the sub folders also, set to true
    .FileType = msoFileTypeAllFiles 'change this depending on the types of files you would like to filter
    .LookIn = "C:\"  'this will be the search location
    If .Execute > 0 Then 
        Set ws = Worksheets.Add 
        For i = 1 To .FoundFiles.Count 
            ws.Cells(i, 1) = .FoundFiles(i) 
        Next 
    Else 
        MsgBox "No files found" 
    End If 
End With 
End Sub

您需要做的是创建检查文件是否仍然存在的位。希望这有帮助

Excel-VBA查找给定路径的pdf文件

1 个答案: