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
***********
よろしくお願いします。

回答の条件
  • 1人1回まで
  • 13歳以上
  • 登録:2014/12/02 23:48:14
  • 終了:2014/12/05 10:52:50

ベストアンサー

id:a-kuma3 No.1

a-kuma3回答回数4462ベストアンサー獲得回数18412014/12/03 00:00:48

ポイント500pt

こんな感じになります。

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
id:fashudifhajs

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

2014/12/03 00:24:54
id:a-kuma3

回答に追記しました。

2014/12/03 01:24:24

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

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

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

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

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません