Excel VBA質問箱 IV

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

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


6204 / 13644 ツリー ←次へ | 前へ→

【46620】ソート条件が掛からない ゴウ 07/2/8(木) 10:43 質問[未読]
【46625】Re:ソート条件が掛からない Jaka 07/2/8(木) 12:57 発言[未読]

【46620】ソート条件が掛からない
質問  ゴウ  - 07/2/8(木) 10:43 -

引用なし
パスワード
   社内ネットワーク上のファイルを検索しようとしたときに
ソート条件に沿ったファイルの検出ができません。
パソコン:WindowsXP
Excel:Excel2000

Set fs = Application.FileSearch
With fs
  .NewSearch
  .LookIn = "\\パソコン名\ドライブ\フォルダ"
  .Filename = "*.txt"
  If .Execute(SortBy:=msoSortByLastModified, _
    SortOrder:=msoSortOrderDescending) > 0 Then
  
     MsgBox .FoundFiles.Count & " 個のファイルから検索します"
     MsgBox "検索1番目は" & .FoundFiles(1)
     MsgBox "ファイル名は" & Dir(.FoundFiles(1))
   Else
     MsgBox "検索条件を満たすファイルはありません。"
   End If
End With

.FoundFiles.Count によるファイル数(*.txt)の検索は出来ます。
.FoundFiles(1)で検索1番目のファイルを探すとき検出出来ないです。
ちなみに、ネットワーク上ではなく、自分のパソコンの検索では
ソート条件で検索できます。

どこか間違っている点や見落としている点がありましたら
教えてもらえないでしょうか?

【46625】Re:ソート条件が掛からない
発言  Jaka  - 07/2/8(木) 12:57 -

引用なし
パスワード
   ▼ゴウ さん:
>社内ネットワーク上のファイルを検索しようとしたときに
>ソート条件に沿ったファイルの検出ができません。
FileSearchのヘルプに色々書いてあってような気がするけど、
結局は名前順のソート結果しか返ってこなかったと思います。
フルパスから必要な情報を取得後後で自分でソートしていたような....。

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