پاک کردن یک پوشه با محتوی در file.dirinternal

[arastooms 1,046]

سلام به همه عزیزان 
در ابتدا عرض کنم که در باره این موضوع سرچ کردم و بیشتر به موضوعات پاک کردن فایل برخورد کردم 
اگر تاپیکی هست من رو ببخشید و لینک رو معرفی بفرماید کمک بزرگی هست
در غیر اینصورت :

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

من با این دستور پوشه ای ساختم به اسم SOUND

 

File.MakeDir(File.DirInternal,"SOUND")

 

حالا قصد دارم کاربر برنامه ورژن جدید رو باز کرد درصورتی که این پوشه موجوده (( چون اگر اولین بارش باشه دانلود میکنه مثلما از قبل این پوشه رو نداره )) پوشه و محتویات کاملا پاک بشه

چه دستوری رو باید استفاده کنم؟
مرسی

[arastooms 1,046]

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

Dim list7 As List
  Dim k As String
  Dim doc As Int
    list7 = File.ListFiles(File.DirInternal&"/sound")	
    list7.Sort(True)
  For doc = 0 To list7.Size-1
    k = list7.Get(doc)
	 File.Delete(File.DirInternal&"/sound",k)
	  Next

	File.Delete(File.DirInternal,"/sound")

[Amir - B 184]

سلام

شما ابتدا باید محتوی پوشه را پاک کنید بعد پوشه رو

نمیشه به تنهایی پوشه را حذف کرد 

Dim list1 As List
	list1 = File.ListFiles(File.DirInternal,"SOUND")
	For i=0 To list1.Size-1
		
		File.Delete(File.DirInternal,"SOUND",list1.Get(i))
	Next
	File.Delete(File.DirInternal,"SOUND","") 

[محمد رشوند 1,208]

@,

درود

برای پاک سازی باید از کد زیر استفاده کنی و صد در صد کار میکنه

  Dim list7 As List
  Dim k As String
  Dim doc As Int
    list7 = File.ListFiles(File.DirInternal&"/adres")	
    list7.Sort(True)
  For doc = 0 To list7.Size-1
    k = list7.Get(doc)
	 File.Delete(File.DirInternal&"/adres",k)
	  Next

[arastooms 1,046]

 

@,

درود

برای پاک سازی باید از کد زیر استفاده کنی و صد در صد کار میکنه

  Dim list7 As List
  Dim k As String
  Dim doc As Int
    list7 = File.ListFiles(File.DirInternal&"/adres")	
    list7.Sort(True)
  For doc = 0 To list7.Size-1
    k = list7.Get(doc)
	 File.Delete(File.DirInternal&"/adres",k)
	  Next

سلام وسپاس از شما برای راهنمایی محمد جان 

من موفق شذم با کد بالا فایلها رو پا ک کنم و لی پوشه خالی هنوز هست !!!!

چه کنم؟؟

[محمد رشوند 1,208]

@,

ارسطو جان بنظرم پوشه خالی قابل پاک شدن در کلاس  b4a نباشه

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

File.Delete(File.DirInternal,"/SOUND")