Prikazi cijelu temu 13.05.2015 13:51
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Lokacija:Ohrid Makedonija


Predmet:Re: Gzip arhiver
Ovako vbMinimizedNoFocus e dali da vidimo program dok se pakuju podatke tu imas vise izbora ja koristim ova ali evo pogledaj na sliku sta cu staviti

strString = Program & VoRar & Fajlovi 'stavimo u strString

ova je u redu samo ovde u ovaj string treba jos staviti i ono slovo "a"

za testirajne stringa dali je dobro uradzen ja uvjek stavim jedan msgbox i u njega stavim string koi treba se izvrsavati da pogledam kako to izgleda i ako je u redu nazoves funkcija shelandwait

ovako bi trebalo da izgleda kod tebe sa to sto bin fajlovi bi bili u folder pored program koj se zobe Bazi a zip fajl nakon pakovajne nalazice se u C: direktorium

PreuzmiIzvorni kôd (Visual Basic):
  1. Dim Program As String
  2.          Program = App.path & "\7za.exe"            ' treba da ima rar.exe vo istiot direktorium od ovaj program
  3. Dim Fajlovi As String
  4.          Fajlovi= App.path & "\Bazi\*.bin"
  5.  Dim VoRar As String
  6.          VoRar= "C\data.zip"
  7.  Dim strString As String  
  8.          strString=  Program & " a " &  VoRar & " "  &  VoRar
  9.          Msgbox  strString  ' da pogledas kako izgleda komplet
  10.  
  11.  
  12.      ' e sad ovde vec se izvrsi pakovajne podatke
  13.     ShellAndWait strString, vbMinimizedNoFocus


Prilozi:
1.bmp
Preuzimanja:287
Velicina datoteke:273.96 KB