FoxPro/Visual FoxPro - Boton Examinar

La idea es usar un boton Examinar que le permita al operador seleccionar una ruta del disco duro para guardar un archivo en ese lugar.
No se que control usar que abra una ventana que muestre las unidades y carpetas.
Gracias de antemano.

en el metodo click del boton escribis

putfile()

mira en el help como se usa
suerte

ve este ejemplo que conseguie en la red:

Explorador de archivos en Formulario
****
Public oform1
oform1=Newobject("form1")
oform1.Show
Return

Define Class form1 As Form
DoCreate = .T.
Caption = "Explorador de Archivos"
Name = "Form1"
Add Object ole1 As OleControl With ;
Top = 14, ;
Left = 18, ;
Height = 200, ;
Width = 341, ;
Name = "Ole1" ,;
OleClass = "Shell.Explorer.2"

Add Object command1 As CommandButton With ;
AutoSize = .T., ;
Top = 216, ;
Left = 80, ;
Height = 27, ;
Width = 114, ;
Caption = "Mostrar contenido de la carpeta", ;
Name = "Command1"

Procedure Init
This.ole1.Object.Navigate2("c:")
EndProc

Procedure command1.Click
Local cDir
cDir = Getdir(",",",2)
Thisform.ole1.Navigate2(cDir)
EndProc
EndDefine
****

Jesus Cordero
Caracas - Venezuela