[AccessD] Code to get a directory name via navigation

We don't know any control for this, but we use Common Dialog control to take
a file, then InstrRev from the file that they select using the \(slash
position) right in the Filename indicate.

See the code
Function RetrieveDirName(InitialDir as string) as string
Screen.PreviousControl.SetFocus
CtrlCmmDialog.DialogTitle = "Select a file"
CtrlCmmDialog.Filter = "Al file types (*.*)|*.*"
CtrlCmmDialog.DefaultExt = ".*"
CtrlCmmDialog.Filename = ""
CtrlCmmDialog.InitDir = InitialDir
CtrlCmmDialog.ShowOpen
If CtrlCmmDialog.Filename <> "" Then
    RetrieveDirName = Left(CtrlCmmDialog.Filename,
InStrRev(CtrlCmmDialog.Filename, "\") - 1)
	else
	retrieveDiaName="NULL"
End If
Exit Function
End Function


Sometimes we use the FileSearch control if know the name of the file that
need its DirName

Regards

Juan Menendez
Mastercafe SL

-----Mensaje original-----
De: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]En nombre de Arthur Fuller
Enviado el: sábado, 29 de marzo de 2003 16:16
Para: accessd at databaseadvisors.com
Asunto: [AccessD] Code to get a directory name via navigation


I have the ADH code that lets you pick a filename by nivagating to it, but
it seems none of the args lets you request a directory name instead of a
filename. Anyone have code to do this? (Or if it's elsewhere in ADH I just
have to find it.)

TIA,
Arthur

_______________________________________________
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com