VB如何获取一个目录下所有文件名？

RT

代码如下，假设你要获取"D:\"下的文件，只需将下面的foldername = "d:\"的"d:\"换为你要获取的目录就行了，另外filenames(100) 是存取文件名，要尽量大一些维数比你大文件多才行。

Private Sub Form_Load()
Dim fname As String
Dim student As String
Dim foldername As String
Dim filenames(100) As String
Dim i As Integer
foldername = "d:\"
fname = Dir(foldername & "*.*", 7)
i = 0
Do
If fname = "" Then Exit Do
filenames(i) = fname
i = i + 1
fname = Dir()
Loop

End Sub

还有个更简单的 一句代码搞定

shell "cmd dir d:"

这个代码虽短 但看你的情况来决定用上面的还是我这个

用filelist控件

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息