code289a.txt

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

Public Sub Main()
  Dim FileName As String

  FileName = Dir("c:\windows\*.txt")
  Do While FileName <> ""
    Debug.Print FileName
    FileName = Dir
  Loop
End Sub