کپی فایل از سرور

[automa]

سلام
من می خواهم یک فایل را از سرور شبکه و یا هر کامپیوتر دیگری در شبکه در کامپیوتر خودم کپی نمایم
لطفا راهنمایی نمایید و یک نمونه کد بدهید
با تشکر

[igneousstars]

سلام.
اگه یه سرچ میکردی پیدا میشد.

SEND FILE:
Dim a as string
open "C:\file" for binary as #1
k = input(lof(1),1)
winsock1.SendData k

Recive File:
Dim k as string
winsock1.getdata k
open "C:\file" for append as #1
print #1,k;

[automa]

آدرس شبکه مثلا 192.168.1.5 کجا بنویسم ؟
سر کد winsock1.SendData k پغام خطا میده
لطفا راهنمایی کنید