Hi Captain Greb,
I haven't tried the scripting, and I think it will have to wait until
morning (or at least after I get some sleep).
The nice thing about using zip files would be that Windows can easily open
individual files from the zip file, which would be a great advantage.
I'll let you know how it works out.
Thanks!
John
At 2006-12-30 10:29 PM, Captain Greb wrote:
> > The directory structure is:
> > Page_name\yyyy\mm\dd\Page_name_yyyy-mm-dd_HH-MM\files
>Seems redundant.
>
>
> >Space wise, the files
> > should fit. In reality, I can't make it work. I can get about 9 to 10
> > days of files for a single web page on a DVD at best,
>Your files may be taking up more room than you think. I don't have a data
>DVD handy, but on a CD a 76 byte file takes up 2K of space. I'm pretty sure
>the data block size on a DVD is much larger. Pick a file on the DVD,
>right click,
>properties and compare the "size" to the "size on disk" value. Maybe that's
>where your extra space is disappearing to.
>
>In any event, as you've discovered, you probably don't want to be copying
>millions of files to the DVD ... unless you have some inherent reason to
>process
>the files directly from the DVD. I don't know why it takes so long. My
>guess
>is that you've exceeded the reasonability of "something" in the chain. In
>other
>words, that "something" was designed and tested with say a max of 100,000
>files, and now you've exceeded that 10x or more. It still works, but not
>very
>well.
>
>So I think, "hey, XP has zip routines built in. It can't be that hard to
>zip up a
>bunch of files from vb script". And it isn't, and it worked, but barely. MS
>didn't exactly expose the zipping routines in a utilitarian way:
>
>makezip.vbs
>-----------
>
>zipfilename = "c:\test.zip"
>
>dim fso
>dim sa
>
>set fso = CreateObject("Scripting.FileSystemObject")
>
>set sa = CreateObject("Shell.Application")
>
>' create the zip file
>Dim header ' as string
>header = "PK" & Chr(5) & Chr(6) & String(18, 0)
>fso.CreateTextFile(zipfilename).Write header
>
>set zipfolder = sa.namespace("c:\test.zip")
>
>' this is a big file, like 65mb
>zipfolder.copyhere "c:\verybig.dbf", 0
>
>----
>
>test.zip is created, but its empty.
>if i add "wscript.sleep 5000" to the end of the script (sleep 5 secs),
>it works.
>
>looks like shell "copyhere"s are excuted as separate threads, and once the
>main process dies, so do the threads. doesn't seem to be any way to
>determine when the threads are completed either, or its not worth the trouble
>to go down that road. also looks like the threads are executed in
>parallel, so
>doing stuff like putting a marker file into the zip to indicate process
>completion
>and checking for that file doesn't work reliably.
>
>Thank you Microsoft for your useful and well integrated components.
>
>
>So I hunted around and found something that can be called from VBS and it
>doesn't run async. And its free. Go to xstandard.com and get the zip
>component.
>
>To zip an entire folder structure:
>-----
>foldertozip = "c:\util"
>
>zipfilename = "c:\test.zip"
>
>dim xz
>set xz = createobject("XStandard.Zip")
>
>xz.pack foldertozip, zipfilename
>
>msgbox "done"
>-----
>
>Of course this is only useful if you want to automate the process.
>Create a job (task scheduler) that runs a script after midnight and zips the
>previous day's files and store the zips somewhere. At the end of the month
>burn the DVD. Bet an entire month fits on one DVD now.
>
>Happy 2007!
>
John
*** When replying to this message, please do not delete these ***
*** signature lines. Otakon Katsucon HP3000-L @classiccmp.org ***
*** DigitalCosplay.com JohnKorbPhoto.com JohnPKorb.com ***
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|