Título: Ftp automatico Publicado por: dark_sargon en 20 Noviembre 2006, 18:06 pm Hola, tengo un problema con VB. Quiero que cuando se abra mi programa este se conecte al ftp de mi web con usuario y contraseña, despues que suba el archivo c:/archivo.txt automaticamente al ftp sin botones ni nada, así bien sencillo.
Si necesitan algo relacionado con Flash o diseño web me dicen y yo les ayudo :) Muchas gracias ;D Título: Re: Ftp automatico Publicado por: CeLaYa en 20 Noviembre 2006, 18:49 pm pues podrías usar el control Inet
With Inet1 .AccessType = icUseDefault .UserName = "tu_usuario" .Password = "tu_password" .URL = "http://Servidor/Archivo.txt" .Execute "PUT" wend Private Sub Inet1_StateChanged(ByVal State As Integer) ' Obtiene la respuesta del servidor con el método ' GetChunk cuando State = 12. Dim vtData As Variant ' Variable de datos. Select Case State ' ... Otros casos no mostrados. Case icError ' 11 ' En caso de error, devuelve ResponseCode ' y ResponseInfo. vtData = Inet1.ResponseCode & ":" & _ Inet1.ResponseInfo Case icResponseCompleted ' 12 Dim vtData As Variant Dim strData As String Dim bDone As Boolean: bDone = False ' Obtiene el primer bloque. vtData = Inet1.GetChunk(1024, icString) DoEvents Do While Not bDone strData = strData & vtData ' Obtiene el siguiente bloque. vtData = Inet1.GetChunk(1024, icString) DoEvents If Len(vtData) = 0 Then bDone = True End If Loop txtData.Text = strData End Select End Sub |