¿Cómo leer un archivo y escribir en un archivo de texto?
Quiero abrir mi archivo, copiar todos los datos y escribir en un archivo de texto.
Mi archivo mis
Nombre de archivo - 1.mis
M3;3395;44;0;1;;20090404;094144;8193;3;0;;;;
M3;3397;155;0;2;;20090404;105941;8193;3;0;;;;
M3;3396;160;0;1;;20090404;100825;8193;3;0;;;;
M3;3398;168;0;2;;20090404;110106;8193;3;0;;;;
pronto...,
Los datos anteriores deben aparecer en un archivo de texto con el mismo nombre de archivo (1.txt).
He intentado este código.
Dim sFileText As String
Dim iFileNo As Integer
iFileNo = FreeFile
Open "C:\Clients\Converter\Clockings.mis" For Input As #iFileNo
Do While Not EOF(iFileNo)
Input #iFileNo, sFileText
Loop
Close #iFileNo
Open "C:\Clients\Converter\2.txt" For Output As #iFileNo
Do While Not EOF(iFileNo)
Write #iFileNo, sFileText
Loop
Close #iFileNo
Nada se guarda en 1.txt.