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