ayuda con crear directorios (TreeView)

16/07/2007 - 21:12 por daniel | Informe spam
Hola a todos
se puede hacer lo siguiente
dentro de un userform poner 1 TreeView llamado(TreeView1) 1 listbox
(ListBox1) 1 textbox (textbox1) 1 label (label1)
en el Tree View que aparezca el listado de carpetas y sub carpetas de la si
guiente ruta (C:\Documents and Settings\DANIEL\Mis
documentos\programdmgegt)
es decir que en piece a nombrar las carpetas apartir de esa no desde C:\.
1) que cuando se pinche en en una de las carpetas del Tree View en el
listbox1 muestre los archivos que tiene esa carpeta
2) si se puede poner que ciertos archivos con ciertas extensiones no se
puedan visualizar
en el textbox que aparezca la ruta de la carpeta y en el label la ruta
completa `del archivo al pulsar en el listbox1.



espero haber me espresado bien

un saludo y muchas gracias
Daniel

Preguntas similare

Leer las respuestas

#11 daniel
28/08/2007 - 21:10 | Informe spam
Hola Hector Miguel
Muchas gracias por toda la ayuda dada
1)lo de las extensiones no e modificado nada el codigo si me pudieses decir
como se hace para que solo se puedan ver los archivos con las extensiones
que tengo en la columna B de la hoja2
2)a esto que me respondes como se podria hacer para que al arrastar con el
raton del listbox al treeview se copie el archivo en esa carpeta.
Mostrar la cita
3)como se hace para que al final me aparezca la lista de los archivos en la
hoja1 y en la columna A ponga el nombre + la extension Ej.:(archivos.xls) y
en la columna B solo la extension Ej.:(.xls o .txt) y en la columna C la
ruta completa Ej.:(C:\Documents and Settings\DANIEL\Mis
documentos\archivos.xls)
4)tengo en un userform 20 label (dmglabel1,dmglabel2,... y
dmglabel20)
con poco codigo que al pulsar en cualquier de los label ponga en el textbox1
el caption del label que e pulsado.
y si hago doble click aparte de poner el caption en el textbox1 que pulse el
comandbutton1.



siento no explicarme mejor
Un saludo
Daniel
#12 Héctor Miguel
28/08/2007 - 23:04 | Informe spam
hola, daniel !

Mostrar la cita
=> en el procedimiento *GetFiles* esta la instruccion que rellena el ListBox1 con los archivos del directorio seleccionado en el TreView1
For Each fil In fld.Files
If fil.Name Like "*.xls" Then ListBox1.AddItem fil.Name
Next

a) solo toma nota que las EXTensiones de los archivos pueden ser de 3 o mas letras: .XLS, .JPG, .JPEG
b) seria necesario *comprobar* [al menos] los ultimos 4 caracteres del *fil.Name* <= OJO con los de 4 letras como .JPEG
c) si suponemos que pondras las EXTensiones en la columna B de la hoja2... modifica la instruccion If +/- a lo siguiente:
If Application.CountIf([hoja2!b:b], Right(fil.Name, 4)) Then ListBox1.AddItem fil.Name
d) si lo que pretendes es EXCLUIR los archivos cuyas extensiones pongas en la columna B de la hoja2... cambiala a:
If Application.CountIf([hoja2!b:b], Right(fil.Name, 4)) = 0 Then ListBox1.AddItem fil.Name

Mostrar la cita
=> esta parte va a necesitar de un poquitin de mas pruebas [y tiempo] :D

Mostrar la cita
=> considerando que la lista con los archivos [en el control ListBox1] *depende* del directorio seleccionado [en el TreeView1]...
a) *decidir* en que momento se haria el vaciado a la hoja
b) *decidir* que se haria en caso de que ya se hubieran trasladado/copiado/pasado/... *otras* selecciones -???-
c) tomar como base los objetos fil.Name, fil.Type, fil.Path -> igual a la instruccion *If* del sub *GetFiles*

Mostrar la cita
=> con *poco codigo* ??? [a menos que le entremos a los modulos *de clase*]

[como que] empiezo a preguntarme que es lo que *realmente* estas desarrollando -?-
tus consultas van *creciendo* en implicaciones, volumen, numero de interrogantes, etc.
[es como si no estuvieras analizando los codigos y las propuestas... *con animos de entenderlas*] -?-

[y me da la impresion de que siguen quedando algunos detalles que no has dejado *salir del tintero*] -???-
podrias comentar *de que estamos hablando* ? [claro, si no es una indiscrecion de parte mia] :))

saludos,
hector.
#13 Héctor Miguel
29/08/2007 - 07:14 | Informe spam
hola [de nuevo], daniel !

para esta parte de tu consulta:
Mostrar la cita
el control ListBox1 [donde se depositan los archivos de la carpeta seleccionada en el control TreView1]
-> NO da soporte para *drag'n'drop* :-((

podrias/tendrias que... sustituirlo por un control ListView y revisar la siguiente conversacion:
-> Drag and Drop from a TreeView to a ListView
http://tinyurl.com/3768pt
http://preview.tinyurl.com/3768pt

o... podrias implementar algo de la siguiente pagina [si se va a continuar con el control ListBox1]...
-> http://www.dailydoseofexcel.com/arc...-and-drop/

haz algunas pruebas y... comentas ?
saludos,
hector.
#14 daniel
29/08/2007 - 20:30 | Informe spam
Hola Hector Miguel
Muchas gracias por toda tu ayuda y tiempo.
siento hacer te tantas preguntas.
lo que estoy creando es un gestor de archivos sin utilizar las ventanas de
windows.
Es que hay algunas macros que no entiendo muy bien lo que hacen y por no
estar hacien do mil preguntas pero si que intento comprender el
funcionamiento.
como se aria con modulos de clase
Mostrar la cita
voy a mirar los link que pusiste


un saludo y muchas gracias
daniel


"Héctor Miguel" escribió en el mensaje
news:
Mostrar la cita
#15 Héctor Miguel
30/08/2007 - 02:05 | Informe spam
hola, daniel !

Mostrar la cita
aqui tienes un ejemplo trabajando con commandbuttons [habria que adaptarlo para controles lebel]:
-> Handle Multiple UserForm Buttons With One Subroutine
http://www.j-walk.com/ss/excel/tips/tip44.htm

aqui encuentras una conversacion -precisamente- aplicada a controles label:
-> Userform Label Click
http://tinyurl.com/ys6lwm
http://preview.tinyurl.com/ys6lwm

si cualquier duda... comentas ?
saludos,
hector.
Ads by Google
Search Busqueda sugerida