Use Dir function to get the file directory
Sub DirDemo() Dim FType As String FType = "*.xls" MsgBox Dir(FType) End Sub