Necesito agregar el mismo texto a varios archivos y no se como soy nuevo en esto
Publicado por Gustavo (1 intervención) el 24/01/2014 03:54:20
Hola a todos y gracias de antemano por la ayuda.
Tengo una carpeta que tiene 200 archivos de texto a dichos archivos debo agregar un texto fijo al final de cada archivo.
como una especie de firma. lo he estado haciendo en forma manual pero no voy a terminar nunca.
Intente con esto:
Module Module1
Sub Main()
Const fic As String = "C:\temporal\Prueba.txt"
Dim texto As String = "Gracias por su ayuda."
Dim sw As New System.IO.StreamWriter(fic, True)
sw.WriteLine(texto)
sw.Close()
End Sub
End Module
pero solo modifica el archivo especificado obviamente, intente poner un asterisco pero me da error.
si alguien tiene una idea se los agradeceria eternamente.
Tengo una carpeta que tiene 200 archivos de texto a dichos archivos debo agregar un texto fijo al final de cada archivo.
como una especie de firma. lo he estado haciendo en forma manual pero no voy a terminar nunca.
Intente con esto:
Module Module1
Sub Main()
Const fic As String = "C:\temporal\Prueba.txt"
Dim texto As String = "Gracias por su ayuda."
Dim sw As New System.IO.StreamWriter(fic, True)
sw.WriteLine(texto)
sw.Close()
End Sub
End Module
pero solo modifica el archivo especificado obviamente, intente poner un asterisco pero me da error.
si alguien tiene una idea se los agradeceria eternamente.
Valora esta pregunta
0