programa ftp

[deimos_rasiv]

Hoal a todos

bueno estoy haciendo un programita que se conecte a un ftp, para mandar varios archivos, el problema es que como hacer para que al momento de mandar el archivo el segundo archivo espere a que el primero termine, ademas que son 15 files los que tengo que mandar  este es un eejmplo


Inet1.Protocol = icFTP
Inet1.RemoteHost = "IP"
Inet1.RemotePort = "21"
Inet1.UserName = "USER"
Inet1.Password = "PASS"
Inet1.Execute , "put C:\CARPETA\CARPETA\ARCHIVO.DAT ARCHIVO.DAT"
Inet1.Execute , "put C:\CARPETA\CARPETA\ARCHIVO2.DAT ARCHIVO2.DAT"
Inet1.Execute , "put C:\CARPETA\CARPETA\ARCHIVO3.DAT ARCHIVO3.DAT"

DESDE YA MUCHAS GRACIAS

 

[Argo$]

Hay una API para hacer eso.

'Declaraciones Windows API:

Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long

Private Declare Function OpenProcess Lib "kernel32" (ByVal dwAccess As Long, ByVal fInherit As Integer, ByVal hObject As Long) As Long

Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

—

'Espera x milisegundos y devuelve el estado de ejecución de un proceso (si se omite el argumento espera hasta que finalice el proceso):

Function WaitForProcess(taskId As Long, Optional msecs As Long = -1) As Boolean

Dim procHandle As Long

'Obtiene el handler del proceso
procHandle = OpenProcess(&H100000, True, taskId)

'Verifica el estado del proceso y se lo devuelve a nuestra función
WaitForProcess = WaitForSingleObject(procHandle, msecs) <> -1

'Cierra el handler
CloseHandle procHandle

End Function

—

Utilización:

WaitForProcess nombre_del_proceso 'Aqui pones el nombre del proceso que quieres que se espere hasta que acabe.

Saludos,