VBSで、.vbsファイルのあるフォルダを取得する方法

[LONERさん]

VBSで、VBSファイルのあるフォルダに一度にフォルダを作成したい、なんてこと、ありませんか？

ダブルクリックすれば、そこにフォルダができたりするわけです。
そのためには、VBS のあるフォルダのフォルダパスを取得する必要があります。

で、その方法が↓↓'ファイルシステムオブジェクト
Dim objFileSystemObject
Set objFileSystemObject = WScript.CreateObject("Scripting.FileSystemObject")

'.vbs のあるフォルダのフォルダパス
Dim strFolderPath
strFolderPath = objFileSystemObject.GetFolder(".").Path
strFolderPath に、フォルダパスが格納されるので、あとは CreateFolder などを組み合わせてあれこれやってください。