Prikazi cijelu temu 14.05.2015 10:07
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Lokacija:zagreb


Predmet:Re: Gzip arhiver
evo probao ja, ne raspakira.
za unzip napisao ovo:
PreuzmiIzvorni kôd (Visual Basic):
  1. program = App.Path & "\7za.exe"
  2.     zipFajl = App.Path & "\data.bin"
  3.     strString = program & " e " & zipFajl & " -y"  'ovo y je za overwrites
  4.    ShellAndWait strString, vbMinimizedNoFocus

nakon sto ode u modul tamo ide do
PreuzmiIzvorni kôd (Visual Basic):
  1. If process_handle <> 0 Then
  2.         WaitForSingleObject process_handle, INFINITE
  3.         CloseHandle process_handle
  4.     End If
ali je process_handle=0 pa prema tome ne odradi nista i ode na
exit sub
dakle ne raspakira
zivot je moja domovina.