VBSの質問です

Question

fashudifhajs

13

13もっと見る

100pt

コンピュータ

VBSの質問です

hogeフォルダにvbsが置かれています
hogeフォルダ内のサブフォルダ内のa.htmlを探し
hogeフォルダ内の全htmlファイルを取得し
一つ上のフォルダのテキストファイルに入力したいと思うのですがうまく動きません
どうすれば動くでしょうか？よろしくお願いします

回答の条件

1人1回まで

登録：2014/12/02 23:00:10
終了：2014/12/05 10:54:03

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

質問者から

fashudifhajs2014/12/03 02:57:54

targetFolderName = "."

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 folder In targetFolder.SubFolders
    For Each f In folder.Files
        If f.Name = "kekka.html" Then
            output.WriteLine "http://" & targetFolder.Name & "/" & folder.Name & "/"
        End If
    Next
Next
targetFolderName = "../"
For Each folder In targetFolder.files
    For Each f In folder.Files
        If f.Name = "*.html" Then
            output.WriteLine "http://" & targetFolder.Name & "/" & folder.Name & "/"
        End If
    Next
Next
output.Close

規約違反として通知

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

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

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

リクエスト送信済

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

a-kuma3 · Accepted Answer · 2014-12-03T00:09:40+09:00

以下の二つの質問のスクリプトを、ひとつにまとめます。
http://q.hatena.ne.jp/1417475886
http://q.hatena.ne.jp/1417531694

こんな感じになります。

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 "アドレス一覧"

' hoge フォルダのサブフォルダにある a.html を探す
For Each folder In targetFolder.SubFolders
    For Each f In folder.Files
        If f.Name = "a.html" Then
            output.WriteLine "http://" & targetFolder.Name & "/" & folder.Name & "/" & f.Name
        End If
    Next
Next

' hoge フォルダにある .html ファイルを探す
For Each f In targetFolder.Files
    If fs.GetExtensionName(f.Path) = "html" Then
        output.WriteLine "http://" & targetFolder.Name & "/" & f.Name
    End If
Next

output.WriteLine "以上"
output.Close

a-kuma3 · Accepted Answer · 2014-12-03T00:09:40+09:00

以下の二つの質問のスクリプトを、ひとつにまとめます。
http://q.hatena.ne.jp/1417475886
http://q.hatena.ne.jp/1417531694

こんな感じになります。

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 "アドレス一覧"

' hoge フォルダのサブフォルダにある a.html を探す
For Each folder In targetFolder.SubFolders
    For Each f In folder.Files
        If f.Name = "a.html" Then
            output.WriteLine "http://" & targetFolder.Name & "/" & folder.Name & "/" & f.Name
        End If
    Next
Next

' hoge フォルダにある .html ファイルを探す
For Each f In targetFolder.Files
    If fs.GetExtensionName(f.Path) = "html" Then
        output.WriteLine "http://" & targetFolder.Name & "/" & f.Name
    End If
Next

output.WriteLine "以上"
output.Close

VBSの質問です

質問者から

ベストアンサー

a-kuma3497321542014/12/03 00:09:40

その他の回答（0件）

a-kuma3497321542014/12/03 00:09:40ここでベストアンサー

コメント（0件)

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