エクセルのマクロ

エクセルのマクロ（VBA？）で、あるフォルダ内のファイル名を取得する（拡張子が.txtのもだけ）関数があれば教えてほしいのですが・・・

No.1 ベストアンサー 回答者： TAGOSAKU7 回答日時： 2001/07/13 10:14

どもども 田吾作７です

Dim wkPath As String
Dim wkFile As String

wkPath = "c:\*.txt" ' パスを設定
wkFile = Dir(wkPath) ' 最初のファイル取得

Do While wkFile <> "" ' 取得できなくなるまでループ
Debug.Print wkFile ' 出力
wkFile = Dir ' 次のファイル名を取得
Loop

こんな感じ

でわでわ

この回答への補足

ありがとうございます。できました。
ついでに取得したファイル名をソート（五十音順）して、何か処理等するには、配列に入れて、配列をソートするようなことをすればよいのでしょうか？そのほか何か良い方法はあるのでしょうか？
よろしくお願いします。

補足日時：2001/07/13 16:01

No.2 回答者： TAGOSAKU7 回答日時： 2001/07/13 17:13

どもども田吾作７です。

ソートですか？たぶん文字コードでソートされた順番で取得してると思いますよ。。


別の質問で
>f_name = "d:\" + Trim(Str(i)) + ".txt"
としていましたね？

これで取得すると[1.txt],[10.txt],[2.txt],・・・[9.txt]となるはずです。
もしかして[1.txt],[2.txt],・・・[10.txt]としたいのですか？

これを回避するためには、桁を揃えるようにしましょう。
f_name = "d:\" + format(i,"00) + ".txt"

とすると、ファイル名は今までとちょっと変わってしまいますが
[01.txt],[02.txt],[03.txt],・・・[10.txt]
という順番に取得可能だと思います。

でわでわ