Question

对不起，对所有这些都很新。我目前正在尝试将基本脚本放在一起，根据使用输入创建一个文件夹。我可以达到可以完成输入并创建文件夹的程度，但不能使用输入框数据。

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"

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

提前干杯

Answer 1

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

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

Answer 2

要使其发挥作用，您所要做的就是将最后一行更改为：

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

如果UserName = ""结束脚本也可能更好，因为如果单击取消，""是InputBox的返回值。

根据用户输入vbscript创建一个文件夹

2 个答案: