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):Dim Program As String
Program = App.path & "\7za.exe" ' treba da ima rar.exe vo istiot direktorium od ovaj program
Dim Fajlovi As String
Fajlovi= App.path & "\Bazi\*.bin"
Dim VoRar As String
VoRar= "C\data.zip"
Dim strString As String
strString= Program & " a " & VoRar & " " & VoRar
Msgbox strString ' da pogledas kako izgleda komplet
' e sad ovde vec se izvrsi pakovajne podatke
ShellAndWait strString, vbMinimizedNoFocus
Prilozi:
1.bmp
Preuzimanja:287
Velicina datoteke:273.96 KB