Visual Basic para Aplicaciones - Enviar Archivos

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