VBSで、VBSファイルのあるフォルダに一度にフォルダを作成したい、なんてこと、ありませんか？
ダブルクリックすれば、そこにフォルダができたりするわけです。
そのためには、VBS のあるフォルダのフォルダパスを取得する必要があります。
で、その方法が↓↓'ファイルシステムオブジェクト
Dim objFileSystemObject
Set objFileSystemObject = WScript.CreateObject("Scripting.FileSystemObject")
'.vbs のあるフォルダのフォルダパス
Dim strFolderPath
strFolderPath = objFileSystemObject.GetFolder(".").Path
strFolderPath に、フォルダパスが格納されるので、あとは CreateFolder などを組み合わせてあれこれやってください。
