起動したWSHスクリプトが、想定されたフォルダにいないとエラーになって作業を中断し終了するようにしたいのです。
具体的には、
\s\ トップフォルダの直下に s というフォルダがあってその中にスクリプトがはいっている前提です。間違ったフォルダの中にスクリプトがいる場合には、警告のポップアップを出して警告して、ポップアップの中にあるボタンをおして、作業を終了するようにするのはどう書けばいいのでしょう。
できる人ならすぐにわかることだと思いますのでよろしくお願いします。
No.1
108
11
60pt
たとえば、C:\s\内で正常、それ以外で異常となるスクリプトは、
Dim FSO Set FSO = CreateObject("Scripting.FileSystemObject") If UCase(FSO.GetParentFolderName(WScript.ScriptFullName)) <> UCase("c:\s") Then '★ WScript.Echo "異常です" WScript.Quit End If
var FSO = new ActiveXObject("Scripting.FileSystemObject"); if(FSO.GetParentFolderName(WScript.ScriptFullName).toUpperCase() != "c:\\s".toUpperCase()) //★ { WScript.Echo("異常です"); WScript.Quit(); }
注意して欲しいのですが、★の行でフォルダのパスを指定する時、最後の「\」はつけないで下さい。
↓ダミー
1
1
1
1
1
2748
2711
ありがとうございます。