StewStuph

This is not the first time I have been late. It is really annoying because every time I am late, I know that an opportunity has passed. Those opportunities can be rare. This morning I was in the car listening to the radio and heard a new song that I really liked. When I made it to work I found more music by the same band. Turns out I really like Beach Slang . I took a look at their tour dates. I realized they were currently touring and close to my city. In looking at their past dates I saw that I missed them by TWO DAYS!!

My wife claims she does not like South Park. however, over the years, I have seen her enjoying parts of the show while at other times she is totally disgusted at the crude humor. She even found herself playing South Park: The Stick of Truth on Xbox. She loves that style of gaming and completed the game, though I had to help her with the farting. My wife is a fan of musical theater and we are very excited to go see The Book of Mormon when it returns to DPAC in January. As fans of South Park know, music is an integral part of South Park's appeal. One of my favorite numbers is about Kyle's mom . Last night we were watching the latest South Park episode, Safe Space , and when the musical number was over she said that they did a great job. A compliment! I was a bit surprised to hear such praise and can only hope that Matt Stone and Trey Parker continue to impress her.

I put this up on my other more work oriented blog , but thought I would share it here too. In a  previous post  I explained how to batch rename files using a little DOS, Excel and Notepad. Now I have found a quicker way to accomplish this task. I searched for a vbScript and found  this example . This was a great start, I just wanted to make it a little easier for the non-dos friendly users and get it away from the command line.  So here is my modified script. Option Explicit Dim StdIn:  Set StdIn = WScript.StdIn Dim StdOut: Set StdOut = WScript Dim fso:    Set fso = CreateObject("Scripting.FileSystemObject") Dim FilesRenamed:   FilesRenamed = 0 Dim FilesSkipped:   FilesSkipped = 0 dim path dim olds dim news dim ext1 dim ext2 Main set fso = nothing Sub Main      'get the parameter list path=InputBox("Specify Path Of Files To Rename","Enter path") olds=InputBox("Enter String To Replace","String To Re...