aloalo
Publicado: Diciembre 07, 2005 12:05 pm
Report Post
Saludos...sobran los signos +
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...
carpeta=mid(ls_Archivo,1,len(file_name)-len(archivo))