1

申し訳ありませんが、これらすべてに非常に新しいです。現在、使用入力に基づいてフォルダーを作成するための基本的なスクリプトをまとめようとしています。入力が可能になり、フォルダーが作成されますが、入力ボックスのデータは作成されません。

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"

私が言ったように、これは非常に新しいので、正しい方向へのヒントや指針を受け入れます.

事前に乾杯

4

2 に答える 2

1

なぜ人々がすべてをそれほど複雑にするのか理解できません。非常に単純なスクリプトは次のとおりです。

*strfolder = InputBox("Please enter a name for your new folder:")
set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CreateFolder "c:\" & strfolder*
于 2014-03-19T16:25:29.573 に答える
0

それを機能させるには、最後の行を次のように変更するだけです。

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

このようUserNameに、UserNameという単語の代わりにの値を使用します。

ヒントとして...

フローは少し冗長です。ループを更新することで同じことができます。考えられるルートの1つは次のとおりです。

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

また、キャンセルがクリックされた場合のInputBoxの戻り値であるUserName = ""ため、スクリプトを終了する方がよい場合もあります。""

于 2012-11-22T04:36:25.217 に答える