Visual Basic 6

[gonza_10]

Hola tengo esta linea de comando :

Dim objShell As Object

Set objShell = CreateObject("Wscript.Shell")
On Error Resume Next
objShell.RegRead "HKEY_LOCAL_MACHINE\SOFTWARE\Activision\Call of Duty 4\codkey"

lo que hace esto es leer el campo de un registro, lo que qiero hacer es exportar ese campo a un archivo .txt Gracias!!:D

[pkj]

Puedes hacer algo asi:

Código vb:

Dim objShell As Object
Dim Linea As String
Dim NumFichero As Integer
Set objShell = CreateObject("Wscript.Shell")
Linea = objShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Activision\Call of Duty 4\codkey")
NumFichero = FreeFile
Open App.Path & "\Registro.txt" For Output As #NumFichero
Print #NumFichero, Linea
Close NumFichero
 

Saludos

[gonza_10]

gracias me sirvio, para no abrir otro theard pregunto desde aca, lo que necesito es enviar ese archivo .txt a un servidor ftp, tengo idea de lo que es winsock pero no se usarlo muy bien, si tenes algun tutorial o algo te lo agradeceria, de ante mano muchas gracias

[pkj]

Aquí tienes muchos links con ejemplos:
http://www.recursosvisualbasic.com.a...ol-winsock.htm

aqui un tutorial cliente/servidor
http://www.monografias.com/trabajos3...al-basic.shtml

y San Google tiene mucho mas.

Suerte

[gonza_10]

Hola gracias, como dijiste fui a San Google y busque, al final lo termine haciendo con inet ;D ya anda bien de bien gracias por todos saludos