درخواست تابعي كه يك فولدر را با تمام زير شاخه ها و فايل ها حذف كند

سلام دوستان عزيز.ميشه ازتون خواهش كنم كه به دو قسمت سوال من خوب توجه كنيد:

قسمت اول:
من مي خواستم بدونم كه آيا تابعي هست كه بشه با اون يك فولدر را با تمام زير شاخه ها و فايل هاي موجود در اون حذف كرد.

قسمت دوم:
سپس خود فايلي را كه اين كار را انجام مي دهد هم همراه فايل هاي و ساير زير شاخه ها حذف شود.

اگر هم چنين تابعي موجود نيست كه قسمت دوم را انجام دهد پس از شما دوستان عزيز مي خواهم كه براي همان قسمت اول يك تابع تعريف كنيد.

منظور از حذف اين نيست كه بفرسته توي سطل آشغال ويندوز ها...

منظورم حذف كامل مثل Shift-Delete

خيلي ممنونم...

مي توني از دستورات cmd استفاده كني: دستور deltree يه فولدر و تمام ساب فولدرهاشو پاك مي كنه و براي جذف مستقيم هم رجيستري رو تغيير بدي

دوست عزيز از توجه شما ممنونم...

اما مي تونيد لطفا يا يه مثال بزنيد يا يه منبع معرفي كنيد كه من برم دنبالش.خيلي ممنون ميشم!!!:20:

از دستور kill یا rmdir هم میشه استفاده کرد.

مثلا اين دستور فولدري بنام New folder رو از مسير c:\Program files پاك مي كنه و هرچي توش باشه همراهش پاك مي شه:

کد:

---

Shell "cmd /c deltree c:\program files\new folder"

---

البته دستور deltree در ورژن هاي 6 به بالاي داس هستش

نقل قول:

---

نوشته شده توسط Julian [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

از دستور kill یا rmdir هم میشه استفاده کرد.

---

من نمي خوام يه فايل پاك كنم من مي خوام يه پوشه با تمام فايل ها و زير شاخه ها رو پاك كنم..

بازم ممنون...

نقل قول:

---

نوشته شده توسط Ar@m [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

مثلا اين دستور فولدري بنام New folder رو از مسير c:\Program files پاك مي كنه و هرچي توش باشه همراهش پاك مي شه:

کد:

---

Shell "cmd /c deltree c:\program files\new folder"

---

البته دستور deltree در ورژن هاي 6 به بالاي داس هستش

---

دوست عزيز من نتونستم با دستوري كه شما داده بودين كار كنم...

اگه راه ديگري هست ميشه لطف كنين و بگين...

ممنونم

نقل قول:

---

نوشته شده توسط tarfand4u [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

من نمي خوام يه فايل پاك كنم من مي خوام يه پوشه با تمام فايل ها و زير شاخه ها رو پاك كنم..

بازم ممنون...

---

kill رو اشتباه نوشتم.
ولی rmdir دقیقا همین کارو میکنه که شما میخوای.

سلام.
بهترین کار اینه که با توابع ریکرسیو و استفاده از ریفرنس file system object برنامت رو بنویسی. اول فولدر بالا رو پاک میکنی. اگه کامل پاک نشد میری داخلش و تک تک فولدر ها رو پاک میکنی. هر کدوم پاک نشدن میری داخلش و همین طور ادامه میدی تا کل فولدر ها پاک شن.
لازم نیست دستی تک تک فولدرهارو پاک کنی. بار روش ریکرسیو یا تابع بازگشتی با نوشتن یه تابع برنامه همه کارو برات میکنه.

نقل قول:

---

نوشته شده توسط Payman_62 [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

سلام.
بهترین کار اینه که با توابع ریکرسیو و استفاده از ریفرنس file system object برنامت رو بنویسی. اول فولدر بالا رو پاک میکنی. اگه کامل پاک نشد میری داخلش و تک تک فولدر ها رو پاک میکنی. هر کدوم پاک نشدن میری داخلش و همین طور ادامه میدی تا کل فولدر ها پاک شن.
لازم نیست دستی تک تک فولدرهارو پاک کنی. بار روش ریکرسیو یا تابع بازگشتی با نوشتن یه تابع برنامه همه کارو برات میکنه.

---

مي شه يكمي بيشتر توضيح بدي!

دوستان من از توجه شما خيلي ممنونم اما ميشه يه جوري اين موضوع رو بازترش كنيد براي من اين تابع خيلي خيلي حياتي هست...

ممنون

مشکلت حله! اینم کد:

کد:

---

Dim FSO As Object

Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.DeleteFolder "آدرس پوشه مورد نظر"

---

به همین سادگی! :11:

نقل قول:

---

نوشته شده توسط Smafias [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

مشکلت حله! اینم کد:

کد:

---

Dim FSO As Object

Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.DeleteFolder "آدرس پوشه مورد نظر"

---

به همین سادگی! :11:

---

دوست عزيز لطف بسيار بزرگي در حق من كردين خيلي متشكرم...:10:

بازم منو شرمنده كردي ها!!!:43:

خيلي ممنونم...