I love the Ngallery mod for the backend, I just need to figure out a better way of displaying and organizing the photos on the front end.

Big Sky
We stayed at the Big Sky Ski Resort which is located at the base of Lone Peak (11k ft). March is considered late in the season but up above the 5k mark or so, the drifts are still deep and the park gets enough fresh powder to push into late April. At that point, everything closes up, they wait for the Spring thaw and then reopen in early June for hiking, mountain biking, trout fishing, etc.

Yellowstone
Something I didn’t know – the Yellowstone National Park service, completely shuts down access into Yellowstone to all civilian traffic during the winter months. The only way into the park is via a guided tour or hiking in on foot (if your crazy enough to brave the sub-zero temps). Mel and I went in via a snowmobile tour (60 mile round trip) and it was one of the most amazing things we’ve ever done. Even better – we only experienced about 20% of the total park during our tour so we’ve got plenty more to see.

I just needed a small script to run a character string search on each sub folder (recursive) and replace one string with another. Not complicated at all but definately not worth $20-40 for a commercial application that wraps vbscript/batch processing in a neat UI shell. A little help from Google and some quick research on folder/file objects within vbscript and I came up with a solution that works perfectly:

Dim Folder_input, Find_Str, Replace_Str

Folder_input = inputbox(“Enter the root folder path:” & vbcrlf & “e.g. C:\wutemp”)
If Folder_input = “” then App_Quit

Find_Str = inputbox(“Search for:”)
If Find_Str = “” then App_Quit

Replace_Str = inputbox(“Replace with:”)
If Replace_Str = “” then App_Quit

Set objFSO= createobject(“Scripting.FileSystemObject”)

Process_Folders Folder_input

Sub Process_Folders(byval Folder)
Dim objFolder, colSubfolders, New_Folder
Set objFolder = objFSO.GetFolder(Folder)
Set colSubfolders = objFolder.Subfolders

For each objSubfolder in colSubfolders
New_Folder = (Replace(objSubfolder.name, find_str, replace_str))
If New_Folder <> objSubFolder.Name Then
objSubFolder.Name = New_Folder
End If
Process_Folders objSubfolder.path
Next

End Sub

Sub App_Quit
wscript.quit
End Sub

To make it even easier to run from my desktop, I created a simple batch file that fires off the script:

d:
cd\wutemp
cscript folder_rename.vbs
exit

The replace method is case sensitive but otherwise it will take any combination of letters/symbols and replace them with whatever you specific for each folder name within the root folder you declare at the beginning of the script.