LOCAL loDir loDir=CREATEOBJECT("_GetDirEx") * If property btnND,btnOK or btnCancel empty, * then default caption of buttons are not change. * Window Title loDir.WTitle=ALLT(This.Parent.txtWTitle.Value) * Dialog Title loDir.Title=ALLT(This.Parent.txtTitle.Value) * New caption of button "Make New Folder" loDir.btnND=ALLT(This.Parent.txtbtnND.Value) * New caption of button "OK" loDir.btnOK=ALLT(This.Parent.txtbtnOK.Value) * New caption of button "Cancel" loDir.btnCancel=ALLT(This.Parent.txtbtnCancel.Value) * Default directory loDir.DefaultDir=ALLT(This.Parent.txtDefaultDir.Value) * For Shell version 5.0 loDir.NewFolderAllowed=This.Parent.chkNewFolderAllowed.Value * If Default directory is root, same as parametr lReadOnly * in function GetDir() in VFP 7.0 loDir.IsRoot=This.Parent.chkIsRoot.Value * Member ulFlags in struc. * BROWSEINFO (FLL function always insert BIF_USENEWUI if NewFolderAllowed=.T.) *loDir.Flag=16+4 IF GetDirEx(loDir) This.Parent.txtOutPutDir.Value=loDir.OutPutDir ENDIf **************************************************************** * Definiton class _GetDirEx for function GetDirEx() **************************************************************** DEFINE CLASS _GetDirEx AS custom * If property btnND,btnOK or btnCancel empty, * then default caption of buttons are not change. WTitle="" && Window Title Title="" && dialog Title NewFolderAllowed=.T. && For Shell version 5.0 Flag=0 && Member ulFlags in struc. *BROWSEINFO (FLL function always insert BIF_USENEWUI if NewFolderAllowed=.T.) btnND="" && New caption of button "Make New Folder" _btnND_ID=0x3746 && Control ID of button "Make New Folder". * Don't change !!! btnOK="" && New caption of button "OK" _btnOK_ID=0x1 && Control ID of button "OK". Don't change !!! btnCancel="" && New caption of button "Cancel" _btnCancel_ID=0x2 && Control ID of button "Cancel". Don't change !!! DefaultDir="" && Default directory OutPutDir="" && Output directory IsRoot=.F. && If Default directory is root, * same as parametr lReadOnly in function GetDir() in VFP 7.0 ENDDEFINEMartinJ