ayuda con crear directorios (TreeView)

hola, daniel !

Mostrar la cita

se puede... dentro de un userform poner 1 TreeView... 1 listbox... 1 textbox... 1 label
... en el Tree View que aparezca el listado de carpetas y sub carpetas de la siguiente ruta
(C:\Documents and Settings\DANIEL\Mis documentos\programdmgegt)... 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.

ve si te sirve alguna de las siguientes conversaciones: -> http://tinyurl.com/24edur

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

hola, daniel !

Mostrar la cita

probe lo siguientre pero me da error no se yo solo e puesto en el userform un control treeview y e puesto el codigo.
me podrias ayudar con el error. no se a definido tipo por el usuario [...]

el ejemplo que estas usando [no lo menciona el post que usas como base, pero]...
-> requiere agregar una referencia en el proyecto de macros a la libreria -> Microsoft Scripting Runtime <-
-> en el editor de vba ...[menu] herramientas / referencias [c:\windows\system[32]\scrrun.dll]

comentas si continua algun error ? [y el numero, descripcion, linea donde salta, etc.] :))
saludos,
hector.

Hola Hector Miguel
Losiento por tardar tanto en responder
el post biene en una de las conversaciones del enlace que me pasaste bienen
estas en ingles
con lo de la libreria se soluciono el problema pero ahora me salio otro:
en la fila que cone
Call GetFiles(fld)
sabes como solucionar lo

un saludo y muchas gracias
Daniel
"Héctor Miguel" escribió en el mensaje
news:
Mostrar la cita

hola, daniel !

Mostrar la cita

probe lo siguientre pero me da error no se yo solo e puesto en el
userform un control treeview y e puesto el codigo.
me podrias ayudar con el error. no se a definido tipo por el usuario
[...]

el ejemplo que estas usando [no lo menciona el post que usas como base,
pero]...
-> requiere agregar una referencia en el proyecto de macros a la
libreria -> Microsoft Scripting Runtime <-
-> en el editor de vba ...[menu] herramientas / referencias
[c:\windows\system[32]\scrrun.dll]

comentas si continua algun error ? [y el numero, descripcion, linea
donde salta, etc.] :))
saludos,
hector.

hola, daniel !

Mostrar la cita

... con lo de la libreria se soluciono el problema
pero ahora me salio otro: en la fila que pone
Call GetFiles(fld)
... como solucionarlo

asi... sin mayor detalle ? [numero de error... texto del mensaje de error... ???]
solo se me ocurre que haga falta copiar/incluir/... el procedimiento que falla -?-

-> Private Sub GetFiles(fld As Folder, Optional par As Folder = Null)

comentas [si hubiera] algun detalle adicional ?
saludos,
hector.

hola, daniel !

Mostrar la cita

si yo creo que es por que no tengo copiado el codigo me podias decir cual es.
me da el siguiente error:
error de copilacion no se ha definido sub o funcion [...]

no me queda claro si copiaste todo el codigo de la exposicion en la conversacion sugerida -?-
por si las dudas... el siguiente es el ejemplo completo:

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

' == inicio del codigo =
' keepITcool
' Option Explicit
Private Sub tvPopulate(sPath As String)
Dim fso As FileSystemObject
Dim fld As Folder
Set fso = New Scripting.FileSystemObject
If fso.FolderExists(sPath) Then
TreeView1.Nodes.Clear
Set fld = fso.GetFolder(sPath)
Call GetFiles(fld)
Else
MsgBox "The folder path " & sPath & "does not exist"
End If
End Sub
Private Sub GetFiles(fld As Folder, Optional par As Folder = Null)
Dim kid As Folder
Dim fil As File
Dim nod As Node
On Error Resume Next
If par Is Nothing Then
Set nod = TreeView1.Nodes.Add(, , fld.Name, fld.Name)
nod.Expanded = True
Else
TreeView1.Nodes.Add par.Name, tvwChild, fld.Name, fld.Name
End If
Application.StatusBar = "Filling nodes for " & fld.Path
For Each kid In fld.SubFolders
Call GetFiles(kid, fld)
Next
For Each fil In fld.Files
If fil.Name Like "*xls" Then
TreeView1.Nodes.Add fld.Name, tvwChild, fil.Path, fil.Name
End If
Next
End Sub
Private Sub TreeView1_Click()
MsgBox TreeView1.SelectedItem
End Sub
Private Sub UserForm_activate()
Call tvPopulate("D:\my documents")
Application.StatusBar = ""
End Sub
Private Sub UserForm_Initialize()
With TreeView1
.Appearance = cc3D
.Indentation = 12
End With
End Sub