#Region Project Attributes
#ApplicationLabel: LISTA FILE PDF
#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
' Android 13 - Librerie Core e RuntimePermission - SDK 34
' nel manifest c'è :
' AddPermission("android.permission.READ_EXTERNAL_STORAGE")
' AddPermission("android.permission.WRITE_EXTERNAL_STORAGE")
' SetApplicationAttribute(android:requestLegacyExternalStorage, true)
End Sub
Sub Globals
Private folderPath As String = "/storage/emulated/0/Download" ' cartella con permessi RWX
Private rp As RuntimePermissions ' Oggetto per la gestione dei permessi
Private ListView1 As ListView ' Per visualizzare l'elenco dei file PDF
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.Color = Colors.White
Activity.Title = "LISTA FILE PDF"
ListView1.Initialize("ListView1")
Activity.AddView(ListView1, 0, 0, 100%x, 100%y)
' Controllo e richiesta permessi runtime
If rp.Check(rp.PERMISSION_READ_EXTERNAL_STORAGE) = False Then
rp.CheckAndRequest(rp.PERMISSION_READ_EXTERNAL_STORAGE)
Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
If Permission = rp.PERMISSION_READ_EXTERNAL_STORAGE Then
If Result = True Then
Log("Permessi concessi.")
ListPdfFiles
Else
Log("Permessi negati.")
'===================== VIENE VISUALIZZATO QUESTO !!!!! =====
ToastMessageShow("Permesso negato. Non è possibile accedere ai file.", True)
'===========================================================
Return
End If
End If
Else
Log("Permessi già concessi.")
ListPdfFiles
End If
End Sub
Sub Activity_PermissionResult(Permission As String, Result As Boolean)
Log("Permesso gestito: " & Permission & ", Risultato: " & Result)
If Permission = rp.PERMISSION_READ_EXTERNAL_STORAGE Then
If Result = True Then
Log("Permessi concessi. Procedo con l'elenco dei file.")
ListPdfFiles
Else
Log("Permessi negati.")
ToastMessageShow("Permesso negato. Non è possibile accedere ai file.", True)
End If
End If
End Sub
Sub ListPdfFiles
Dim fileList As List
fileList.Initialize
Log("Controllo della cartella: " & folderPath)
If File.IsDirectory(folderPath, "") Then
fileList = File.ListFiles(folderPath)
Log("Numero di file trovati: " & fileList.Size)
For Each fName As String In fileList
If fName.ToLowerCase.EndsWith(".pdf") Then
ListView1.AddSingleLine(fName) ' Aggiungi i file PDF alla lista
Log("File aggiunto: " & fName)
End If
Next
Else
Log("La cartella non esiste o non è accessibile.")
ToastMessageShow("La cartella non è accessibile o non contiene file PDF.", True)
End If
End Sub
