[es] - ZIP-ovanje iz VB

Megaspark
Megaspark team
Hr

Član broj: 79312
Poruke: 77
*.cmu.carnet.hr.

Profil

^{31.12.2005. u 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 team

^{31.12.2005. u 17:23}

Megaspark
Megaspark team
Hr

Član broj: 79312
Poruke: 77
*.cmu.carnet.hr.

Profil

Re: ZIP-ovanje iz VB

^{02.01.2006. u 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

Megaspark team

^{02.01.2006. u 10:23}

kiky
Petrovic Zoran
Beograd

Član broj: 37045
Poruke: 121
..shall-bg.customer.sbb.co.yu.

Profil

Re: ZIP-ovanje iz VB

^{02.01.2006. u 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.

Prikačeni fajlovi

Cls_Zip.cls - 19.78k

^{02.01.2006. u 12:40}

Megaspark
Megaspark team
Hr

Član broj: 79312
Poruke: 77
*.cmu.carnet.hr.

Profil

Re: ZIP-ovanje iz VB

^{03.01.2006. u 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.

Megaspark team

^{03.01.2006. u 21:11}

sdjakovacki
Slobodan Djakovacki
Zrenjanin

Član broj: 79571
Poruke: 8
*.nspoint.net.

Profil

Re: ZIP-ovanje iz VB

^{05.01.2006. u 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"

Nije nego

^{05.01.2006. u 18:37}

Shadowed
.NET developer

Administrator
Član broj: 649
Poruke: 10608
*.adsl.sezampro.yu.

Profil

Re: ZIP-ovanje iz VB

^{06.01.2006. u 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.

Against stupidity the gods themselves contend in vain

^{06.01.2006. u 11:04}

Megaspark
Megaspark team
Hr

Član broj: 79312
Poruke: 77
*.cmu.carnet.hr.

Profil

Re: ZIP-ovanje iz VB

^{06.01.2006. u 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]}

Megaspark team

^{06.01.2006. u 12:44}

sdjakovacki
Slobodan Djakovacki
Zrenjanin

Član broj: 79571
Poruke: 8
*.nspoint.net.

Profil

Re: ZIP-ovanje iz VB

^{07.01.2006. u 13:51}

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

Pozdrav!

Nije nego

^{07.01.2006. u 13:51}

Megaspark
Megaspark team
Hr

Član broj: 79312
Poruke: 77
*.cmu.carnet.hr.

Profil

Re: ZIP-ovanje iz VB

^{07.01.2006. u 19:18}

Ne mogu otvoriti tu stranicu, ne postoji!

Megaspark team

^{07.01.2006. u 19:18}

sdjakovacki
Slobodan Djakovacki
Zrenjanin

Član broj: 79571
Poruke: 8
*.nspoint.net.

Profil

Re: ZIP-ovanje iz VB

^{08.01.2006. u 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!

Nije nego

Prikačeni fajlovi

zipp.ZIP - 85.45k

^{08.01.2006. u 15:29}

Megaspark
Megaspark team
Hr

Član broj: 79312
Poruke: 77
*.cmu.carnet.hr.

Profil

Re: ZIP-ovanje iz VB

^{09.01.2006. u 06:03}

Puno hvala sdjakovacki.

Megaspark team

^{09.01.2006. u 06:03}

Megaspark
Megaspark team
Hr

Član broj: 79312
Poruke: 77
*.cmu.carnet.hr.

Profil

Re: ZIP-ovanje iz VB

^{10.01.2006. u 19:17}

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

Megaspark team

^{10.01.2006. u 19:17}

sdjakovacki
Slobodan Djakovacki
Zrenjanin

Član broj: 79571
Poruke: 8
*.nspoint.net.

Profil

Re: ZIP-ovanje iz VB

^{11.01.2006. u 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]}

Nije nego

^{11.01.2006. u 23:38}

Megaspark
Megaspark team
Hr

Član broj: 79312
Poruke: 77
*.cmu.carnet.hr.

Profil

Re: ZIP-ovanje iz VB

^{15.01.2006. u 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".

Megaspark team

^{15.01.2006. u 13:15}