Este truco nos permitirá realizar un listado de todos los ficheros que hay en un directorio en concreto.

Dim tFiles() As String
tFiles = System.IO.Directory.GetFiles(RutaDelDirectorio)

Ya tenemos en la variable tFiles todos los nombres de todos los ficheros del directorio deseado.
Si queremos leer estos ficheros:

Dim n as int32=0
n = tFiles.Length - 1

Dim oFile As System.IO.File
Dim oRead As System.IO.StreamReader
Dim EntireFile as String=""
Dim i as int32=0

For i = 0 To n
oRead = oFile.OpenText(tFiles(i))
EntireFile = oRead.ReadToEnd()
Next

Regístrate y recibe un email semanal con los últimos trucos informáticos. Pulsa aquí!!

Este truco ha recibido 7 votaciones| Nota media: 6Selecciona tu Puntuación: