Nuevas NORMAS para el foro

Curso Hacker
Bienvenido(a), Visitante. Favor de ingresar o registrarse.
¿Perdiste tu email de activación? - Julio 26, 2008, 09:05:23
Boton Buscar
Inicio Ayuda Ingresar Registrarse
Visita: Articulos - Juegos Gratis - Da Foros

Comunidad Underground Hispana  |  Programacion  |  Programación  |  Visual Basic y Net (Moderador: ANYD00M)  |  Tema: programa ftp 0 Usuarios y 1 Visitante están viendo este tema. « anterior próximo »
Páginas: [1] Ir Abajo Imprimir
Autor Tema: programa ftp  (Leído 82 veces)
deimos_rasiv
Miembro
*****
Desconectado Desconectado

Mensajes: 94


deimos_rasiv@hotmail.com
Ver Perfil Email
« en: Marzo 20, 2008, 05:06:26 »
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

 Cheesy Wink
En línea
Argo$
Miembro
*****
Desconectado Desconectado

Mensajes: 49



Ver Perfil Email
« Respuesta #1 en: Abril 21, 2008, 10:20:27 »
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,

En línea
Páginas: [1] Ir Arriba Imprimir 
Comunidad Underground Hispana  |  Programacion  |  Programación  |  Visual Basic y Net (Moderador: ANYD00M)  |  Tema: programa ftp « anterior próximo »
Ir a:  


Ranking-Hits
Powered by SMF 1.1.5 | SMF © 2006-2007, Simple Machines LLC