Escribir un programa en VB para subir archivos a FTP

Primero, agregue el componente Microsoft Internet Transfer Control 6.0 a la barra de herramientas de VB, y luego la caja de herramientas tendrá un control Inet adicional.

Arrastre y suelte el control en el formulario y establezca las propiedades en el control

protocolo: 2-icFTP

RemoteHost: la IP o nombre de dominio de su servicio FTP

RemotePort: su puerto FTP

URL: su dirección FTPURL

No hace falta decir el nombre de usuario y la contraseña

' Agregue un cuadro de texto ( text1) y un botón (Command1) al formulario con el siguiente código:

Private Sub Command1_Click()

Dim isRight As Boolean

Dim filestr As String

filestr = app.path & "\A"

Inet1.Execute "", "PUT " & filestr & " /A"

isRight = Inet1 .StillExecuting 'Obtiene si el comando aún se está ejecutando

Do While isRight

isRight = Inet1.StillExecuting

DoEvents

Loop

filestr = app.path & "\B"

Inet1.Execute "", "PUT " & filestr & " /B"

isRight = Inet1. StillExecuting 'Obtiene si el comando todavía se está ejecutando

Do While isRight

isRight = Inet1.StillExecuting

DoEvents

Loop

filestr = app.path & "\C"

Inet1.Execute "", "PUT " & filesr & " /C"

isRight = Inet1. 'Obtenga si el comando aún se está ejecutando

Do While isRight

isRight = Inet1.StillExecuting

DoEvents

Loop

filestr = app.path & "\D"

Inet1.Execute "", "PUT " & filestr & " /a/D"

isRight = Inet1. StillExecuting 'Obtiene si el comando aún se está ejecutando

Do While isRight

isRight = Inet1.StillExecuting

DoEvents

Loop

Fin S

ub

Private Sub Inet1_StateChanged(ByVal State As Integer)

text1.Text = text1.Text + CStr(State)

Seleccionar estado de caso

Caso 11

text1.text = "Se produjo un error durante la comunicación con el host"

Caso 12

text1.Text = "Carga completa"

Finalizar selección

Finalizar sub