Inputboxから指定した名前でフォルダを作成します

Question

このスクリプトでフォルダを作成しましたが、InputBoxで名前を付けてフォルダを作成したいと思います。

ステップ1：私がVBscriptファイルをヒットすると、入力ボックスがポップアップします。

ステップ2：ポップアップした後、私はこれが可能なら、私に知らせてください、私はフォルダ

を作成する必要があるフォルダ名と場所を与える必要があります。

Dim oFSO 
Set oFSO = CreateObject("Scripting.FileSystemObject") 

' Create a new folder 
oFSO.CreateFolder **"C:\MyFolder"** 

' Copy a file into the new folder 
' Note that the destination folder path must end with a path separator (\) 
oFSO.CopyFile "\\server\folder\file.ext", "C:\MyFolder\" 

Answer 1

これはなんですか？

folder=InputBox("Please enter the folder name","Folder") 
Set oFSO = CreateObject("Scripting.FileSystemObject") 
oFSO.CreateFolder folder