Prikazi cijelu temu
13.05.2015 13:51
13.05.2015 13:51
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
Prilozi:
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
Preuzimanja:287
Velicina datoteke:273.96 KB