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

VBSの質問です
hoge フォルダの中に
a.html
b.html
c.html
d.html




というようにテキストファイルがたくさん入っています

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

hoge.html
***************
http://hoge/a.html
http://hoge/b.html
http://hoge/c.html
http://hoge/d.html
http://hoge/・.html
http://hoge/・.html
http://hoge/・.html
***********
よろしくお願いします。

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

▽最新の回答へ

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

こんな感じになります。

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)

For Each f In targetFolder.Files
 output.WriteLine "http://" & targetFolder.Name & "/" & f.Name
Next
output.Close




追記です。

htmlファイルだけ表示したいのですがその場合どこいじればいいのでしょうか?

http://q.hatena.ne.jp/1417528810 の回答の方には IF 文を入れたのですが、以下のような判定を入れてください。

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)

For Each f In targetFolder.Files
 If fs.GetExtensionName(f.Path) = "html" Then
 output.WriteLine "http://" & targetFolder.Name & "/" & f.Name
 End If
Next
output.Close

fashudifhajsさんのコメント
htmlファイルだけ表示したいのですがその場合どこいじればいいのでしょうか?

a-kuma3さんのコメント
回答に追記しました。
関連質問

●質問をもっと探す●



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