Excel-VBA查找给定path的pdf文件

问题：
我需要知道哪些文件已放置在一系列文件夹中。 我想在每个文件夹中列出哪些文件，并且能够在不需要手动进入每个文件夹的情况下进行检查。 将不同目录中的多个文件“同步”到一个集中目录，这样如果从文件夹中删除一个文件，目录就会反映这个更改。

我希望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 (ie 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 

你需要做的是创build一个检查文件是否存在的位。 希望这可以帮助