چطوری یک پوشه رو با محتویاتش پاک کنم

[xrezax]

چطوری یک پوشه رو با محتویاتش پاک کنم ؟؟؟

(راهی هست که اگه فایلی هم توی اون پوشه بود که در حال اجرا باشه خود به خود بسته بشه )

[ho3ein.3ven]

برای پاک کردن یک پوشه اول باید محتویاتش رو پاک کنی . برای اینکار می تونی از fso استفاده کنی .
در بخش refrence ها microsoft subscripting runtime را اضافه کن.
آموزشش تو سایت هست جستجو کن.

[xrezax]

راه دیگه ای نیست ؟؟ ساده تر ؟؟
سوس بزارید ممنون میشم

[aliman12]

برای پاک کردن محتویات پوشه ابتدا پرونده های داخلش رو پاک کنید
برای اینکار آدرس پوشه رو بدید به کنترل File listbox و یکی یکی با دستور kill و با استفاده از آدرس ترکیبی که از روی مسیر پوشه + اسم پرونده بدست میاد از بین ببریدشون
یک عدد کنترل فایل لیست باکس روی فرمتون قرار بدید و کد زیر رو امتحان کنید :



h = "آدرس پوشه"
File1.Path = h
For i = 0 To File1.ListCount - 1
Kill h & "\" & File1.List(i)
Next i
RmDir h

[سید حمید حق پرست]

سلام علیکم

اگر پوشه در درایو خاصی میباشد کد زیر :
Dim FSO, FS
Private Sub Command1_Click()
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.DeleteFolder "masir morde nazar"
End Sub
اگر هم پوشه در کنار فایل اجرایی پروژه هست کد زیر :

Dim FSO, FS
Private Sub Command1_Click()
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.DeleteFolder App.Path + "esme folder"
End Sub

موفق باشید


یا علی (ع)

[just4froum]

با اجازه جناب حق پرست یه تغییر کوچک در برنامه دوم :

Dim FSO
Private Sub Command1_Click()
Set FSO = CreateObject("Scripting.FileSystemObject")
If Right(App.Path, 1) = "\" Then
FSO.DeleteFolder App.Path + "esme folder"
Else
FSO.DeleteFolder App.Path + "\" + "esme folder"
End If
End Sub

[setroyd]

برای بستن برنامه ی در حال اجرا شما نیاز به کار با پروسس داری که باید ادرس رو بگیری و با استفاده از ادرس میتونی exe مورد نظر رو end کنی اگر مبتدی هستی نظرم اینه از کار با توابه api که رو پروسس کار میکنن شروع کن تا به نتیجه برسی