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

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

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

show a message box containing a list of all files in a directory except one?

excel

vba

file

messagebox