code287a.txt

来自「VB大全（精华版）源代码」· 文本 代码 · 共 10 行

Public Sub Main()
  Dim FileNames As String

  FileNames = Dir("c:\", vbNormal + vbDirectory)
  Do While FileNames <> ""
    Debug.Print FileNames
    FileNames = Dir
  Loop
End Sub