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

我想在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