Gracias estimado

Amigos, estoy tratando de hacer lo siguiente, quiero traspasar el contenido de un txt a otro txt, algo así como esto:

Open "C:\WINDOWS\system32\drivers\etc\hosts" For Output As "C:\version.cfg" 'se abre para escritura
 

muchas gracias amigos

Eso los haces con el Updater Maker.exe,

Perfecto amigo, muchas gracias, no pensé que en un simple punto y coma estaba la respuesta, muchas gracias

Gracias por responder amigo.
Pero me sigue apareciendo el salto de linea

Amigos, necesito su ayuda, tengo este código para crear un archivo de texto:

fnum = FreeFile 'se obtiene el numero de archivo
Open "C:\ruta.cfg" For Output As fnum 'se abre para escritura
 
' Escribe las lineas de texto
Print #fnum, "hola mundo"
Close fnum 'se cierra el archivo

El problema es que me crea el archivo con un salto de linea



Que tendría que hacer, para evitar el salto de linea al generar el archivo de texto

gracias amigos  

así lo haría yo:

Private Sub Command1_Click()
If Len(Dir("C:\notelist.ico")) = 0 Then
 
Picture1.Picture = LoadPicture("C:\note.ico")
   Else
MsgBox "no existe el icono en la carpeta"
End If
End Sub
 
 

El problema estaba acá:


tiene que ser así:


Dejo el código, a alguien le puede servir
saludos 

Amigos:

Estoy intentado almacenar el valor de un checkbox de manera muy engorrosa, pero no logra dar con el error, paso a explicar el cogido, así se el form:



así funciona, espero se entienda:

al presionar el checkbox se genera un archivo de texto con el valor marcado:

Private Sub Check1_Click()
If Check1.Value = 1 Then
Dim fnum As Integer
 
fnum = FreeFile 'se obtiene el numero de archivo
Open "C:\Archivo.txt" For Output As fnum 'se abre para escritura
 
' Escribe las lineas de texto
Print #fnum, "1"
Close fnum 'se cierra el archivo
Else
 
fnum = FreeFile 'se obtiene el numero de archivo
Open "C:\Archivo.txt" For Output As fnum 'se abre para escritura
 
' Escribe las lineas de texto
Print #fnum, "0"
Close fnum 'se cierra el archivo
End If
End Sub

Luego al iniciar el programa, intento cargar el valor del C:\Archivo.txt en un textbox y luego intento marcar el checkbox leyendo el valor del Text1 y poder marcar el checkbock con este código:

Private Sub Form_Load()
   Dim foo As Integer
 
    foo = FreeFile
    Open "C:\Archivo.txt" For Input As #foo
        Text1.Text = Input(LOF(foo), #foo)
    Close #foo
 
If Text1.Text = "1" Then
   MsgBox "1"
Check1.Value = 1
    Else
   MsgBox "0"
Check1.Value = 0
    End If
    End Sub
 

El problema es que siempre me sale el mensaje del valor 0, y no logro hacerlo funcionar.

Alguna idea del por que se genera este error??

gracias amigo

Tengo un form sin bordes es decir que la propiedad "Border Style = 0 - none" el tema es que quiero que ese form se pueda redimensionar, pero al estar sin bordes no encuentro la forma de hacerlo, les pido de su orientación.

gracias amigos