Autor Tema: Leer Ficheros (Leído 1467 veces)

egalan · « **en:** Martes 13 de Junio de 2006, 16:32 »

Hola necesito leer diversos ficheros de un mismo directorio y copiar el texto de los ficheros en uno solo, ademas necesito que cada fichero se me convierta en una unica linea, asi al final tendre tantas lineas como ficheros tiene el directorio

Estoy usando streams pero no lo consigo. Alguna sugerencia

Gracia

luism3

hay un comando llamado Dir que te podria ayudar... pero en .NET hay una forma todavia mas facil sin usar streams, en un rato te digo como es, esque ya debo retirarme.

senzao18

Si mal no recuerdo es algo asi...

Código: Text

 
  Dim oDirectoryInfo As New DirectoryInfo(&#34;rutacarpeta&#34;)
 
If oDirectoryInfo.Exists Then
  
  Dim oFileInfo() As FileInfo
  oFileInfo = oDirectoryInfo.GetFiles()
 
 For Each oFileI As FileInfo In oFileInfo
        Dim strLine As String
         Dim oFile As New StreamReader(oFileI.FullName)
         strLine = oFile.ReadToEnd
         ofile.close()
        Dim oStream As New StreamWriter(&#34;RutaArchivoNuevo&#34;, True)  
         oStream.WriteLine(strLine)
         oStream.Close()
  Next
 
ENDIF.
 
 

Y listo tienes el archivo nuevo como lo quieres

.

luism3

Disculpa la tardanza, este codigo se encarga de hacer un recorrido recursivo de todos los archivos dentro de un directorio que se le envia por parametro.

Código: Text

 
 
    Private Sub ExploraDir(ByVal dir As String)
        If dir = &#34;&#34; Then
            MsgBox(&#34;No ha seleccionado una carpeta&#34;, MsgBoxStyle.Exclamation)
            Return
        End If
 
        ReadFiles(dir)
 
        For Each str As String In System.IO.Directory.GetDirectories(dir)
            ExploraDir(str)
        Next
    End Sub
 
    Private Sub ReadFiles(ByVal str As String)
 
        For Each SubFile As String In System.IO.Directory.GetFiles(str)
            ListBox1.Items.Add(SubFile)
        Next
 
    End Sub
 
 
 

Lo que muestra es la lista de todos los archivos pero igual, si quieres ver en la lista tambien los directorios debes colocar un ListBox1.Items.Add(str) justo arriba del llamado recursivo a la funcion ExploraDir()

Espero te sirva.

SoloCodigo

Autor Tema: Leer Ficheros (Leído 1467 veces)

egalan

Leer Ficheros

luism3

Re: Leer Ficheros

senzao18

Re: Leer Ficheros

luism3

Re: Leer Ficheros