|
▼れいと さん:
>お世話になっております。
>
>以下の記述がWIN98では動いていたのですが、WIN XPになってから
>動かなくなってしまいました(両方ともエクセルは97です)。
>当該の記述はWIN XPでは対応しないのでしょうか?
>またXPに対応させるにはどのようにしたらよろしいでしょうか?
>
>
>'csvファイルの検索
>Set fs = Application.FileSearch
> With fs
> .LookIn = "C:\My Documents"
> .FileName = "*.csv"
>
> If .Execute(SortBy:=msoSortByFileName, _
> SortOrder:=msoSortOrderAscending) > 0 Then
> MsgBox .FoundFiles.Count & _
> " 個のファイルが見つかりました。"
>
>
>以上よろしくお願いします。
【28462】FileSearchが機能しない - 05/9/7(水) 11:30 -
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=28462;id=excel
|
|