Jose Maria
07 de Julio del 2004

Hola me llamo Jose Maria y soy nuevo en este foro. Soy estudiante de programaci贸n y quisiera que alguien si es posible me resolviera esta cuesti贸n. Quiero mediante un programa de Visual Basic conectarme a un servidor FTP indicandole usuario y password, que me de acceso al servidor, y despu茅s hacer una transferencia de archivos a una carpeta en el servidor. Gracias por vuestra ayuda y espero poder resolver en un futuro algunas vuestras que se planteen en el foro.
Un Saludo

Theo
07 de Julio del 2004

Para eso podes utilizar el componente NetManager FTP en los componentes de VB.
Despues podes especificar el servidor, nombre y pass desde las propiedades o desde codigo, pero el tema no es tan facil como parece para leer carpeta directorio, copiar archivos pero podes buscar ejemplos en los diferentes temas de ayuda y asi te vas orientando de a poco....
Tampoco pienses que es complicado so es cuestion de un poco de practica.....

Theo....

jodio69
07 de Julio del 2004

ok pero donde esta ese componente el netmanager ftp
no lo veo por ningun sitio ni lo encuentro por internet ni nada que alguien me exolique donde esta y como se pone en mi proyecto de visual basic

charlyfq
07 de Julio del 2004

Dim Mtrx(), NumCommand As Integer
Dim i As Integer

Private Sub Actualizar_Click()
'If Chck1 = 1 Then
cmd = Shell("CMD /C Dir C:BACOFICEBACOFICE.ZIP", 1)
Call CloseRsClientes
Set RsRemota.ActiveConnection = CnnRemota
For i = 0 To (List2.ListCount - 1)
Msql = "SELECT * FROM REMOTA WHERE NAGENCIA='" + List2.List(i) + "'"
RsRemota.Source = Msql
RsRemota.Open
On Error Resume Next
With Inet1
.URL = "ftp://" & RsRemota("IP") 'id de agencia
.UserName = RsRemota("USUARIO")
.Password = RsRemota("PASSWORD")
RsRemota.Close
.Execute , "binary"
.Execute , "prompt"
.Execute , bell
Delay (1)
.Execute , "CD .."
.Execute , "CD .."
.Execute , "CD shared"
Delay (1)
.Execute , "CD plataforma"
Delay (1)
.Execute , "CD Bacofice"
'la copia sera desde mi path C:aaaabacofice con el nombre del archivo que yo quiero hasta el ftp que en este case sera shared que yo abri y el nombre del archivo que envio
.Execute , "put C:aaaabacoficezamo2.zip zamo4.zip"
'.Execute , "dir"
.Execute , "bye"
Delay (1)
.Execute , "QUIT" ' Cierra la conexi贸n.
Delay (1)
End With
Next i
End Sub

Private Sub Inet1_StateChanged(ByVal State As Integer)
Dim strMess As String ' Variable de mensaje.
Select Case State
' ... No se muestran los dem谩s casos.
Case icError ' 11
' Obtiene el texto del error.
strMess = "ErrorCode: " & Inet1.ResponseCode & _
" : " & Inet1.ResponseInfo
End Select

Debug.Print strMess
End Sub

Private Sub asxPowerButton4_Click()
Unload Me
End Sub

Private Sub Enviar_Click()
Call List1_DblClick
End Sub

Private Sub Form_Initialize()
'Option1.Enabled = False
Llenar
Mtrx = Array("PROMPT", "CD..", "CD aaa", "CD a", "CD Bacofice", "PUT BACOFICE.ZIP C:aaaabacoficeBACOFICE.ZIP", "CLOSE", "QUIT")
End Sub

Private Sub List1_DblClick() ' Archivo Origen
If List1.ListIndex = -1 Then Exit Sub
List2.AddItem List1.List(List1.ListIndex)
List1.RemoveItem (List1.ListIndex)
End Sub

Private Sub List2_Click() ' Archivo Destino
If List2.ListIndex = -1 Then Exit Sub
List1.AddItem List2.List(List2.ListIndex)
List2.RemoveItem (List2.ListIndex)
End Sub


Private Sub Llenar()
Call OpenRsRemota
If RsRemota.RecordCount = 0 Then
MsgBox "NO EXISTEN ARTICULOS ADICIONADOS", vbInformation, "ERROR"
Exit Sub
End If
RsRemota.MoveFirst
Do While Not RsRemota.EOF
List1.AddItem Trim(RsRemota("NAGENCIA"))
RsRemota.MoveNext
Loop
End Sub

Private Sub Regresar_Click()
Call List2_Click
End Sub

Dami
07 de Julio del 2004

podrias poner un zip en elgun FTP para descargarlo y probarlo???

Un Saludete