Question

我试图在excel中显示一个消息框，显示目录中所有文件的列表，如下所示：

 Dim StrFile As String
    StrFile = Dir("S:\Tasks\Tenders\" & Range("M" & ActiveCell.Row).Value & "\" & Range("Z" & ActiveCell.Row).Value & "\*.*")
    StrFile = Dir
        MsgBox StrFile

目前问题是这只显示了一个可能的20个文件。

我试图获取消息框中列出的文件夹中的所有文件，如下所示：

File 1
File 2
File 3
etc

我还有一个名为log.txt的文件，我希望将其排除在列表之外。

有人可以告诉我最好的方法吗？提前致谢

Answer 1

IIRC，你应该这样做：

Dim StrFile As String, StrFiles as String
StrFile = Dir("S:\Tasks\Tenders\" & Range("M" & ActiveCell.Row).Value & "\" & Range("Z" & ActiveCell.Row).Value & "\*.*")

Do While StrFile <> ""
    If StrFile <> "log.txt" Then StrFiles = StrFiles & vbCrLf & StrFile
    StrFile = Dir
Loop

MsgBox StrFiles

显示一个消息框，其中包含除一个目录之外的所有文件的列表？

1 个答案: