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 SubSalu2
