こんばんは。まず、状況の説明と、やりたいことの箇条書きです。 1. あるフォルダー"root"をルートフォルダーとする。 2. ルートフォルダーにはフォルダ"abcdata"とindex.htmlとmystyle.cssがある。 3. フォルダ"abcdata"にはサブフォルダー１つしかない。 4. サブフォルダーは複数階層になっている。 5. 各サブフォルダー内には拡張子 abc のファイルが置いてある。 6. index.html上のボタン"refresh"をクリックすると、サブプロシージャー"Start"が働く。 7. サブプロシージャー"Start"は、全ての *.abc ファイルと同じ名前の html ファイルを *.abc ファイルと同じフォルダーに作り、作成した各 html ファイルへのリンクを、ルートフォルダーの index.html に記述する。 8. index.html におけるリンクの表示は、階層ごとにインデント適用する。下記、引用のソースは、index.htmlを写したものです（具体的な数値等は伏せてあります）。そこにうめこまれた"refresh"ボタンを押すとサブプロシージャー"Start"を起動され、index.html自身が書きかわるようにしたいのですが、うまくいきません（ＩＥの左下のところに「ページでエラーが発生しました」と出ます）。どうすればよいでしょうか。私はExcelのVBAは少し経験がありますが、VBSを書いたのはこれが初めてです。HTMLやCSSはまったくの初心者です。ようやくフォントサイズの絶対指定ができた程度です。よろしくお願いします。 Viewer " （ヘッダーは省略：文字数節約のため） indexPageTS.WriteLine " " indexPageTS.WriteLine " abcdata " indexPageTS.WriteLine " " indexPageTS.WriteLine " " indexPageTS.WriteLine " " indexPageTS.WriteLine " " '各サブフォルダーへの処理はDataFolderProcに任せる Set accessoryFolder = fso.GetFolder(".\abcdata") For Each dataFolder In accessoryFolder.SubFolders i = 1 Call DataFolderProc(dataFolder, i) Next indexPageTS.WriteLine " " indexPageTS.WriteLine " " indexPageTS.WriteLine " " indexPageTS.Close() Set indexPageTS = Nothing Set fso = Nothing End Sub indexPageTS.WriteLine " " Sub DataFolderProc(aFolder, n) For Each dataFile In aFolder.Files If LCase(fso.GetExtensionName(dataFile)) = "abc" Then linkName = fso.GetBaseName(dataFile.Name) dataPageName = fso.GetBaseName(dataFile.Name) & ".html" Set dataPageTS = aFolder.CreateTextFile(dataPageName, True) dataPageTS.WriteLine " " '（中略：各htmlファイルへの記述がここに入る） dataPageTS.WriteLine " " dataPageTS.Close() 'index.htmlに各リンクを張る indexPageTS.WriteLine " " & linkName & " " End If Next 'サブフォルダーがあれば同様に処理する For Each subFolder In aFolder.SubFolders n = n + 1 Call DataFolderProc(subFolder, n) Next End Sub --> abcdata '（中略：各リンク）

htmlのボタンでVBSのプロシージャを起動

解決済

質問者：quicon9ue
質問日時：2010/02/16 22:24
回答数：1件

こんばんは。まず、状況の説明と、やりたいことの箇条書きです。
1. あるフォルダー"root"をルートフォルダーとする。
2. ルートフォルダーにはフォルダ"abcdata"とindex.htmlとmystyle.cssがある。
3. フォルダ"abcdata"にはサブフォルダー１つしかない。
4. サブフォルダーは複数階層になっている。
5. 各サブフォルダー内には拡張子 abc のファイルが置いてある。
6. index.html上のボタン"refresh"をクリックすると、サブプロシージャー"Start"が働く。
7. サブプロシージャー"Start"は、全ての *.abc ファイルと同じ名前の html ファイルを *.abc ファイルと同じフォルダーに作り、作成した各 html ファイルへのリンクを、ルートフォルダーの index.html に記述する。
8. index.html におけるリンクの表示は、階層ごとにインデント適用する。
下記、引用のソースは、index.htmlを写したものです（具体的な数値等は伏せてあります）。そこにうめこまれた"refresh"ボタンを押すとサブプロシージャー"Start"を起動され、index.html自身が書きかわるようにしたいのですが、うまくいきません（ＩＥの左下のところに「ページでエラーが発生しました」と出ます）。どうすればよいでしょうか。
私はExcelのVBAは少し経験がありますが、VBSを書いたのはこれが初めてです。HTMLやCSSはまったくの初心者です。ようやくフォントサイズの絶対指定ができた程度です。よろしくお願いします。
<HTML><HEAD><TITLE>Viewer</TITLE>
<SCRIPT LANGUAGE="VBScript">

</SCRIPT>
<LINK REL="stylesheet" TYPE="text/css" HREF="mystyle.css">
</HEAD>
<BODY text="#000000" link="#0000FF" alink="teal">
<span style="width:100%; filter:DropShadow(color=#CCCCFF,direction=135)"><font color="Navy"; size= 6pt>abcdata</font></span><br>
<br>
<input type="button" value="reload" onclick="location.reload()">
<input type="button" name="InputBtn" onclick="Start(1)" value="refresh">
<br>
<p style="text-indent:1em"><a target="_blank" href='C:\root\abcdata\a\abcde</a>
'（中略：各リンク）
</p></BODY></HTML>

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (1件)

ベストアンサー優先
最新から表示
回答順に表示

No.1ベストアンサー

回答者： nda23
回答日時：2010/02/17 00:02

動作上のバグはともかく、次の点は明らかに間違いです。

(1)（ヘッダーは省略：文字数節約のため）
　コメントになっていない。
(2)indexPageTS.WriteLine "<span style="width:～
　引用符が二重になっていない。
(3)indexPageTS.WriteLine "<br>"
　どのメソッドにも属さないので、真っ先に実行される。
　但し、オブジェクト未設定なのでエラーになる。
(4)indexPageTS.WriteLine "<p style=""text-indent:" & ～
　引用符の閉じ方が間違っている。

タグの設定はアポストロフィでも良いので、次のように
書き直してみては如何でしょう。
indexPageTS.WriteLine "<span style='width:～'>"
また、変数の誤記防止のため、Option Explicit宣言を入れ、
変数は定義してから使用するようにします。