Como me puedo conectar desde un servidor asp a un servidos de ficheros?

[liszteth]

Protected Sub SUBIR_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles SUBIR.Click
If (TREPADOR.HasFile) Then

DIRECTORIO = http://pypsaer:91/scpi/ctrldocs/

'If (Directory.Exists(DIRECTORIO)) Then
ARCHIVO = TREPADOR.FileName

Dim fso, msg
fso = CreateObject("Scripting.FileSystemObject")
If (fso.FileExists(ARCHIVO)) Then
msg = " el archivo " & ARCHIVO & " existe."
ESTATUS.Text = "Ya existe un archivo con el mismo nombre en el directorio"
Else
msg = " El archivo " & ARCHIVO & " no existe."

TREPADOR.SaveAs(ARCHIVO)
end sub
este es mi codigo k tengo