ZIP-ovanje iz VB

[ Megaspark @ 31.12.2005. 17:23 ] @

Našao sam u jednoj od prethodnih tema kod za kopiranje file-a.
To mi je potrebno za svakodnevno kopiranje baze podataka u arhivu.
To radi odlicno.

Zanima me da li postoji kod koji bi neki file ZIPovo, da zauzme manje MB.

[ Megaspark @ 02.01.2006. 10:23 ] @

Ako ne, nema veze.

Mislio sam da znam al ocito ne znam...

Kako da u Text1.text dobijem trenutni datum?
Za arhiviranje sam mislio da kopira bazu pod imenom datuma pr 02012006.mdb

Za sat ide ovako

Code:
Text1.Text= Format(Timer / 60 / 60 / 24, "HH:MM:SS")

Ako bi datum dobio u textbox-u onda bi iznjega mogao uzeti ime i dati kopiranoj bazi.

Hvala

[ kiky @ 02.01.2006. 12:40 ] @

Zasto za datum i za vreme ne koristis sistemske promenjive $Date i $Time pa njih ne formatiras sa format naredbom onako kako ti treba. Inace imas klasu kojom mozes da zipujes sta god hoces evo poslacu ti je.

[ Megaspark @ 03.01.2006. 21:11 ] @

Hm, koristio bi da znam kako se to radi.

Ovo za sat se cini dosta jednostavno pa sam mislio da postoji nesto slicno i za datum. Ustvari, za drugo ni ne znam.

Hvala za klasu, sad cu je malo proucit.

[ sdjakovacki @ 05.01.2006. 18:37 ] @

Pozdrav!!!

Ovako se dobija datum u formatu 05/01/2006
Text1.Text = Format(Date, "dd/mm/yyyy")

Naravno za format 05012006
Text1.Text = Format(Date, "ddmmyyyy")

Konacno dobitna kombinacija ;)
Text1.Text = Format(Date, "ddmmyyyy") & ".mdb"

[ Shadowed @ 06.01.2006. 11:04 ] @

Za zipovanje mozes koristiti Shell funkciju u kombinaciji sa pkzip.exe-om.
A mislim da postoji i neka besplatna biblioteka ali je nisam koristio.

[ Megaspark @ 06.01.2006. 12:44 ] @

Hvala sdjakovacki.

U vezi ove Shell funkcije, probat cu nesto, ako neide ja cu ponovo pitati. Hvala

________________________________________________________________

Nazalost nista od zipovanja, dobijam samo errore.

_{[Ovu poruku je menjao Megaspark dana 06.01.2006. u 15:45 GMT+1]}

[ sdjakovacki @ 07.01.2006. 13:51 ] @

Posto vidim da Ti jos ne polazi za rukom sa zip-om, probaj http://www.cdrcom.com/pubs/infozip/

Pozdrav!

[ Megaspark @ 07.01.2006. 19:18 ] @

Ne mogu otvoriti tu stranicu, ne postoji!

[ sdjakovacki @ 08.01.2006. 15:29 ] @

Izvini, meni nesto trokira i-net, pa sam mislio da je do mog linka, evo primer sa dll-om u attachment-u!

Pozdrav!

[ Megaspark @ 09.01.2006. 06:03 ] @

Puno hvala sdjakovacki.

[ Megaspark @ 10.01.2006. 19:17 ] @

Ovo radi odlicno. Zanima me da li je za UNZIP slicno ili potopuno drugacije?

[ sdjakovacki @ 11.01.2006. 23:38 ] @

Pozdrav!

S' tim da trebas da u projekat dodas modul mUnzip.bas i class modul cUnzip.cls (koje imas u arhivi koju sam poslao, samo nisu u projektu)

npr.

Code:

Private Sub Command2_Click()
Dim m_cuZip As New cUnzip
MkDir "C:\backup\q"
m_cuZip.UnzipFolder = "c:\backup\q\"
m_cuZip.ZipFile = "c:\TEMP\111\a.zip"
m_cuZip.MessageLevel = euzAllMessages
m_cuZip.OverwriteExisting = True
m_cuZip.Unzip
End Sub

_{[Shadowed: dodati [code] tagovi.]}

_{[Ovu poruku je menjao Shadowed dana 12.01.2006. u 08:20 GMT+1]}

[ Megaspark @ 15.01.2006. 13:15 ] @

u arhivi koju si poslao nema vbuzip10.dll a pri pokretanju to trazi.
Nasao sam na netu trazeni dll, medjutim javlja mi gresku Exit sub not allowed in function or property u mUnzip u zadnjem "odlomku".