German Datensicherung

[so27]

Hallo zusammen,

ich habe ein kleines Problem. Ich möchte eine Datensicherung der Dateien in Dir.Internal über einen Dateidialog in irgendein Verzeichnis außerhalb von Dir.Internat anlegen.

Ich verwende dazu Dialogs 2.9.2 und ABZipUnzip 1.00.

Über den folgenden Code lasse ich die Sicherung laufen. Innerhalb von Dir.Internal kein Problem, sobald ich aber ein Verzeichnis außerhalb wähle, wird die ZIP-Datei nicht angelegt. Übersehe ich etwas?

Sub DatensicherungStart_Click
   Dim sdRoot As String
   Dim AppRoot As String
   
   sdRoot = File.DirRootExternal & "/"
   AppRoot= File.DirInternal & "/"
   
   Dim fd As FileDialog
   
   fd.FastScroll = True
   fd.FilePath = AppRoot'File.DirRootExternal ' also sets ChosenName to an emtpy string
   ret = fd.Show("Datensicherung", "Yes", "No", "", Null)' Bmp)   
   
   ProgressDialogShow("Sicherung wird angelegt...")
   
   sdRoot=fd.FilePath
   
   If File.ExternalWritable = False Then
        Msgbox("Cannot write on storage card.", "")
    End If
   
   myZip.ABZipDirectory(AppRoot, sdRoot & "/DaSi.zip")
   
   DoEvents
      
   ProgressDialogHide
   Msgbox("Erledigt","")
   
End Sub

 

[so27]

Problem gelöst!!!

Hallo zusammen,

ich habe das Problem lösen können.

In die AndroidManifest.xml müssen folgende Zeilen um die Berechtigung zum Schreiben zu bekommen.

<uses-permission android:name="android.permission.WRITE_EXTERNAL_STORAGE"/>
<uses-permission android:name="android.permission.WRITE_INTERNAL_STORAGE"/>
<uses-permission android:name="android.permission.READ_EXTERNAL_STORAGE"/>
<uses-permission android:name="android.permission.READ_INTERNAL_STORAGE"/>