Mega Code Archive

 

Categories / VisualBasic Script / Forms

 

Use Dir function to get the file directory

Sub DirDemo()   Dim FType As String   FType = "*.xls"   MsgBox Dir(FType)    End Sub