سوال: کپی فولدر در محل دلخواه [بایگانی]

View Full Version : سوال: کپی فولدر در محل دلخواه

amin_paj

دوشنبه 22 مهر 1392, 14:22 عصر

سلام ، یه دکمه داریم که بعد از کلیک روی آن میخوام یه فایل برای مثال از درایوc به درایو d کپی شه .ممنون اگه راهنمایی کنید

biyarjomandi

دوشنبه 22 مهر 1392, 15:20 عصر

سلام system.io رو در بالای کد فرم خود import کنید .
سپس :
My.Computer.FileSystem.CopyFile("c:\12.txt", "e:\12.txt")

amin_paj

دوشنبه 22 مهر 1392, 16:12 عصر

تشکر ، این درست ولی اگه بخواهیم هنگام انتقال مثلاً یه شماره به اسم فایل اضافه بشه چون در این حالت نمیتونیم دوبار یه فایل همنام رو به یک مسیر ثابت انتقال بدیم .

biyarjomandi

سه شنبه 23 مهر 1392, 07:58 صبح

به دلخواه خودت تغییر بده و خلاقیت خرج کن .

Dim samenamevar As Byte ' جهت اضافه کردن عدد یه انتهای فایل ذخیره شده
samenamevar = 1
Do While My.Computer.FileSystem.FileExists("e:\12" + CStr(samenamevar) + ".txt") ' بررسی تکراری بودن نام فایل
samenamevar = samenamevar + 1
Loop
My.Computer.FileSystem.CopyFile("c:\12.txt", "e:\12" + CStr(samenamevar) + ".txt")

amin_paj

سه شنبه 23 مهر 1392, 14:48 عصر

ممنون چند باری کمک کردی انشاالله جبران کنم .