私有子命令1_Click()
Dim fname作為字符串
fname = Dir("d:\vb\*。*", 7)
List1。清楚的
做
如果fname = " "那麽退出Do
List1。附加項目名稱
fname = Dir()
環
MsgBox列表1。列表計數& amp"文件已添加！"
末端接頭
要在數組中保存文件名，您可以在添加後執行此操作:
ReDim a(0到List1。ListCount-1)作為字符串
對於i = 0到List1。列表計數- 1
a(i) = List1。列表(壹)
打印a(i)
然後