Databases Reference
In-Depth Information
Dim fillen As Integer
Dim strike As Integer
Dim ErrorBoxCaption$, ErrorBoxMsg$
On Error GoTo FileOpenErr
'Set Up Captions and Messages
ErrorBoxCaption$ = "You must choose a File"
filters$ = LCase(filters$)
fillen = Len(filters$)
If fillen Mod 3 = 0 Then
'if valid filters then process
For ii = 1 To fillen
Step 3
Search$ = Mid(filters, ii, 3)
'Stop
GoSub Build_Filters
Next ii
End If
'Add default
FileFilter = FileFilter & "All Files (*.*),*.*,"
'remove trailing ','
FileFilter = Left$(FileFilter, Len(FileFilter) - 1)
'If the passes default directory is valid change the current
directory to it
If DirectoryExists(defaultdir$) = True Then
ChDir defaultdir$
End If
Try_Again:
vFileName = Application.GetOpenFilename(FileFilter, ,
WindowCaption$)
'Bug - Tries to Open "False.xls" on 2nd Pass Only
If vFileName = "False" Then GoTo FileOpenErr
If vFileName <> "" Then
'File Name Captured with DialogBox
GetPathWithDialog = vFileName
Exit Function
End If
Build_Filters:
Select Case Search$
Case "xls"
FileFilter = FileFilter & "Excel Workbooks (*.xls), *.xls,"
Case "xlt"
FileFilter = FileFilter & "Excel Templates (*.xlt), *.xlt,"
Case "csv"
FileFilter = FileFilter & "Comma Delimited (*.csv), *.csv,"
Case "txt"
