1、
Dim str As String = ""For Each f As String In FileSys.GetFiles("d:\") str &= FileSys.GetName(f) & "|"Next
msgbox(str.Trim("|"))