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