TBrowseForFolderDlg

[Rolando]

Hola foro:
alguien sabe de donde se recupera la información de la
carpeta seleccionada. Gracias
--
Rolando Sarrailh
TEL. (0221)-4891480
rsarrailh@ciudad.com.ar

[Yamil Bracho]

Usa la propiedad cText
"Rolando Sarrailh" <rsarrailh@gmail.com> wrote:
>Hola foro:
> alguien sabe de donde se recupera la información de la
>carpeta seleccionada. Gracias
>--
>Rolando Sarrailh
>TEL. (0221)-4891480
>rsarrailh@ciudad.com.ar
>
>

[Rolando]

Hola Yamil: cText en este control es para el título del diálogo, igual
gracias.
"Yamil Bracho" <YamilBracho@hotmail.com> escribió en el mensaje
news:44a2c40f$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>
> Usa la propiedad cText
>
> "Rolando Sarrailh" <rsarrailh@gmail.com> wrote:
>>Hola foro:
>> alguien sabe de donde se recupera la información de la
>>carpeta seleccionada. Gracias
>>--
>>Rolando Sarrailh
>>TEL. (0221)-4891480
>>rsarrailh@ciudad.com.ar
>>
>>
>

[jasm]

Rolando,
Esto uso yo:
DBCloseAll()
WITH OBJECT ::oBrowseForFolderDlg1
:cOkBtnText := "Seleccionar"
:cText := "Seleccionar carpeta"
:cTitle := "Seleccione carpeta"
:cRoot := "C:"
:lCenter := .T.
:lExtendedUI := .T.
:lEditBox := .F.
:lNoNewFolderButton := .T.
END WITH
IF ::oBrowseForFolderDlg1:Run()
::oEdit1:Value := ::oBrowseForFolderDlg1:cRoot
IF Empty( ::cRuta )
::cRuta := ::oEdit1:Value
END IF
IF Empty( ::cRutaSistema )
::cRutaSistema := ::oEdit1:Value + "sistema"
END IF
::CreaFicheros()
::AbreFicheros()
::CargaDatos()
ELSE
::oEdit1:Value := ""
::oBtnBmp12:SetFocus()
END IF

[Rolando]

Ok. José Alfonso :cRoot es lo que buscaba, muchas gracias, si fuera por la
ayuda no la encuentro nunca mas.
"José Alfonso Suárez Moreno" <jasm@tpvsoft.com> escribió en el mensaje
news:[email=44a2decc@news.xailer.com...]44a2decc@news.xailer.com...[/email]
> Rolando,
>
> Esto uso yo:
>
>
> DBCloseAll()
>
> WITH OBJECT ::oBrowseForFolderDlg1
> :cOkBtnText := "Seleccionar"
> :cText := "Seleccionar carpeta"
> :cTitle := "Seleccione carpeta"
> :cRoot := "C:"
> :lCenter := .T.
> :lExtendedUI := .T.
> :lEditBox := .F.
> :lNoNewFolderButton := .T.
> END WITH
>
> IF ::oBrowseForFolderDlg1:Run()
> ::oEdit1:Value := ::oBrowseForFolderDlg1:cRoot
>
> IF Empty( ::cRuta )
> ::cRuta := ::oEdit1:Value
> END IF
>
> IF Empty( ::cRutaSistema )
> ::cRutaSistema := ::oEdit1:Value + "sistema"
> END IF
>
> ::CreaFicheros()
> ::AbreFicheros()
> ::CargaDatos()
> ELSE
>
> ::oEdit1:Value := ""
> ::oBtnBmp12:SetFocus()
>
> END IF

[ignacio]

Rolando,
> Ok. José Alfonso :cRoot es lo que buscaba, muchas gracias, si fuera por
> la ayuda no la encuentro nunca mas.
La clase tan sólo tiene 5 propiedades tipo carácter, pero efectivamente
podría estar mejor explicado. Solucionado.
Gracias.