Programación General > Power Builder

 Capturar Carpetas, No Archivos

<< < (2/2)

F_Tanori:

--- Cita de: "leoandres" ---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...
--- Fin de la cita ---
sobran los signos +



--- Código: Text ---value = GetFileOpenName(&#34;Seleccione Archivo&#34;, file_name, archivo, &#34;DOC&#34;, &#34;Text Files (*.TXT),*.TXT,&#34;+ &#34;Doc Files (*.DOC),*.DOC&#34; ) 
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 :P

en lugar de hacer el ciclo yo haria esto


--- Citar ---carpeta=mid(ls_Archivo,1,len(file_name)-len(archivo))
--- Fin de la cita ---

aunque creo que debe haber una solucion un poco mas efectiva :P


tendre que mandale un correo a Zuzunaga  :lol:  :P

Saludos

leoandres:
Saludos...

Si!,  hay que tomar para el ciclo la variable file_name que contiene la ruta y el nombre del archivo, en la variable archivo solo esta el nombre del archivo sin la ruta...

Navegación

[0] Índice de Mensajes

[*] Página Anterior