كپي كردن يك فايل مشخص

[soroush_k12]

با سلام خدمت دوستان عزيز
من ميخواهم يك فايل مشخص را از محلي به محل ديگر توسط يك كد كپي كنم.از كد زير استفاده كردم ولي خطا ميده. چكار بايد بكنم؟؟؟
FileSystemObject.CopyFile "f:\1.txt", "c:\"
با تشكر از همه دوستان

[soroush_k12]

سلام
با تيك زدن رفرنس microsoft scripting runtime و با استفاده از كد زير موفق به كپي در درايوهاي كامپيوتر خودم شدم:
Dim path1, path2 As String
Dim f1copy As New FileSystemObject
path1 = "ftp://10.10.1.21/Omour/Rasht2/tarahee/HARIM.tif"
path2 = "c:\"
f1copy.CopyFile path1, path2, True
ولي مشكل جديد اين است كه اگر فايل مبدا روي ftp باشد پيغام خطا ميدهد.
چطور ميتوان توسط اين كد فايلي رو كه روي ftp است در سيستم خودمان كپي اكنيم؟؟؟؟
ممنونم اگر راهنمايي كنيد.

[emami.sie]

با سلام
لطفا دوستان راهنمایی کنن با چه کدی میشه یک فایل رو از روی سرور FTP کپی و در درایوی پیست کرد؟
البته همونطور که قبلا دوستمون هم گفتن برای انتقال اطلاعات در یک سیستم هیچ مشکلی وجود نداره اما هنگام استفاده از ftp پیغام خطایی به شرح ذیل مشاهده میشه:
105487

البته لازم بذکر هستش که تمامی مباحث عنوان شده در تاپیک ذیل رو هم مد نظر قرار دادم:
http://barnamenevis.org/showthread.php?326103-%D8%AE%D9%88%D8%A7%D9%86%D8%AF%D9%86-%D9%85%D8%AD%D8%AA%D9%88%D8%A7%D9%8A-%D9%81%D8%A7%D9%8A%D9%84%D9%8A-%D9%83%D9%87-%D8%B1%D9%88%D9%8A-%D8%B3%D8%B1%D9%88%D8%B1-ftp-%D8%B0%D8%AE%D9%8A%D8%B1%D9%87-%D8%B4%D8%AF%D9%87-%D8%A7%D8%B3%D8%AA-%D8%AA%D9%88%D8%B3%D8%B7-%D9%83%D8%AF&highlight=ftp
اما متاسفانه به نتیجه نرسیدم
ممنون میشم دوستان راهنمایی کنن...
یا علی