PDA

View Full Version : کپی فایل بدون استفاده از ویندوزAPI



star_star
جمعه 29 اردیبهشت 1391, 10:34 صبح
کسی هست که سورس ساده ای داشته باشه که بشه باهاش بدون استفاده از کپی فایل ویندوز فایل ها رو کپی کنه ؟

Veteran
جمعه 29 اردیبهشت 1391, 10:54 صبح
در قسمت رفرنس ها micorosft script runtime رو تیک بزنید.
Dim fso As New FileSystemObject
fso.CopyFile "C:\text.txt", "d:\", False
پارامتر اول فایل مبدا هست
پارامتر دوم مقصد هست
پارامتر اخر اگر true باشه و فایلی که میخواین کپی کنید در مقصد با همون اسم وجود داشته باشه اونو جایگزین میکنه.
دیگه نیاز به api نیست.

sr2m72
جمعه 29 اردیبهشت 1391, 13:05 عصر
با این هم می تونی:

FileCopy "C:\text.txt", "d:\text.txt"

محسن واژدی
جمعه 29 اردیبهشت 1391, 15:36 عصر
سلام
روش سوم هم استفاده از کد زیر است (هرچند که بیشترین جنبه استفاده آن برای تغییر نام فایل است):
Private Sub Command1_Click()
Name "E:\src.txt" As "F:\destination.txt"
End Sub


موفق باشید

alireza661
جمعه 29 اردیبهشت 1391, 18:21 عصر
آقای واژدی چطور میتونم فایلی رو جوری پاک کنم که با نرم افزار های ریکاوری قابل بازگشت نباشه؟
ای کلک , بگو دیگه جوابمو , میتونم که بلدی موش بخوره تورو

star_star
جمعه 29 اردیبهشت 1391, 18:52 عصر
سلام
روش سوم هم استفاده از کد زیر است (هرچند که بیشترین جنبه استفاده آن برای تغییر نام فایل است):
Private Sub Command1_Click()
Name "E:\src.txt" As "F:\destination.txt"
End Sub


موفق باشید
مممنووووووووووووووووووووو ووووووووووووووووووووووووو وووووننننن