S Sinimon Member Jan 9, 2012 #1 Hey ich programmiere am rechner mit visual basic und muss 120 dateien bei programm start am handyherunter laden. nun hab ich ueberlegt mit vb am rechner automatischein zip archiv hochzulqden. nun die frage: kann man mit basic4android ein zip oder anderes komprimiertes archiv oeffnen / entpacken?
Hey ich programmiere am rechner mit visual basic und muss 120 dateien bei programm start am handyherunter laden. nun hab ich ueberlegt mit vb am rechner automatischein zip archiv hochzulqden. nun die frage: kann man mit basic4android ein zip oder anderes komprimiertes archiv oeffnen / entpacken?
klaus Expert Licensed User Longtime User Jan 10, 2012 #2 Es gibt eine zip/unzip Library, diese steht aber nur für Benutzer zur Verfügung die Basic4Android gekauft haben. Beste Grüsse.
Es gibt eine zip/unzip Library, diese steht aber nur für Benutzer zur Verfügung die Basic4Android gekauft haben. Beste Grüsse.
S Sinimon Member Jan 10, 2012 #3 Hey, ich benutze folgenden code: Code: Copy Sub Process_Globals Dim Zip As ABZipUnzip End Sub Sub Activity_Create(FirstTime As Boolean) zip.ABunzip(File.DirRootExternal & "Januar.zip",File.DirRootExternal & "hallo") End Sub kannst du mir sagen warum das nicht funktioniert? Der sollte das eigentlich entpacken. kommt keinerlei meldung.
Hey, ich benutze folgenden code: Code: Copy Sub Process_Globals Dim Zip As ABZipUnzip End Sub Sub Activity_Create(FirstTime As Boolean) zip.ABunzip(File.DirRootExternal & "Januar.zip",File.DirRootExternal & "hallo") End Sub kannst du mir sagen warum das nicht funktioniert? Der sollte das eigentlich entpacken. kommt keinerlei meldung.
Kiffi Well-Known Member Licensed User Longtime User Jan 14, 2012 #6 Sinimon said: Der sollte das eigentlich entpacken. kommt keinerlei meldung. Click to expand... welche Meldung sollte denn auch kommen? Code: Copy If zip.ABunzip(File.DirRootExternal & "Januar.zip",File.DirRootExternal & "hallo") Then ' hat geklappt Else ' hat nicht geklappt End If Ein Blick in die Doku lohnt sich immer. Grüße ... Kiffi
Sinimon said: Der sollte das eigentlich entpacken. kommt keinerlei meldung. Click to expand... welche Meldung sollte denn auch kommen? Code: Copy If zip.ABunzip(File.DirRootExternal & "Januar.zip",File.DirRootExternal & "hallo") Then ' hat geklappt Else ' hat nicht geklappt End If Ein Blick in die Doku lohnt sich immer. Grüße ... Kiffi