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 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free