|
▼ken さん:
>2003に作成したマクロにApplication.FileSearchがありますが
>2010ではサポートされていないというメッセージが出てしまいます。
>替りの命令文がありましたらお教えください。
ウッシさんからコメントがあるように、
要は
> 現在、Application.FileSearchでどんな処理をしているかによります
なのです。
別スレリンクにあるように、あるフォルダを指定してそのフォルダ内で
指定の種類の(たとえば *.jpg)ファイルをひとつだけ取得できれば
よいというのなら、Dir関数 がいちばん手っ取り早いです。
fname = Dir(Path & "\*.jpg")
ただ、「サブフォルダも含め」すべての*.jpgファイルのリストを得よう
ということになると、Dir関数でもFsoでも APIのFindFile系関数でも
「再帰処理」の構文を書かなければならなくなり、勢い、初心者には
メンテの難しい構文を駆使しなければならなくなります。
「再帰なしで」サブフォルダも含めたファイルのリストを得るには
Dir関数でなく DOSのDirコマンドをVBAから使うといいです。
現在FileSearchを使って どのような処理をしていますか?
|
|