Excel VBA質問箱 IV

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

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


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

9188 / 13646 ﾂﾘｰ

←次へ　｜　前へ→

▼

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

【28857】Re:フォルダ内のファイルの検索の件 通りすがり 05/9/16(金) 15:35

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


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

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


	【28857】Re:フォルダ内のファイルの検索の件

通りすがり - 05/9/16(金) 15:35 -


	引用なし

	パスワード

▼れいとさん：
>お世話になっております。
>
>以下の記述が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


	【28862】Re:フォルダ内のファイルの検索の件

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


	引用なし

	パスワード

ありがとうございます。
Filesearchは機能しないのでDirを使うということですね。
難しそうですがトライしてみます。


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

9188 / 13646 ﾂﾘｰ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free