archiv.bat

Dakujem Vsetkym za reakcie... takze...
pre vsetkych: Nemozem pouzit Add-On kedze je pre verziu 12.1 a vyssiu..

v napovede som nenasiel nic ale vlastne ani neviem co hladat

a nezda sa zeby winzip mal problem s \\svr-1 alebo \*.*

Dakujem

"WinZip encountered problems during this operation. Would you like to see WinZip´s log file?"
Na výber mám ÁNO, NIE

ÁNO

..ak ano.. tak otvori txt subor kde je

Action: Add (and replace) files Include subfolders: yes Save full path: no
Include system and hidden files: yes

a vypisane vsetky subory ktore sa nachadzaju v archive
zakoncene

copying Zip file

to se winzip moc nerozkecal.
Include system and hidden files: yes
není tam nějaký soubor, který je držený systémem? i když, to by v logu mohlo být.

a nezda sa zeby winzip mal problem s \\svr-1 alebo \*.*

unc cesty tvrdíš že to zná, budiž.
teď jsem se díval na syntaxi. předpokládal jsem pořadí: "winzip co kam", ale mají to opačně. tj. tam není problém, ostatně píšeš že to používáš.

archiv.bat je spustany v case, kedy pri PC neje nikto, kto by stlacal klaves

běží to pod nějakým přihlášeným uživatelem, nebo to spustí uživatel "system"?

v případě pádu si nech uložit do nějakého logu výpis procesů v paměti:

 if not errorlevel 1 goto END
 echo *** %date% %time:~0,-3% *** >> %log%
 tasklist /svc >> %log%
:END

Čo takto použiť vbscript:

Const zipPath = "C:\some.zip" //toto je archív, ktorý sa má vytvoriť
Set fso = CreateObject("Scripting.FileSystemObject")
Set shell32 = CreateObject("Shell.Application")
docs = "C:\bin" //toto je adresár, kde sa nachádzajú súbory pre archiváciu

'Create blank zip file
With fso.OpenTextFile(zipPath, 2, True)
.Write "PK" & Chr(5) & Chr(6) & String(18, Chr(0))
End With
Set zip = shell32.NameSpace(zipPath)

'Put stuff into zip file
zip.CopyHere shell32.NameSpace(docs)

'Sleep long enough to let zipping start
WScript.Sleep 10000

Upraviť podľa seba - uložiť ako *.vbs a spustiť.

Neviem, či to bude fungovať na Win2000, ale na XP funguje bez problémov...