人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

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>



***********


●質問者: fashudifhajs
●カテゴリ:コンピュータ
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● a-kuma3
●300ポイント ベストアンサー

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

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
関連質問

●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ