private Sub DeleteFilesInFolder(FolderName As String) As String
If Not(SD.Exists(FolderName)) Then
Return ERR_NOT_FOUND
End If
LCD.Clear
PutString(0,1,"Please Wait...",True)
Dim MaxF As Byte = 0
For Each f As File In SD.ListFiles(FolderName)
'Log(GetFullFileName(f.Name,FolderName))
SD.Remove(GetFullFileName(f.Name,FolderName))
MaxF = MaxF + 1
If MaxF > 30 Then 'stack overflow if number of files is > 30
LCD.Clear
Return ERR_MAX_STACK_OR_BUFFER_SIZE
End If
Next
LCD.Clear
Return True
End Sub
Private Sub GetFullFileName(FileName As String, FolderName As String) As String
Dim FullFileName As String
Private raf As RandomAccessFile
Dim FileNameArr (FileName.Length + FolderName.Length + 1) As Byte
raf.Initialize(FileNameArr, True)
raf.WriteBytes(FolderName, 0, FolderName.Length, raf.CurrentPosition)
raf.WriteBytes("/", 0, 1, raf.CurrentPosition)
raf.WriteBytes(FileName, 0, FileName.Length, raf.CurrentPosition)
FullFileName = BC.StringFromBytes(FileNameArr)
Return FullFileName
End Sub