Excel VBA質問箱 IV

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

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


52708 / 76732 ←次へ | 前へ→

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


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

1 hits

【28856】フォルダ内のファイルの検索の件 れいと 05/9/16(金) 15:31 質問
【28857】Re:フォルダ内のファイルの検索の件 通りすがり 05/9/16(金) 15:35 発言
【28862】Re:フォルダ内のファイルの検索の件 れいと 05/9/16(金) 16:49 お礼

52708 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free