根據用戶輸入創建一個文件夾vbscript

對不起，這是所有這些新東西。我目前正在嘗試將基本腳本放在一起，以基於使用輸入創建文件夾。我可以達到可以完成輸入並創建文件夾的位置，但不能使用輸入框數據。根據用戶輸入創建一個文件夾vbscript

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"

正如我所說，這是非常新的，所以我打開任何提示或指針在正確的方向。

乾杯提前

來源

2012-11-21 user1843541

使用FileSystemObject。 – SLaks

使用Scripting.FileSystemObject接口的「CreateFolder」方法。 – Skatterbrainz

爲了得到它的工作，你所要做的就是改變最後一行是：

objShell.Run "cmd /c mkdir c:\temp\" & 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的返回值，如果取消被點擊。

來源

2012-11-22 04:36:25

謝謝你的幫助丹尼爾，會在船上提出建議。 – user1843541

我不明白爲什麼人們把一切都這麼複雜。一個非常簡單的腳本在這裏：

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

來源

2014-03-19 16:25:29 user3438609

根據用戶輸入創建一個文件夾vbscript

回答

相關問題