Been away for a bit..

I havent posted anything of real interest  (IMO ) in a while, mainly because I have been really really busy.  Basically on vacation for 3.5 weeks, my wife and I went to Rome for the first time. What an amazing place - so much history and architecture ( I originally wanted  to  go to school to be an architect, kinda like George Costanza ) .

I do have a number of posts I need to get done, but for now I am busy catching up at work.

One thing I did have to do was go thru all my pictures I took on vacation and upload them for family\friends to see.  Every other night while we were at the hotel, I would try to download all the images from the camera and rename them to something useful, so I could recall what the photo was of and where I was when I took it.

So i ended up with names like "outside the pantheon next to the fountain.jpg"

Well when I converted them all to a big HTML page via breezebrowser and then tried to upload it all - it complained about all the spaces. Gah. Time to replace the space with an underscore for a bajillion files.

So here was a quickie way to fix that - ( guess Ill give some technical value to this post )

All the files are in one giant directory:

dir /b > files.txt
So then you have a text file something like this:

victor emmanuel monument nighttime .jpg
victor emmanuel monument cake view.jpg

simple vbscript to replace all spaces with underscores

sFile = WScript.Arguments(0)
sNoSpaceFile = replace(sFile," ","_")
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.MoveFile "D:\Documents and Settings\steve\Desktop\New Folder\" & sFile , "D:\Documents and Settings\steve\Desktop\New Folder\" & sNoSpaceFile

A for loop to process the files:

D:\trip\HTML>for /f "delims=" %a in (files.txt) do space.vbs "%a"

done!

 spat