VBSの質問です

Question

fashudifhajs

13

13もっと見る

300pt

コンピュータ

VBSの質問です

hoge フォルダの中に
hoge
|-01
|-02
|-03
|-04
|-・
|-・
|-・
と数字の連番の名前がついたフォルダが入っています
その各数字フォルダの中にa.htmlが入っています。

hogeの一つ上のフォルダに以下のようにテキストが入力されたhtmlファイルを作りたいのですがどのようなVBSを組めばいいでしょうか？教えてください

hoge.html
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
<tr><td>http://hoge/a.html</td><td>http://hoge/b.html</td></tr>
<tr><td>http://hoge/c.html</td><td>http://hoge/d.html</td></tr>
<tr><td>http://hoge/・.html</td><td>http://hoge/・.html</td></tr>
・
・
・
＊＊＊＊＊＊＊＊＊＊＊

回答の条件

1人1回まで

登録：2014/12/03 15:37:28
終了：2014/12/05 10:55:04

※ 有料アンケート・ポイント付き質問機能は2023年2月28日に終了しました。

コメントはまだありません

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

リクエスト送信済

回答リクエストを送信したユーザーはいません

a-kuma3 · Accepted Answer · 2014-12-03T21:28:15+09:00

こんな感じになると思います。

targetFolderName = "D:\test\hoge"   ' ※ hoge フォルダのパス

Set fs = WScript.CreateObject("Scripting.FileSystemObject")
Set targetFolder = fs.getFolder(targetFolderName)

Set parentFolder = targetFolder.ParentFolder
Set output = fs.CreateTextFile(parentFolder.Path & "\list.html", True)
output.WriteLine "<table>"

odd = True
For Each folder In targetFolder.SubFolders
    For Each f In folder.Files
        If f.Name = "a.html" Then
            If odd Then
                output.Write     "<tr><td>http://" & targetFolder.Name & "/" & folder.Name & "/" & f.Name & "</td>"
                odd = False
            Else
                output.WriteLine     "<td>http://" & targetFolder.Name & "/" & folder.Name & "/" & f.Name & "</td></tr>"
                odd = True
            End If
        End If
    Next
Next

output.WriteLine "</table>"
output.Close

VBSの質問です

ベストアンサー

a-kuma3497321542014/12/03 21:28:15

コメント（0件)

この質問への反応（ブックマークコメント）