RE:Directorios y ficheros en un treeview o Listvie
Te envío algunas cosas parecidas, el formulario permitía seleccionar una ruta completa e incluso agregar directorios nuevos si te pierdes mucho mandamé un correo y te envío el formulario completo
Private Sub cmdNew_Click()
bName = InputBox("Write the name for the new Folder", " New Folder...")
If bName <> "" Then
MkDir Dir.Path + "\" + bName
Dir.Path = Dir.Path + "\" + bName
End If
End Sub
Private Sub cmdOK_Click()
If Dir.Path = strPath & "IIE" Or Dir.Path = strPath & "FAP" Or Dir.Path = strPath & "DAG" Or Dir.Path = strPath & "RGA" Or Dir.Path = strPath & "CONSUL" Then
MsgBox "You can not select this path. Please select a diferent one", vbCritical, "Path selection... "
Exit Sub
Else
frmMarcoPropu.txtBrowsePropu.Text = Dir.Path
End If
Unload Me
End Sub
Private Sub Dir_Change()
Me.Caption = Dir.Path
End Sub
Private Sub Drive_Change()
On Error GoTo archivoerror
Dir.Path = Drive.Drive
Dir.Refresh
Me.Caption = Dir.Path
archivoerror:
MsgBox "The unit is not available...", vbCritical, "Error..."
End Sub