例: Dir function

' List the contents of the c:¥ directory, one entry per line.
Dim pathName As String, fileName As String
pathName$ = "c:¥*.*"
fileName$ = Dir$(pathName$, 0)
Do While fileName$ <> ""
   Print fileName$
   fileName$ = Dir$()
Loop