Sub Button1_Click
Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
wait for Activity_PermissionResult (Permission As String, Result1 As Boolean)
If Result1 Then
File.Copy(File.DirAssets,"book1.xlsx",File.DirInternal,"book1.xlsx")
xls.Initialize("xls", File.Combine(File.DirInternal,"book1.xlsx"))
Dim sheet As XLSSheet = xls.getSheetAt(xls.ActiveSheetIndex)
Dim Row As XSSFRow = sheet.CreateRow(1)
Dim Cell As XSSFCell = Row.createCell(1)
Cell.StringCellValue = "Test file"
Dim Cell As XSSFCell = Row.createCell(2)
Cell.StringCellValue = EditText1.Text
Dim Cell As XSSFCell = Row.createCell(3)
Cell.StringCellValue = File.ReadString(File.DirInternal, "name.txt")
xls.write2(File.DirInternal, "TestSheet.xlsx")
Else
ToastMessageShow("Permissions not granted", True)
End If
End Sub