Visual Basic - Recorrer directorios

Life is soft - evento anual de software empresarial
 
Vista:

Recorrer directorios

Publicado por Alfredo Fleming (23 intervenciones) el 07/03/2005 20:18:01
Quisiera saber como puedo hacer para recorrer los directorios de windows desde un programa en visual basic, si me pueden ayudar se los agradeceria.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Recorrer directorios

Publicado por soft (1 intervención) el 07/03/2005 20:34:54
´Objeto FileSystemObject global
Dim DirSys As New FileSystemObject

´Al cargar el formulario
Private Sub Form_Load()
Dim Unidad As Drive

´ Recorremos todas las unidades
For Each Unidad In DirSys.Drives
´ si la unidad está preparada
If Unidad.IsReady Then
´ la exploramos añadiendo un elemento
´ al TreeView con el nombre de volumen
Explora Unidad.Path, ArbolCarpetas.Nodes.Add( _
, , , Unidad.VolumeName + \\\" (\\\" + _
Unidad.Path + \\\")\\\")
Else ´ si no está preparada
´ añadimos un elemento con la letra
ArbolCarpetas.Nodes.Add , , , Unidad.Path
End If
Next
End Sub

´ Si el formulario cambia de tamaño
Private Sub Form_Resize()
´ ajustamos el TreeView
ArbolCarpetas.Move 0, 0, ScaleWidth, ScaleHeight
End Sub

´ Este procedimiento explora de forma recursiva la
´ carpeta que recibe como primer parámetro, añadiendo
´ hijos a partir del nodo que recibe como segundo
Private Sub Explora(Raiz As String, Nodo As Node)
Dim Carpeta As Folder, SubCarpeta As Folder

´ obtenemos la carpeta
Set Carpeta = DirSys.GetFolder(Raiz)
´ recorremos todas las subcarpetas
For Each SubCarpeta In Carpeta.SubFolders
´ explorándolas de forma recursiva
Explora SubCarpeta.Path, ArbolCarpetas.Nodes.Add( _
Nodo, tvwChild, , SubCarpeta.Name)
Next
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Recorrer directorios

Publicado por Roberto (6 intervenciones) el 26/03/2017 08:57:02
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Public Sub AnalidarDirectorioRPX(Directorio As String)
Dim DirSys As New FileSystemObject
Dim Carpeta As Folder, SubCarpeta As Folder
Dim Sql As String
 
 
'Sql = "Create Table RPXInHd (FileName NVarChar(255), DateCreated DateTime, DateLastAccessed DateTime, DateLastModified DateTime, primary key (FileName))"
'ADODropTable "RPXInHd"
'CnExecute Sql
 
 
Set Carpeta = DirSys.GetFolder(Directorio)
Dim F As File
For Each F In Carpeta.Files
    'Sql = "Insert into RPXInHd(FileName, DateCreated, DateLastAccessed, DateLastModified) Values ('" & F.Path & "', '" & F.DateCreated & "','" & F.DateLastAccessed & "', '" & F.DateLastModified & "')"
    'CnExecute Sql
    MsgBox F.Path
Next
 
Dim FF As Folder
For Each FF In Carpeta.SubFolders
    AnalidarDirectorioRPX FF.Path
Next
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar