textファイル名を取得して先頭行の挿入スクリプト

質問

大量のｔｘｔファイルのファイル名をテキストの先頭行に挿入するスクリプトを見つけて実行したのですが、１７行の引数エラーとなってしまいました。
古いスクリプト（２００７年）で作者に繋がるかわからないので、どなたかｖｂｓに詳しい方に教えていただければ幸いです。
http://beauty.geocities.jp/chirinuruwowahe/TxtTxtAddName.zip
よろしくお願いします。

回答No.2

ushi2015 · ベストアンサー

こんにちは、No1です。
問題無さそうですね。
　　Set mySh = CreateObject("Shell.Application")
　　Set myPath = mySh.BrowseForFolder(&O0, "フォルダを選んでください", &H1 + &H10, "C:\")
　　If myPath Is Nothing Then WScript.Quit
　　myFLD = myPath.Items.Item.Path
　　Set mySh = Nothing
　　Set myPath = Nothing
　　On Error Resume Next
　　Set myFS = CreateObject("Scripting.FileSystemObject")
　　For Each myCSV In myFS.GetFolder(myFLD).Files
　　　　If LCase(myFS.GetExtensionName(myCSV)) = "txt" Then
　　　　　　With myFS.GetFile(myCSV).OpenAsTextStream(1)
　　　　　　　　myDAT = .ReadAll
　　　　　　　　.Close
　　　　　　End With
　　　　　　With myFS.GetFile(myCSV).OpenAsTextStream(2)
　　　　　　　　.WriteLine myFS.GetFile(myCSV).Name
　　　　　　　　.WriteLine myDAT
　　　　　　　　If Err.Number <> 0 Then
　　　　　　　　　　Msgbox myCSV & ":" & Err.Description
　　　　　　　　　　Err.Clear
　　　　　　　　End If
　　　　　　　　.Close
　　　　　　End With
　　　　End If
　　Next
　　Set myFS = Nothing

　　Msgbox "完了"

これで、エラーになった時のファイル名とエラー内容を確認して下さい。
中身がテキストファイルではないｔｘｔファイルが含まれていたりしないか。

回答No.1

ushi2015

こんにちは
掲載されたテストデータではエラーになりませんでしたけど？
エラーになった際のｔｘｔファイルの数量とかファイルサイズはどうなってましたか？

補足

ushi2015さん
早速ありがとうございます
ファイル数４５９　＠ファイル２ｋｂです
分割する必要がありますかね？