Enviar Archivos
Publicado por NOLOSE (2 intervenciones) el 15/03/2005 04:04:07
Hola amigos de LWP, tengo un problema con un programita, no sé como hacer para mandar archivos a través de una red pero sin utilizar un cuadro de dialogo, aquí les envío el códico que utilizo para mandar los archivos, se utiliza un cuadro de diálogo pero lo que quiero es generar un código que mande siempre un archivo fijo sin necesidar de abrir el cuadro de dialogo. gracias.
Dialogo.ShowOpen
regresaconexion = False
With jdChatDatos(noconexion)
.RemotePort = 1235
.RemoteHost = jdChat(noconexion).RemoteHostIP
End With
GetData.Text = GetData.Text & vbCrLf & "Sending" & Dialogo.FileName & vbCrLf
jdChat(noconexion).SendData "Sending" & Dialogo.FileName
Do
DoEvents
Loop Until regresaconexion = True
regresaconexion = False
Call JDMandarArchivo(Dialogo.FileName)
GetData.Text = GetData.Text & vbCrLf & "El archivo se ha enviado" & vbCrLf
Dialogo.ShowOpen
regresaconexion = False
With jdChatDatos(noconexion)
.RemotePort = 1235
.RemoteHost = jdChat(noconexion).RemoteHostIP
End With
GetData.Text = GetData.Text & vbCrLf & "Sending" & Dialogo.FileName & vbCrLf
jdChat(noconexion).SendData "Sending" & Dialogo.FileName
Do
DoEvents
Loop Until regresaconexion = True
regresaconexion = False
Call JDMandarArchivo(Dialogo.FileName)
GetData.Text = GetData.Text & vbCrLf & "El archivo se ha enviado" & vbCrLf
Valora esta pregunta
0