Question

〓〓在vb中，如何获取一个文件夹里面所有文件的文件名？〓〓

最好能给我一个函数。
我打算要先获取一个目录中的文件名，然后据此把所有文件合并起来。

Answer 1

'请先引用 Microsoft Scripting Runtime

Public ObjFso As New FileSystemObject
dim name(),DestPath as string

DestPath = "目录名"

Set objFolder1 = ObjFso.GetFolder(DestPath)
For Each objfolder2 In objFolder1.SubFolders
Name(i)=objfolder2
i=i+1
Next