SoloCodigo

Mandame un correo a DavidZuzunaga@hotmail.com y te envio un ejemplo que te abre la ventanita de dialogo para elegir una carpeta ,o unidad

Saludos...

Hace un tiempo vi un tip que armaba la estructura del arbol de directorios(carpetas) del disco duro en un TreeView, no lo consigo ahora, pero por el momento te doy una solución...
que el usuario tome cualquier archivo de esa carpeta y en la variable que recibes el nombre del archivo determinas donde se encuentra ubicado dicho archivo buscando en reversa el backslash (\) y cortas esa variable hasta esa posición...
Te doy el ejemplo:

integer value
string archivo, carpeta
value = GetFileOpenName("Seleccione Archivo",+ file_name, archivo, "DOC",  + "Text Files (*.TXT),*.TXT,"+ "Doc Files (*.DOC),*.DOC" )

// Ya tenemos el nombre del archivo seleccionado en la variable archivo...
IF len(archivo) > 0 THEN
value=len(archivo)
DO while mid(archivo,value,1) <> "\"
value --
LOOP
carpeta=left(archivo,value)
ELSE
MessageBox('Error!','No seleccionó archivo!')
END IF

...

Espero que te sirva...
Prueba...

Saludos...

Hace un tiempo vi un tip que armaba la estructura del arbol de directorios(carpetas) del disco duro en un TreeView, no lo consigo ahora, pero por el momento te doy una solución...
que el usuario tome cualquier archivo de esa carpeta y en la variable que recibes el nombre del archivo determinas donde se encuentra ubicado dicho archivo buscando en reversa el backslash (\) y cortas esa variable hasta esa posición...
Te doy el ejemplo:

integer value
string archivo, carpeta
value = GetFileOpenName("Seleccione Archivo",+ file_name, archivo, "DOC", "Text Files (*.TXT),*.TXT,Doc Files (*.DOC),*.DOC" )

// Ya tenemos el nombre del archivo seleccionado en la variable archivo...
IF len(archivo) > 0 THEN
value=len(archivo)
DO while mid(archivo,value,1) <> "\"
value --
LOOP
carpeta=left(archivo,value)
ELSE
MessageBox('Error!','No seleccionó archivo!')
END IF

...

Espero que te sirva...
Prueba...

sobran los signos +



Ok no sabia que en esa version no estaba, pero en esa opcion seria forzar a que hibiera al menos un archivo en en la carpeta :s

por cierto se cuelga

en lugar de hacer el ciclo yo haria esto

carpeta=mid(ls_Archivo,1,len(file_name)-len(archivo))

aunque creo que debe haber una solucion un poco mas efectiva


tendre que mandale un correo a Zuzunaga    

Saludos