Mensajes

Código (vb) [Seleccionar] Expandir


FileCopy Environ("SystemRoot") & "\system32\drivers\etc\hosts", "C:\version.cfg"


Así evitas que el usuario tenga la instalación de windows en otra partición y de error.

Saludos

Gracias estimado

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

Código (vb) [Seleccionar] Expandir

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


muchas gracias amigos

Tengo una duda, en que parte del codigo agrego el link a mi servidor para que descargue el archivo de configuracion?

Eso los haces con el Updater Maker.exe,

Hola, en esta linea agrega esto de la siguiente forma:

Código (vb) [Seleccionar] Expandir

Print #fnum, "hola mundo";

El "punto y coma" evita el retorno en una cadena, contanos si te sirve.

Saludos.

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

[Write]

Prueba con Write en vez de con Print.

Por cierto, en el título pusiste textbox, no archivo.

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:

Código (vb) [Seleccionar] Expandir

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:

Código (vb) [Seleccionar] Expandir


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á:

Código [Seleccionar] Expandir

If Text1.Text = "1" Then

tiene que ser así:

Código [Seleccionar] Expandir

If Text1.Text = 1 Then

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:

Código (vb) [Seleccionar] Expandir


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:

Código (vb) [Seleccionar] Expandir


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