用Dir列出檔案的名稱

這個是VB函數Dir的特別功能,在很多地方都很有用。(準備一個List1、Command1)

Private Sub Command1_Click()
Dim p As String
p = Dir("c:\")
Do Until p = ""
DoEvents
List1.AddItem p
p = Dir
Loop
End Sub


上一頁