Hi, why i can't write in existing file?
This is my code:
Sub RegisterResults (minutesInt As Int, secondsInt As Int, errorsInt As Int)
Dim list1 As List
Dim FullPath As String
If File.Exists(File.DirRootExternal,"MathTest/ListResults.txt") Then 'se esiste
'carico i dati dal file di testo
list1=File.ReadList(File.DirRootExternal, "MathTest/ListResults.txt")
Dim trovato As Boolean
trovato = False
rp.CheckAndRequest(rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
If Result = False Then
MsgboxAsync("No permission to access external storage", "")
Return
Else
For i = 0 To 99
listResult(i)=list1.Get(i)
If listResult(i) = "0" And trovato = False Then
'memorizzo i dati da registrare
listResult(i) = dayTodayString & "|" & monthTodayString & "|" & yearTodayString & "|" & minutesInt & "|" & secondsInt & "|" & errorsInt
trovato=True
Else
End If
Next
File.WriteList(FullPath,"ListResults.txt", listResult)
End If
Else 'non esiste
This is my code:
Sub RegisterResults (minutesInt As Int, secondsInt As Int, errorsInt As Int)
Dim list1 As List
Dim FullPath As String
If File.Exists(File.DirRootExternal,"MathTest/ListResults.txt") Then 'se esiste
'carico i dati dal file di testo
list1=File.ReadList(File.DirRootExternal, "MathTest/ListResults.txt")
Dim trovato As Boolean
trovato = False
rp.CheckAndRequest(rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
If Result = False Then
MsgboxAsync("No permission to access external storage", "")
Return
Else
For i = 0 To 99
listResult(i)=list1.Get(i)
If listResult(i) = "0" And trovato = False Then
'memorizzo i dati da registrare
listResult(i) = dayTodayString & "|" & monthTodayString & "|" & yearTodayString & "|" & minutesInt & "|" & secondsInt & "|" & errorsInt
trovato=True
Else
End If
Next
File.WriteList(FullPath,"ListResults.txt", listResult)
End If
Else 'non esiste