エラー この変数は宣言されていません'WScript'
こんばんは。HTMLやjavascriptは初心者ですが、よろしくお願いします。まず、こちらをご覧ください。
<HTML>
<HEAD>
<TITLE>Menu</TITLE>
<SCRIPT LANGUAGE="VBScript">
<!--
Option Explicit
Public fso, indexPageTS, i
Sub Start(ByRef i)
Dim rootFolder, rootPath
Set fso = CreateObject("Scripting.FileSystemObject")
Set rootFolder = fso.GetParentFolderName(WScript.ScriptFullName)
alert rootFolder.Name
Set indexPageTS = fso.CreateTextFile(fso.BuildPath(rootFolder.Path, "index.html"), True)
このように、<HEAD>にサブプロシージャを記述しております。少し中略します。<BODY>に以下のボタンを置きます。
<input type="button" name="InputBtn" onclick="Start(1)" value="リンクの更新">
これを押すとエラーになってしまいました。
IEでは「ページでエラーが発生しました」、htaEditというソフトで実行すると表題に掲げたエラーが出ました。６行目の、
Set rootFolder = fso.GetParentFolderName(WScript.ScriptFullName)
のところをfso.GetFolderで手書きのパスを指定したらうまくいっていたので、'WScript'の使い方がいけないのかなとも思いましたが、VBSファイルにして実行すると問題ありませんでした。
htmlページのボタンではWScript.ScriptFullNameは使えないのでしょうか？
IEのヴァージョンは少し古めで、5か6ですが、問題ありますでしょうか？
よろしくお願いします。
お礼
お礼が遅くなって申し訳ありません。 回答ありがとうございました。 ネットワークドライブを使用して、ローカルドライブとしての取扱いはできることならば避けたいと思っています。 もう少し調べてみます。 お礼が遅くなりましたことを重ねてお詫びいたします。 ご回答ありがとうございました。