Private Sub lblviderZimaj_Click
Msgbox2Async("Confirm cleaning all the folder","cleaning folder 'zimaj'", _
"yes","","no",Null,False)
wait for msgbox_result(res As Int)
If res=DialogResponse.NEGATIVE Then Return
'effacement de toutes les images / clearing all the lines
Dim lifi As List
lifi.Initialize
lifi.Add(File.ListFiles(File.DirInternal & "/zimaj"))
For u=0 To lifi.Size-1
File.Delete(File.DirInternal & "/zimaj",lifi.Get(0))
lifi.RemoveAt(0)
Next
If lifi.Size=0 Then
ToastMessageShow("Folder 'zimaj' is empty !",False)
Else
MsgboxAsync("folder zimaj can't be cleared :" & CRLF & _
lifi.Size & " remain.","ERREUR")
wait for msgbox_result
Dim liste As String
For u=0 To lifi.Size-1
liste=liste & CRLF & lifi.Get(u)
Next
MsgboxAsync("the remaining files are : " & CRLF & liste,"list of non wiped files")
End If
End Sub