VBSを利用して、ファイル名を取得

質問

VBSを利用して、ファイル名を取得

はじめまして
VBSを利用して、ファイルのフルパスを取得したいと思っております。

具体的には、フォルダ内のファイルを１ファイルずつ取得するようなプログラムを
作成したいと思っております。

C:\TEST \2010 \aaa.csv
C:\TEST \2010 \bbb.csv
C:\TEST \2009 \ccc.csv
C:\TEST \2008 \ddd.csv
C:\TEST \2008 \eee.csv

フルパスを取得したいのですが、どのようにしたら良いでしょうか。

最終的には、上記の読み込んだファイルごとにファイルの中身を１行ずつ確認して、
特定の文字が含まれているか確認をするようなスクリプトにしようと思っております。

そのため、objFS.OpenTextFile("取得フルパス",ForReading)のようにして
取得したフルパスごとに読み込みをしようと思っております。

どなたか、お手数ではございますが、ご教授願います。

回答No.2

imogasi · ベストアンサー

何を聞きたいのか？
＞VBSを利用して、ファイル名を取得
＞VBSを利用して、ファイルのフルパスを取得したいと
とどう関係するのか。GetFolder()の（）内はコードを作る段階か、聞くなら聞く段階で、フルパスを指定する。
それはプログラマ・利用者が判っている前提艇の例題が多い。
その決定をプログラムでやろうというのか。
ーー
フォルダ内のファイルを１ファイルずつ取得するようなプログラム
Googleででも「フォルダー　ファイル　VBS」で照会してみたのかな。
何十万という記事があるそうな。
http://okwave.jp/qa/q1561188.html
などそっくりな質問では。
この質問と違うなら違うで、その点を注記して質問すべきだ。

お礼

ご回答ありがとうございます。
質問内容が分かりにくくて申し訳ございません。

自分で検索はしており、検証もしていたのですが、
お客様情報を含んでいるため、内容の詳細を記載することができず、
概要だけの内容となってしまいました。

ご指摘いただいた、ページも参照していたのですが、有効なのかどうかの
判断ができておりませんでした。

もう一度確認をしてみます。ありがとうございました。

回答No.1

notnot

指定したフォルダーの中のすべてのファイル名を得たいとうことでしょうか？
getFolderメソッドと、Filesコレクションを使います。

Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(フォルダのパス)
For Each f in folder.Files
WScript.Echo f.name
Set instream=f.OpenAsTextStream
WScript.Echo instream.ReadAll
Next

お礼

ご回答ありがとうございます。

質問の内容が悪かったようで、申し訳ございません。

C:\TEST\2010\aaa.csv
というように、1つのファイルごとにフルパスを全て変数に置き換え、
処理をするようなスクリプトを作成しようと思っておりました。

csvの中身を全て同時に参照する必要はないのですが、このような方法もあるのが
分かり、参考になりました。

ありがとうございました。参考にさせていただきます。