フォルダ内の特定拡張子のファイル名を取得するには？

解決

北辰 2005-09-30 20:31:50 No: 125899

環境はVB6.0です。
あるフォルダ内の特定の拡張子をもつファイルの数と、
拡張子を取り除いたファイル名を取得したいです。

Dim strFilePath as String
Dim strFileName as String
Dim nCount as Integer

strFilePath="D:\data\files\"
この中に"D:\data\files\aaa.txt"というファイルがある場合、
strFileName="aaa" というように取得したいです。

複数あることを想定して、
nCount=「ファイル数を取得」
For i = 1 to nCount
各ファイル数の処理...

具体的にどのような関数でどのような設定をすればよろしいでしょうか？
ご教授お願いします。

特攻隊長まるるう 2005-09-30 20:53:44 No: 125900

過去ログ検索『拡張子』…だと多いか…。
過去ログ検索『ファイル検索』でどうぞ。

こちのち 2005-09-30 21:01:33 No: 125901

Dir関数を使って

strFileName=Dir("D:\data\files\*.txt") '拡張子が.txtのものを検索
Do While strFileName<>""
strFileName=Left(strFileName,Len(strFileName)-4) '拡張子.txtを取り除く
'
' このファイルに対する処理を行う
'

strFileName=Dir '次にマッチするファイル名を取得
Loop

Dir関数とかLeft関数とかを調べてください。

黒影 2005-09-30 21:04:47 No: 125902

>strFilePath="D:\data\files\"
>この中に"D:\data\files\aaa.txt"というファイルがある場合、
>strFileName="aaa" というように取得したいです。

2005/09/29(木) 19:47:07 フルパスからファイル名だけを削除するには？
の回答を応用する気は無いのだろうか．．．

いな 2005-09-30 21:16:53 No: 125903

過去ログ検索すれば、あるのに・・・。

http://madia.world.coocan.jp/cgi-bin/VBBBS2/wwwlng.cgi?print+200509/05090127.txt

北辰 2005-09-30 23:25:38 No: 125904

ありがとうございました！
過去ログ検索へのお導きも大変助かりました。参考になりました。