Printable View
سلام ببخشید من یه سوال داشتم میخواستم بپرسم چه جوری میشه یه پوشه رو با تمامی زیر مجموعش منظورم محتوای داخلش هست توی یه فولدر که توی مسیر جاری که نرم افزار داره اجرا میشه کپیش کرد.
توی انجمن هم گشتم ولی چیز مناسبی دستگیرم نشد.
راستی اگر میشه از راه Microsoft Scripting Runtimeنباشه چون ممکنه توی یه سیستم دیگه این کتابخانه موجود نباشه.:قلب:
ممنون
Microsoft Scripting Runtime فكر ميكرنم از ويندوز XP به بعد در تمام ويندوزها به صورت پيشفرض هست
كسي هم الان از 98 , me ... استفاده نمي كنه
بله شما درست میگید.
حالا از این دو راه اگر کسی میتونه کمک کنه ممنونش میشم.
Microsoft Scripting Runtime از منوی رفرنس فعال کنید
بعد :
dim a as New FileSystemObjectاگر true را به false تغییر دهید در صورتی که چنین پوشه ای وجود داشته باشه دیگه کپی نمیشه
a.CopyFolder "مقصد", "مبدا", True
ممنون دوست عزیز ولی توی این کد باید اسم دراوی رو هم بنویسیم.
من منظورم اینه که آدرس درایو رو دیگه نمیخوام چون ممکنه به نفر این برنامه رو توی یه درایو دیگه نصب کنه من میخوام بگم از همین پوشه که توی مسیر برنامه هست کپی بگیره.
اگر منظور شما این هست که از یک پوشه در مسیر خود برنامه ساخت شما یک کپی به یه جای دیگه بگیر باز هم همین کد فقط :نقل قول:
نوشته شده توسط reza_akbari2009
a.CopyFolder app.path & "\ali","c:\", True
اگر منظورتون این نیست واضح تر بگید
خیلی ممنون دوست عزیز.
خب حالا اگر بخواییم تمامی فایل های داخل پوشه رو پاک کنیم باید چیکار کنیم؟
Delete كردن يك فولدر با همه زيرشاخه ها و فايل هاشنقل قول:
نوشته شده توسط reza_akbari2009
با توجه به تکراری بودن موضوع؛ تاپیک قفل شد/
یک نمونه تاپیک مشابه:
کپی گرفتن پوشه