سوال: کپی گرفتن پوشه [بایگانی]

saeedzx

یک شنبه 18 مرداد 1388, 12:48 عصر

سلام
دوستان من دستوری رو می خواستم که بشه با اون پوشه رو هر جا کپی کرد و اگه پوشه ای با همان نام در انجا قرار داشت پیغام نده دوباره همونو کپی کنه

mmssoft

یک شنبه 18 مرداد 1388, 13:07 عصر

می تونید از تابع CopyFile برای انجام این کار استفاده کنید :

a = CopyFile(FileforCopy, CopyDir, 0)

به جای بخش FileforCopy آدرس فایلی رو که میخواین کپی کنید رو بنویسید و به جای CopyDir هم مسیری که میخواین فایل کپی بشه بنویسید. در ضمن اگه عدد آخر 0 باشه پیغام مبنی بر جایگزین شدن مشاهده نمی شه و فایل جدید در صورت هم نام بودن جای فایل قدیمی رو میگیره، ولی اگر عدد 1 باشه عکس این کار اتفاق میفته و در صورت هم نام بودن پیغام مشاهده می شه.

احتمالا شما این کد رو برای بکآپ گرفتن از دیتابیس می خواین؟ :متفکر:

ƒxmahdi

یک شنبه 18 مرداد 1388, 20:06 عصر

نمونه زیر ( کپی کردن پوشه با محتویات داخل )

xxxxx_xxxxx

دوشنبه 19 مرداد 1388, 04:14 صبح

می تونید از تابع CopyFile برای انجام این کار استفاده کنید :

a = CopyFile(FileforCopy, CopyDir, 0)به جای بخش FileforCopy آدرس فایلی رو که میخواین کپی کنید رو بنویسید و به جای CopyDir هم مسیری که میخواین فایل کپی بشه بنویسید. در ضمن اگه عدد آخر 0 باشه پیغام مبنی بر جایگزین شدن مشاهده نمی شه و فایل جدید در صورت هم نام بودن جای فایل قدیمی رو میگیره، ولی اگر عدد 1 باشه عکس این کار اتفاق میفته و در صورت هم نام بودن پیغام مشاهده می شه.

احتمالا شما این کد رو برای بکآپ گرفتن از دیتابیس می خواین؟ :متفکر:
سلام،
به عنوان تاپيك نگاه كنيد!

mmssoft

دوشنبه 19 مرداد 1388, 08:44 صبح

سلام،
به عنوان تاپيك نگاه كنيد!

بله شما درست میگین.

کپی کردن پوشه :

Dim COP As New FileSystemObject

COP.CopyFolder "C:\My Folder", "C:\My Folder 2"

Max Payne

دوشنبه 19 مرداد 1388, 09:09 صبح

به نظر شما اين بنده خدا اين جمله رو بنويسه وي بي خودكار چيزي ميدونه نيازي به reference نداره
فكر كنم بايد به اين رجوع كنه Microsoft Scripting Runtime

saeedzx

دوشنبه 19 مرداد 1388, 21:32 عصر

ببینیت مثلاً من میخوام
مسیر کپی رو از توی text1.text برداره
و بریزه تو مسیر text2.text

saeedzx

دوشنبه 19 مرداد 1388, 22:16 عصر

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

saeedzx

دوشنبه 19 مرداد 1388, 22:36 عصر

من اینو رو میدونم ولی وقتی این کار رو میکنم جواب نمی ده
خودت تست کن
:تشویق:

reza_akbari2009

شنبه 13 شهریور 1389, 13:01 عصر

واسه من یه مشکلی داره من میخوام یه پوشه رو با تمام محتواش توی یه مسیر دیگه کپی کنم ولی وقتی این کارو میکنم عمل نمیکنه و برنامه بسته میشه.
ممنون میشم بهم بگید مشکل از کجاست که این اتفاق میوفته.
مرسی

xxxxx_xxxxx

شنبه 13 شهریور 1389, 14:11 عصر

واسه من یه مشکلی داره من میخوام یه پوشه رو با تمام محتواش توی یه مسیر دیگه کپی کنم ولی وقتی این کارو میکنم عمل نمیکنه و برنامه بسته میشه.
ممنون میشم بهم بگید مشکل از کجاست که این اتفاق میوفته.
مرسی
سلام،
از چه دستوراتی استفاده می کنید؟ چه خطایی میده؟ یکم توضیح بدید!

reza_akbari2009

شنبه 13 شهریور 1389, 16:24 عصر

من این دستور رو استفاده میکنم.
Dim COP As New FileSystemObject
COP.CopyFolder "C:\My Folder", "C:\My Folder 2"

ولی خب بعضی موقع ها کار میکنه و بعضی موقع ها کلا از برنامه خارج میشه بدون اینکه اروری چیزی بده.
ممنون میشم کم کنید

modirmasool

شنبه 13 شهریور 1389, 17:27 عصر

من این دستور رو استفاده میکنم.
Dim COP As New FileSystemObject
COP.CopyFolder "C:\My Folder", "C:\My Folder 2"

ولی خب بعضی موقع ها کار میکنه و بعضی موقع ها کلا از برنامه خارج میشه بدون اینکه اروری چیزی بده.
ممنون میشم کم کنید

فایل ضمیمه رو امتحان کنین:
(تیک زدن Microsoft Scripting Runtime یادتون نره)

returnx

شنبه 13 شهریور 1389, 18:55 عصر

این رو هم امتحان کن اگه جواب نداد از منوی Project گزینه ی Refrence انتخاب کن بعد Microsoft Scripting Runtime رو تیک بزن.
http://www.4shared.com/file/arsMZnsx/Copy_Folder.html