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?
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?
B4X:
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
Last edited: