' mkdir.vbs
dim A,F,nm
set A=WScript.Arguments
if A.Count=0 then WScript.Quit
set F=WScript.CreateObject("Scripting.FileSystemObject")
nm=InputBox("フォルダ名を入力しろ")
F.CreateFolder F.BuildPath(F.GetParentFolderName(A(0)),nm)