vb监视目录，一但有文件加入，list显示文件名，若有两个文件以上，list分行显示文件（每个文件名占一行）

Question

我做过很多个，但总出现1个问题：当出现1个文件时，能报出文件名，当出现1个以上时，只是报出其中一个文件名，不能全部报出

Answer 1

FileNames = Dir(DirNames, vbNormal + vbDirectory)
txtTemp = ""
Do While FileNames <> ""
    If FileNames <> "." And FileNames <> ".." Then
      If (GetAttr(DirNames & FileNames) And vbDirectory) = vbDirectory Then
        '如果是文件夹 则
      Else
        '如果是文件
        If Right(UCase(FileNames), 4) = ".JPG" Then
            txtTemp = txtTemp & "|" & DirNames & FileNames
        End If
      End If
    End If
FileNames = Dir '再次调用dir函数,此时可以不带参数
Loop

Answer 2

上面是我的一个 列出某目录下全部JPG图片的代码