基于用户输入vbscript创建文件夹

对不起，这一切都是新的。我目前正在尝试编写一个基本脚本，以根据使用输入创建一个文件夹。我可以进行输入并创建文件夹，但不能使用inputbox数据

dim UserName

UserName = InputBox ("Please enter user name")

if Username = "" then
MsgBox("No username entered")

do while(UserName = "")
UserName = InputBox ("Please enter user name")
    if Username = "" then
    MsgBox("No Username entered")
    else
    MsgBox("Please click OK to continue")
    end if
Loop

else
MsgBox ("Please click ok to continue")

end if

Set objShell = CreateObject("Wscript.Shell")
objShell.Run "cmd /c mkdir c:\temp\UserName"

正如我所说，我对这一点非常陌生，所以我愿意接受任何正确方向的提示或指针

---

提前干杯

要让它发挥作用，您只需将最后一行改为：

objShell.Run "cmd /c mkdir c:\temp\" & UserName

这样，您就可以使用

UserName

的值来代替UserName这个词

通过提示

您的流有点多余，您可以通过更新循环来做同样的事情。以下是一条可能的路线：

dim UserName
Do
   UserName = InputBox ("Please enter user name")
   If UserName = "" then
      Msgbox "No Username entered"
   end if
Loop Until UserName <> ""

MsgBox "Please click OK to continue"

Set objShell = CreateObject("Wscript.Shell")
objShell.Run "cmd /c mkdir c:\temp\" & UserName

dim用户名
做
用户名=输入框（“请输入用户名”）
如果用户名=”，则
Msgbox“未输入用户名”
如果结束
循环直到用户名“”
MsgBox“请单击“确定”继续”
设置objShell=CreateObject（“Wscript.Shell”）
运行“cmd/c mkdir c:\temp\”和用户名

---

另外，如果单击“取消”，则最好只结束脚本，因为“取消”是InputBox的返回值。

要使其工作，只需将最后一行更改为：

objShell.Run "cmd /c mkdir c:\temp\" & UserName

这样，您就可以使用

UserName

的值来代替UserName这个词

通过提示

您的流有点多余，您可以通过更新循环来做同样的事情。以下是一条可能的路线：

dim UserName
Do
   UserName = InputBox ("Please enter user name")
   If UserName = "" then
      Msgbox "No Username entered"
   end if
Loop Until UserName <> ""

MsgBox "Please click OK to continue"

Set objShell = CreateObject("Wscript.Shell")
objShell.Run "cmd /c mkdir c:\temp\" & UserName

dim用户名
做
用户名=输入框（“请输入用户名”）
如果用户名=”，则
Msgbox“未输入用户名”
如果结束
循环直到用户名“”
MsgBox“请单击“确定”继续”
设置objShell=CreateObject（“Wscript.Shell”）
运行“cmd/c mkdir c:\temp\”和用户名

---

另外，如果单击“取消”，则最好结束脚本，因为“取消”是InputBox的返回值。

我不明白为什么人们会把一切都弄得如此复杂。这里有一个非常简单的脚本：

*strfolder = InputBox("Please enter a name for your new folder:")
set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CreateFolder "c:\" & strfolder*

---

我不明白为什么人们把事情弄得这么复杂。这里有一个非常简单的脚本：

*strfolder = InputBox("Please enter a name for your new folder:")
set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CreateFolder "c:\" & strfolder*

---

使用Scripting.FileSystemObject接口“CreateFolder”方法。使用Scripting.FileSystemObject接口“CreateFolder”方法。感谢您的帮助Daniel将听取建议。感谢您的帮助Daniel将听取建议。