سوال => نحوه حذف یک "فولدر" از SD card

[طاها 480]

سلام دوستان، چجوری میشه یه فولدر رو از روی SD card حذف کرد؟

با این کد نمیشه هرچی میزنم

file.delete(file.DirRootExternal,"folder_name")

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

بفرمایید کد کامل

دقیق نمیدونم عمل کنه یا نه ولی یه کد دیگه هم میزارم

#Region Project Attributes
    #ApplicationLabel: B4A Example
    #VersionCode: 1
    #VersionName:
    'SupportedOrientations possible values: unspecified, landscape or portrait.
    #SupportedOrientations: unspecified
    #CanInstallToExternalStorage: False
#End Region

#Region Activity Attributes
    #FullScreen: False
    #IncludeTitle: True
#End Region

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.

End Sub

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.
Dim path As String

End Sub

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    Activity.LoadLayout("Layout1")

End Sub

Sub button1_Click
    root = File.DirRootExternal
    path="/telegram/telegram images"
    DeleteFolderRecursive(root & path)
End Sub

Sub DeleteFolderRecursive(Folder As String)
For Each root & path As String In File.ListFiles(Folder)
If File.IsDirectory(Folder, root & path) Then
DeleteFolderRecursive (File.Combine(Folder, root & path))
End If
File.Delete(Folder, root & path)
Next
End Sub
Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub imagedelete
	Dim r,f,sdcard2 As String
 Dim fileList As List
 Dim filelist2 As List
Dim imglis1 As Int
  fileList = File.ListFiles(File.DirRootExternal & "/telegram/telegram images/")
  fileList.Sort(True)
  For imglis1 = 0 To fileList.Size-1 
  r = fileList.Get(imglis1)
	 File.Delete(File.DirRootExternal & "/telegram/telegram images/",r)
	  ToastMessageShow("لطفا تا پایان پاکسازی شکیبا باشید",True)
  Next
End Sub 

[طاها 480]

 

بفرمایید کد کامل

دقیق نمیدونم عمل کنه یا نه ولی یه کد دیگه هم میزارم

#Region Project Attributes
    #ApplicationLabel: B4A Example
    #VersionCode: 1
    #VersionName:
    'SupportedOrientations possible values: unspecified, landscape or portrait.
    #SupportedOrientations: unspecified
    #CanInstallToExternalStorage: False
#End Region

#Region Activity Attributes
    #FullScreen: False
    #IncludeTitle: True
#End Region

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.

End Sub

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.
Dim path As String

End Sub

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    Activity.LoadLayout("Layout1")

End Sub

Sub button1_Click
    root = File.DirRootExternal
    path="/telegram/telegram images"
    DeleteFolderRecursive(root & path)
End Sub

Sub DeleteFolderRecursive(Folder As String)
For Each root & path As String In File.ListFiles(Folder)
If File.IsDirectory(Folder, root & path) Then
DeleteFolderRecursive (File.Combine(Folder, root & path))
End If
File.Delete(Folder, root & path)
Next
End Sub
Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub imagedelete
	Dim r,f,sdcard2 As String
 Dim fileList As List
 Dim filelist2 As List
Dim imglis1 As Int
  fileList = File.ListFiles(File.DirRootExternal & "/telegram/telegram images/")
  fileList.Sort(True)
  For imglis1 = 0 To fileList.Size-1 
  r = fileList.Get(imglis1)
	 File.Delete(File.DirRootExternal & "/telegram/telegram images/",r)
	  ToastMessageShow("لطفا تا پایان پاکسازی شکیبا باشید",True)
  Next
End Sub 

کد کار نمیکنه

[طاها 480]

دوست عزیز این چیه دیگه ؟

DeleteFolderRecursive("telegram")

من گفتم آدرس رو بده . تو که فقط اومدی اسم رو دادی !!!

اسم و آدرس کامل رو بده !

اون کدهای اضافی چیه که اومدی توی Button شرط گذاشتی ؟

خود Sub ای که تعریف کردیم همین شرط رو داره !

خب مسیرش چجوری میشه؟؟

فایل مال برنامه خودم نیست. فولدر برنامه تلگرامو میخوام باهاش حذف کنم

[طاها 480]

من از روش آقای ایزدی استفاده کردم و فک کنم مسیر فایلم درست شد. ولی حالا یه ارور جدید میده. کد فعلی(بعد تصحیح)

ارور

 

an error has occurred in sub:main_deletefolderrecursive (java line:347)

java.lang.runtimeException:

object should first be intialized (list)

continue?

Sub button1_Click
	DeleteFolderRecursive("sdcard/beetalk")
End Sub

Sub DeleteFolderRecursive(Folder As String)
   For Each f As String In File.ListFiles(Folder)
     If File.IsDirectory(Folder, f) Then
       DeleteFolderRecursive (File.Combine(Folder, f))
     End If
     File.Delete(Folder, f)
   Next
End Sub

[shahab.es 5,429]

Debug Legacy بگیر ببین از کدو خط ارور میگیره

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

از لیست استفاده کردی خودت؟

یا بعد از این کد ارور داری؟

[طاها 480]

Debug Legacy بگیر ببین از کدو خط ارور میگیره

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

از لیست استفاده کردی خودت؟

یا بعد از این کد ارور داری؟

تو این حالت ارور نمیده، ولی فولدر هم پاک نمیکنه