رفتن به مطلب
  • 0

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


arastooms

سوال

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

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

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

 

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

 

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

5 پاسخ به این سوال تاکنون داده شده است

ارسال های توصیه شده

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

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")
لینک ارسال
به اشتراک گذاری در سایت های دیگر

سلام

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

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

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","") 
لینک ارسال
به اشتراک گذاری در سایت های دیگر

@,

درود

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

  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
لینک ارسال
به اشتراک گذاری در سایت های دیگر

 

@,

درود

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

  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

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

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

چه کنم؟؟

لینک ارسال
به اشتراک گذاری در سایت های دیگر

@,

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

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

File.Delete(File.DirInternal,"/SOUND")
لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

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

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...