vbs　フォルダ作成とその繰り返しの方法をお聞きしたいです

vbsでそのvbsのファイルと同じ場所に指定回数フォルダを作りたいと考えています
フォルダの名前は１から指定回数の名前にしていきたいと思っています
ここでお聞きしたいのですが、
Ｑ１
フォルダ作成自体の関数が知りたいです

Ｑ２
作ったフォルダの名前を１から順に変えていくのはそもそも可能でしょうか？
例えば5を指定したとき
1 2 3 4 5 という名前のフォルダがそれぞれ生成されているような形です

Ｑ３
フォルダ作成の時のパスをルートからじゃなく、プログラムファイル本体があるところに指定はできますか？

vbs
1Dim n
2Dim c
3
4n = InputBox("つくりたいフォルダの数を入れてください","フォルダ作り","0")
5If n=0 then
6msgbox ("何も入力されてないのでフォルダを作ることができません終了します。")
7WScript.Quit
8End if
9
10c = MsgBox ("上記の個数で処理を開始します。" & Chr(13) & "よろしいですか？",1,"フォルダづくり")
11    If  c = 1 Then
12        MsgBox "処理を続けます"
13	'ここ	
14    Else
15        MsgBox "処理を中止します"
16
17    End If