根据用户输入的脚本创建文件夹

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 = ""，最好结束脚本，因为如果单击cancel，则""是InputBox的返回值。

Answer 3

如果您要在（用户名/用户创建的文件夹名称）下创建文件夹oFSO.CreateFolder“ C：\”＆UserName“ \ SALES”oFSO.CreateFolder“ C：\”＆UserName“ \ DELIVERY”我认为这是不可能的。然后如何