Otro metodo para escribir informacion de un archivo.
Publicado: 21 Ene 2010, 15:27
Amigos viendo un codigo me pareceio curioso y hasta me pregunte si funcionaba lo prove y funciona!
Este metodo lo hace con CreateObject usando CreateTextFile.
Code:
El codigo no es mio, asi que se los dejo para ver si lo usan como otra manera de escribir, este codigo lo acomode para que lo entiendan y lo que hace es obtener la informacion de un archivo y crear otro igual.
Salu2
Este metodo lo hace con CreateObject usando CreateTextFile.
Code:
Código: Seleccionar todo
Private Sub Command1_Click()
Dim sFile As String
Dim sObj As Object
Dim nFile As Object
Open Text1.Text For Binary Access Read As #1
sFile = String(FileLen(Text1.Text), " ")
Get #1, , sFile
Close #1
Set sObj = CreateObject("Scripting.FileSystemObject")
Set nFile = sObj.CreateTextFile(App.Path & "\Miarchivo2.exe", True)
nFile.WriteLine sFile
nFile.Close
End Sub
Salu2