Standardize. Simplify. Automate.
This is elsewhere, just writing it here so I can find it easier myself...
strCurrentDir = Left(Wscript.ScriptFullName, (InstrRev(Wscript.ScriptFullName, "\") -1))
Another nice way to do this is via the GetParentFolderName method of FSO.
strCurrentDir = objFSO.GetParentFolderName(Wscript.ScriptFullName)