ezequiel
27 de Enero del 2004

hola que tal tengo un explorador hecho en visual basic.La parte del explorador como dije ya la
tengo completamente terminada te agradesco mucho igualmente la ayuda "sDomingo"
pero lo que en realidad necesito es si por favor me pueden ayudar con la pregunta
que les hago mas abajo, y muchas gracias por su paciencia


En el control treeview se leen las carpetas del sistema y en el listview los archivos , ahora
¿como hago para que en un control treeview me reconoscan un nodo seleccionado
como a una carpeta del sistema?
el codigo que hice hasta ahora es el siguiente pero creo que estoy muy lejos de
poder lograrlo

Private Sub CmdAgregar_Click()

Dim nombre As String
Dim fso As FileSystemObject


nombre = "app.path" & TreeView1.SelectedItem.Text

If fso.GetFolder(nombre) = True Then
MsgBox "La carpeta existe"
Else
MsgBox "La carpeta no existe"
End If


End Sub

sdemingo
27 de Enero del 2004

Hola "Ezoquiel",

No entiendo muy bien tu pregunta, no se si lo que quieres hacer es aladir una carpeta nueva o preguntar solo si existe la carpeta...

Para eso tendrás que preguntar

If fs.FolderExists(nombre) Then
MsgBox "La carpeta existe"
Else
MsgBox "La carpeta NO existe"
End If

Salu2
sdemingo

sdemingo
27 de Enero del 2004

If fso.FolderExists(nombre) Then
MsgBox "La carpeta existe"
Exit Sub
Else
fso.CreateFolder(nombre)
TreeView1.Refresh ' o en su defecto volver a recorrer todos los nodos para cargarlo de nuevo con la capeta creada
End If

salu2
sdemingo