ENVIO DE ARQUIVOS INET VB6
Estou com um problema de envio de arquivos, tenho a rotina pronta com Inet1.Execute , [Ô]put [Ô] & [Ô]C:\[Ô] & xArq & [Ô] [Ô] & [Ô]/NetForcaVenda/NetPc/[Ô] & xCodigoVendedor & [Ô]Ped.txt[Ô]
a rotina funciona perfeitamente sendo q tenho q enviar varios arquivos e se eu colocar uma linha após a outra da erro que o operação ainda não foi concluida. Alguem sabe uma rotina para saber se a rotina ja terminou, para ai sim eu mandar enviar os outros.
Desde Já
grato Joel Junior
a rotina funciona perfeitamente sendo q tenho q enviar varios arquivos e se eu colocar uma linha após a outra da erro que o operação ainda não foi concluida. Alguem sabe uma rotina para saber se a rotina ja terminou, para ai sim eu mandar enviar os outros.
Desde Já
grato Joel Junior
se não me engano o controle inet possui um comando chamado StillExecuting, que verifica se o controle esta ocupado ou não executando uma ação, então tente isso
If Inet1.StillExecuting = False Then
Inet1.Execute , [Ô]put [Ô] & [Ô]C:\[Ô] & xArq & [Ô] [Ô] & [Ô]/NetForcaVenda/NetPc/[Ô] & xCodigoVendedor & [Ô]Ped.txt[Ô]
End If
If Inet1.StillExecuting = False Then
Inet1.Execute , [Ô]put [Ô] & [Ô]C:\[Ô] & xArq & [Ô] [Ô] & [Ô]/NetForcaVenda/NetPc/[Ô] & xCodigoVendedor & [Ô]Ped2.txt[Ô]
End If
lógico criar um loop seria algo mais prático
If Inet1.StillExecuting = False Then
Inet1.Execute , [Ô]put [Ô] & [Ô]C:\[Ô] & xArq & [Ô] [Ô] & [Ô]/NetForcaVenda/NetPc/[Ô] & xCodigoVendedor & [Ô]Ped.txt[Ô]
End If
If Inet1.StillExecuting = False Then
Inet1.Execute , [Ô]put [Ô] & [Ô]C:\[Ô] & xArq & [Ô] [Ô] & [Ô]/NetForcaVenda/NetPc/[Ô] & xCodigoVendedor & [Ô]Ped2.txt[Ô]
End If
lógico criar um loop seria algo mais prático
Tópico encerrado , respostas não são mais permitidas