ZIP-ovanje iz VB

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.

Potpis

Megaspark team

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


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



Hvala

Potpis

Megaspark team

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.

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.

Potpis

Megaspark team

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"

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

Potpis

Nebojsa Milanovic:
-Trumpa smatram vrhunskim predsednikom i voleo bih da živim u državi na čijem je on čelu
-Rusija ne laže, ne vodi osvajačke ratove
-Trump je svetla tačka u USA blatu
-Elon Musk, možda najpametniji i najtrezveniji Amerikanac

Hvala sdjakovacki.

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

________________________________________________________________

Nazalost nista od zipovanja, dobijam samo errore.

Potpis

Megaspark team

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

Pozdrav!

Ne mogu otvoriti tu stranicu, ne postoji!

Potpis

Megaspark team

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

Pozdrav!

Puno hvala sdjakovacki.

Potpis

Megaspark team

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

Potpis

Megaspark team

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.


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