Prikazi cijelu temu 14.05.2015 11:04
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Lokacija:Ohrid Makedonija


Predmet:Re: Gzip arhiver
Eve komplet
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub Command1_Click()
  2.  Dim Program As String
  3.          Program = App.Path & "\7za.exe"            ' treba da ima rar.exe vo istiot direktorium od ovaj program
  4. Dim Fajlovi As String
  5.          Fajlovi = App.Path & "\*.txt"              ' Svi txt Fajlove
  6. Dim VoRar As String
  7.          VoRar = App.Path & "\Data.zip"             ' Vo isti folder gde se nalazi program formira se fajl Data.zip
  8. Dim strString As String
  9.          strString = Program & " a " & VoRar & " " & Fajlovi
  10.      
  11.      ' e sad ovde vec se izvrsi pakovajne podatke
  12.     ShellAndWait strString, vbNormalNoFocus
  13. End Sub
  14.  
  15. Private Sub Command2_Click()
  16.  Dim Program As String
  17.          Program = App.Path & "\7za.exe"            ' treba da ima rar.exe vo istiot direktorium od ovaj program
  18. Dim OdRar As String
  19.          OdRar = App.Path & "\Data.zip"             ' Data.zip mora se nalaziti u isti folder gde je program i 7za.exe
  20. Dim strString As String
  21.          strString = Program & " e " & OdRar & " -o" & App.Path & "\" & " -y"  ' vo istiot folder gde se nalazi program
  22.  
  23.  
  24.      ' e sad ovde vec se izvrsi pakovajne podatke
  25.     ShellAndWait strString, vbNormalNoFocus
  26. End Sub