[vbs]サブフォルダをランダムに開く

私用で急造したもの。
このスクリプトを配備したフォルダ内のフォルダをランダムに開く。

random.vbs

dim fso
dim folder
dim sfCount
set fso = createObject("Scripting.FileSystemObject")
set folder = fso.getFolder(fso.getParentFolderName(WScript.ScriptFullName))
sfCount = folder.SubFolders.Count

dim rnd_val
Randomize
rnd_val = Int(sfCount * rnd + 1)

dim subfolder
dim i
for each subfolder in folder.subfolders
	i = i + 1
	if i = rnd_val then
		CreateObject("Shell.Application").ShellExecute subfolder
		WScript.Quit
	end if
next