Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

52712 / 76736

←次へ　｜　前へ→


	【28856】フォルダ内のファイルの検索の件

れいと - 05/9/16(金) 15:31 -


	引用なし

	パスワード

お世話になっております。

以下の記述が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 & _
　　　　　　" 個のファイルが見つかりました。"

以上よろしくお願いします。

0 hits

▼

【28856】フォルダ内のファイルの検索の件 れいと 05/9/16(金) 15:31

≪