vbscript を使用して、特別なフォルダーからメッセージ ボックスである exe を起動したいのですが、何も得られません。これは私のコードです
option explicit
dim shellobj,startup,objShell,objFolder,filesystemobj,installdir,installname
set shellobj = wscript.createobject("wscript.shell")
set filesystemobj = createobject("scripting.filesystemobject")
Set objShell = CreateObject("Shell.Application")
installdir = "%appdata%\Microsoft"
installname = wscript.scriptname
filesystemobj.copyfile wscript.scriptfullname,installdir & installname,true
startup = shellobj.specialfolders("%appdata%\Microsoft") &"\msg.exe"
if filesystemobj.fileexists(startup) Then
shellobj.run "wscript.exe //B " & chr(34) & startup & chr(34)
Wscript.Quit
end if