Databases Reference
In-Depth Information
If UseNewDialogStyle = True Then
Flags = Flags + BIF_NEWDIALOGSTYLE
End If
If DirectoryExists(initialpath$) = False Then
'An Invalid initial path was specified - Change to Root
initialpath$ = "c:\"
End If
SteroidBrowse = GetDirectory(initialpath$, Flags,
CenterOnScreen, "Please select a location to store data files")
End Function
