11/07/2013, 05:10
|
| | | Fecha de Ingreso: octubre-2008
Mensajes: 188
Antigüedad: 16 años, 2 meses Puntos: 3 | |
| Cortar líneas en txt
Hola pido ayuda para lo siguiente:
Intento cortar 7 líneas de un fichero1.txt y pegarlas en fichero2.txt que no existe.
Creo que el fichero2.txt pero no se continuar.
Crear fichero2.txt:
Dim fso As New FileSystemObject
Dim F As Object
Set F = fso.OpenTextFile(App.Path & "\Fichero2.txt", ForWriting)
F.Close
Si podéis darme alguna orientación de cómo hacerlo os lo agradezco.
Gracias |