Sección de códigos , trucos y ejemplos para visual basic

315 - Listar archivos y directorios con el control Inet

Contenido:

Ejemplo 1
Ejemplo 2
Enlaces relacionados

Ejemplo 1

Ejemplo para conectarse a un Ftp y poder obtener la lista de archivos de un determinado directorio y también poder visualizar los mismos en un control ListView

El ejemplo muestra como usar los comandos DIR y CDUP entre otros, para poder listar los archivos y directorios en forma de íconos en el listview, además de visualizar los mismos en forma ordenada alfabeticamente.

Nota : el ejemplo solo muestra como obtener y listar, pero no permite subir , bajar, eliminar etc.. ficheros y directorios.

En estos enlaces podés ver algunos ejemplos relacionados

El formulario

vista del formulario dejemplo para poder listar archivos y directorios usando el control Inet de visual basic

Antes de colocar el código del formulario del ejemplo del gráfico anterior, se describe un poco como obtener todos los archivos usando el comando Dir

Primeramente debemos conectarnos al Ftp indicando la dirección url del servidor Ftp, y el usuario y contraseña se es necesario, usando las propiedades Url, Password y UserName

por ejemplo :

Inet.URL = "ftp://ftp.unservidor.com"
Inet.UserName = Usuario
Inet.Password = Password

Luego , si ejecutamos el comando Dir como parámetro del método Execute

Inet.Execute , "DIR"

... se comienzan a recibir los datos en el evento Inet_StateChanged

Al hacer la petición con el comando Dir, para obtener los datos usamos el método GetChunk, que nos devolverá un String con los nombres de los directorios y archivos.

Este String con la lista, separa cada nombre de archivo y carpeta mediante el caracter vbCrLf, es decir un salto de carro, como muestra la siguiente imagen

vista de la variable con el listado con los archivos y directorios

Luego se llama a una función que separa mediante la función Split los nombres

Lista = Split(str_Listado, vbCrLf)

¿ Pero como diferenciar si es un directorio o un archivo ?

Consultando el último caracter. Si el último caracter es una barra invertida ( El separador de path ( " / " ) es por que es un directorio.

Una ves finalizada la descarga de datos ( se obtubo la lista ), se descompone la cadena anterior mediante la función Split y se recorre el vector para obtener los ficheros y carpetas

El código de todo esto sería el siguiente:

Private Sub Command1_Click() ' Datos de la conexión FTP Inet1.URL = "ftp://ftp.direccion.com" 'Inet1.Password = password 'Inet1.UserName = usuario ' ejecuta el comando Inet1.Execute , "DIR" End Sub Private Sub Form_Load() Me.AutoRedraw = True End Sub Private Sub Inet1_StateChanged(ByVal State As Integer) Select Case State Case icResponseCompleted Dim V_Datos As Variant Dim Datos As String Dim Salir As Boolean Salir = False Datos = "" ' Obtiene datos V_Datos = Inet1.GetChunk(1024, icString) DoEvents Do While Not Salir Datos = Datos & V_Datos DoEvents 'Va almacenando los archivos y directorios V_Datos = Inet1.GetChunk(1024, icString) ' Si la cadena que se obtiene está vacía sale If Len(V_Datos) = 0 Then Salir = True End If Loop 'Imprime la lista en el formulario Mostrar_Lista (Datos) End Select End Sub Sub Mostrar_Lista(Lista As String) Dim Archivos() As String Dim Sfile As String 'Desgloza la cadena y la almacena en un vector Archivos = Split(Lista, vbCrLf) 'REcorre el vector For i = 0 To UBound(Archivos) If Archivos(i) <> vbNullString Then ' ..es un directorio If Right(Archivos(i), 1) = "/" Then Me.Print "[ Directorio ] " & Archivos(i) Else '.. es un archivo Me.Print "[ Archivo ] " & Archivos(i) End If End If Next End Sub

Ejemplo 2

Ejemplo para visualizar los datos en un listview con los íconos

Controles

1 - Colocar un control Inet

2 - Tres CommandButton: cmdConectar, cmdDesconectar y cmdSubirNivel

3 - Un control ListView

4 - Un control ImageList. Al imageList cargarle dos imagenes para los iconos. A la imagen para las carpetas colocarle en la propiedad Key el valor "Carpeta" y el ícono para los archivos en el Key "Archivo"

5 - Un control ListBox ( para ver el estado )

Vista previa del formulario ( también podés descargar el proyecto en este enlace)

Código fuente en el formulario

Option Explicit ' Conecta al Ftp '**************************************************** Private Sub cmdConectar_Click() Dim Usuario As String Dim Password As String Dim Url_Ftp As String Url_Ftp = InputBox(" Ingrese la dirección Ftp a conectar .. " & _ "por ejemplo ftp.unservidor.com ", _ " Dirección del servidor ") ' Si no se ingresó un nombre de host .. sale If Url_Ftp = vbNullString Then Exit Sub Else ' ASigna el host a la propiedad Url del Inet ' Si el Host no comienza con "ftp://" .. lo agrega If Left(LCase(Url_Ftp), 6) <> LCase("ftp://") Then Inet1.URL = "ftp://" & Url_Ftp Else Inet1.URL = Url_Ftp End If End If ' Preunta por el password ( opcional ) Usuario = InputBox(" Ingrese el nombre de usuario FTP .. " & _ " Opcional ", _ " Nombre de usuario ") If Usuario <> vbNullString Then ' ASigna el usuario Inet1.UserName = Usuario End If Password = InputBox(" Ingrese el password de la cuanta ftp .. " & _ " Opcional ", _ " Password de FTP ") If Password <> vbNullString Then ' ASigna el password Inet1.Password = Password End If ' Ejecuta el comando Dir para Listar _ todos los directorios y archivos en el ListView Call Ejecutar_Comando("DIR") End Sub ' Desconecta del Ftp '*************************************************** Sub Desconectar_FTP() On Error Resume Next Call Ejecutar_Comando("CLOSE") End Sub ' Sub que ejecuta un comando mediante el método execute del inet _ ... para listar los archivos, cambiar de directorio etc... '******************************************************************** Sub Ejecutar_Comando(Comando As String) Me.MousePointer = vbHourglass ' Esto es solo para mostrar los datos en lva ventana de estado '************************************************************** If Comando = "DIR" Then Call Mostrar_Estado_FTP(" [ Listando archivos y carpetas ]") End If If Comando = "CDUP" Then Call Mostrar_Estado_FTP(" [ Cambiando de directorio ]") End If If Comando = "CLOSE" Then Call Mostrar_Estado_FTP(" [ Desconectando del serviror ]") End If '************************************************************** ' Ejecuta el comando indicado Inet1.Execute , Comando Do While Inet1.StillExecuting DoEvents Loop Me.MousePointer = vbDefault End Sub ' Botón que desconecta '************************************ Private Sub cmdDesconectar_Click() Call Desconectar_FTP End Sub ' Botón que sube un nivel de directorio '************************************ Private Sub cmdSubirNivel_Click() ' Se posiciona en el directorio de nivel superior Call Ejecutar_Comando("CDUP") ' Lista los archivos y carpetas del directorio al que se cambió Call Ejecutar_Comando("DIR") End Sub Private Sub Inet1_StateChanged(ByVal State As Integer) Select Case State Case icResponseCompleted Dim V_Datos As Variant Dim Datos As String Dim bDone As Boolean bDone = False Datos = "" 'Obtiene los datos V_Datos = Inet1.GetChunk(1024, icString) DoEvents 'Recuepra los datos Do While Not bDone ' Va almacenando Datos = Datos & V_Datos DoEvents 'Obtiene los datos V_Datos = Inet1.GetChunk(1024, icString) If Len(V_Datos) = 0 Then bDone = True End If Loop ' Manda la cadena que contiene los archivos y directorios _ para poder desglozarla y agregarla al ListView Call Listar_Archivos(Datos) ' Estado Case 0: Mostrar_Estado_FTP " Nothing " Case 1: Mostrar_Estado_FTP " Resolviendo Host " Case 2: Mostrar_Estado_FTP " Host Resuelto " Case 3: Mostrar_Estado_FTP " ..Conectando a: " & Inet1.URL Case 4: Mostrar_Estado_FTP ".. Conectado a " & Inet1.URL Case 5: Mostrar_Estado_FTP " Petición" Case 6: Mostrar_Estado_FTP " ..enviando petición" Case 7: Mostrar_Estado_FTP " Recibiendo Respuesta " Case 8: Mostrar_Estado_FTP " Respuesta recibida " Case 9: Mostrar_Estado_FTP " ..Desconectando " Case 10: Mostrar_Estado_FTP " Estado : Desconectado" Case 11: Mostrar_Estado_FTP " Error: " & Inet1.ResponseInfo Case Else: Mostrar_Estado_FTP " Estado -> " & Format$(State) End Select End Sub Private Sub Mostrar_Estado_FTP(ByVal estado As String) List1.AddItem estado List1.ListIndex = List1.ListCount - 1 End Sub 'Rutina que recibe una cadena con todos los archivos y directorios _ Esta cadena se desgloza en los archivos y directorios que luego _ se agregan al listview '************************************************************************ Private Sub Listar_Archivos(str_Listado As String) Dim i As Long Dim iFolder As Long Dim iFile As Long Dim Lista() As String Dim El_item As ListItem Dim El_Archivo As String Dim Archivos() As String ' array para los archivos Dim Carpetas() As String ' array para los directorios ReDim Carpetas(0) ReDim Archivos(0) ' Desgolza la cadena en un array Lista = Split(str_Listado, vbCrLf) 'Vacía el listview ListView1.ListItems.Clear ' Recorre toda la lista para poder separar los archivos de los directorios For i = 0 To UBound(Lista) El_Archivo = Trim$(Lista(i)) If El_Archivo <> "" Then ' ... Los directorios If Right$(El_Archivo, 1) = "/" Then ReDim Preserve Carpetas(iFolder) ' Agrega la carpeta Carpetas(iFolder) = Left$(El_Archivo, Len(El_Archivo) - 1) iFolder = iFolder + 1 Else ' ... Los archivos ReDim Preserve Archivos(iFile) ' Agrega el archivo al vector Archivos(iFile) = El_Archivo iFile = iFile + 1 End If End If Next ' Ordena los arrays para poder visualizar en forma alfabética _ los archivos y carpetas en el ListView Call Ordenar_Archivos(Carpetas, LBound(Carpetas), UBound(Carpetas)) Call Ordenar_Archivos(Archivos, LBound(Archivos), UBound(Archivos)) 'recorre el array de carpetas y los agrega al ListView For i = LBound(Carpetas) To UBound(Carpetas) If Carpetas(0) = vbNullString Then Exit For Set El_item = ListView1.ListItems.Add(, , Carpetas(i), "Carpeta", "Carpeta") El_item.Tag = "Carpeta" Next 'recorre el array con la lista de archivos ordenados y los agrega al ListView For i = LBound(Archivos) To UBound(Archivos) If Archivos(0) = vbNullString Then Exit For Set El_item = ListView1.ListItems.Add(, , Archivos(i), "Archivo", "Archivo") El_item.Tag = "Archivo" Next End Sub ' Ordena la lista de archivos y directorio usando el _ método QuickSort para ordenarlos en forma alfabética '******************************************************************* Sub Ordenar_Archivos(El_Vector() As String, _ Limite_Inferior As Long, _ Limite_Superior As Long) Dim i As Long, j As Long, x As Variant, y As Variant i = Limite_Inferior j = Limite_Superior If Limite_Superior <= 0 Then Exit Sub x = El_Vector((Limite_Inferior + Limite_Superior) / 2) While i <= j While (LCase$(El_Vector(i)) < x) And (i < Limite_Superior) i = i + 1 Wend While (x < LCase$(El_Vector(j))) And (j > Limite_Inferior) j = j - 1 Wend If i <= j Then y = El_Vector(i) El_Vector(i) = El_Vector(j) El_Vector(j) = y i = i + 1 j = j - 1 End If Wend If Limite_Inferior < j Then Ordenar_Archivos El_Vector(), Limite_Inferior, j End If If i < Limite_Superior Then Ordenar_Archivos El_Vector(), i, Limite_Superior End If End Sub ' Evento ItemClick. ' Refresca la lista de directorios y archivos , al hacer clic en un directorio '****************************************************************************** Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem) ' Verificamos que al hacer clic sea una carpeta y NO un archivo If Item.Tag = "Carpeta" Then 'Cambiamos a dicha carpeta Call Ejecutar_Comando("CD " & Item.Text) 'Listamos los archivos y carpetas del directorio que se cambió Call Ejecutar_Comando("DIR") End If End Sub ' Carga y descarga del Formulario '***************************************************** Private Sub Form_Load() With ListView1 .View = lvwReport .HideSelection = False 'Agrega la columna .ColumnHeaders.Add , , " Nombre " 'Enlaza con el imagelist .SmallIcons = ImageList1 .Icons = ImageList1 End With cmdDesconectar.Caption = " Desconectar " cmdConectar.Caption = " Conectar " cmdSubirNivel.Caption = " Subir un nivel " End Sub Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) ' Cierra la conexión ftp Call Desconectar_FTP End Sub

Recursos vb - Relacionados

Código fuente de un cliente Ftp en visual basic utilizando el api wininet

Recursos vb.net - Relacionados

My.Computer.Network - Métodos para trabajar con acciones de red

Buscar en Recursos vb