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

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  

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

Amigos, aqui de nuevo con algunas consultas de un pequeño proyecto que estoy desarrollando, el tema es el siguiente.

Tengo 3 textbox, lo que quiero es poder almacenar a traves de un command button el contenido de cada textox en una linea de un archivo de texto luego a través de otro command button recuperar esa información y volver a rellenar los 3 textbox.

con este código, solo consigo hacerlo de a uno a la ves:


Gracias por su ayuda amigos

amigos. necesito que un modulo utilice una librería que no está en la ruta en donde se encuentra un exe, de esta forma funciona sin problemas llamando a la dll desde disco local C


Pero si lo hago con App.Path, de esta forma no funciona:


me da error de compilación, ¿Cuál seria la forma correcta amigos?
Muchas gracias

Amigos necesito su ayuda, necesito poder verificar si un servidor esta disponible a través de la IP, en vb.net el código es muy sencillo:


Pero no consigo lograrlo en vb6
Conocen algún método para hacerlo

Muchas gracias amigos

amigos, se me ocurrió poder realizar algo para optimizar un programa que tengo, la idea es la siguiente, crear una especie de buscador en una pagina determinada.

Por ejemplo con el buscador de esta pagina, se me ocurrió hacer algo como esto usando la función ShellExecute para abrir paginas-


http://wiki.elhacker.net/system/app/pages/customSearch?scope=cse-goog_1258298707613&q=auditorias+wifi&search=

Pero en la dirección no toma los valores del text1, si no que busca "; text1.Text;"

No logro hacerlo funcionar, se puede hacer de esta forma, o hay una manera mejor de hacerlo

Gracias amigos

Amigos, a pesar de que tengo un conocimiento medio de windows esto es ago que escapa de mis manos y de verdad que me tiene al borde del colapso.

Resulta que por intentar formatear un disco duro externo, mi disco duro interno cambia el tipo de partición a raw por lo que no podía acceder a los archivos.

Envié el disco al técnico y me recuperaron toda la información, pero ahora después de formatear el disco duro sin problemas e intentar instalar windows 8.1 me aparecer el siguiente error:



El disco que antes del error era detectado por windows, ahora no lo hace, he buscado cuando drivers he encontrado, por que según lo que leí, me faltan unos drivers SATA.

No se que mas hacer, tal ves el disco se daño o algo, pero cuando lo conecto al pc como disco externo me funciona sin problemas :S

Solicito su ayuda amigo, esto ya me tiene desesperado

muchas gracias amigos

Amigos tengo una duda existencial, resulta que en mi casa monte un servidor para un determinado juego, el cual funciona perfecto, los jugadores pueden ingresar a través de la IP del server a jugar.

El problema es que para entrar al servidor se requiere un registro, yo puedo acceder a través de https://localhost:8181, el problema es como hago para que otros jugadores puedan acceder a esa dirección y puedan registrarse desde sus computadores, sin necesidad de hacerlo yo manualmente.

Espero se entienda amigos
Saludos