| |
社内ネットワーク上のファイルを検索しようとしたときに
ソート条件に沿ったファイルの検出ができません。
パソコン：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 "検索１番目は" & .FoundFiles(1)
MsgBox "ファイル名は" & Dir(.FoundFiles(1))
Else
MsgBox "検索条件を満たすファイルはありません。"
End If
End With
.FoundFiles.Count によるファイル数(*.txt)の検索は出来ます。
.FoundFiles(1)で検索１番目のファイルを探すとき検出出来ないです。
ちなみに、ネットワーク上ではなく、自分のパソコンの検索では
ソート条件で検索できます。
どこか間違っている点や見落としている点がありましたら
教えてもらえないでしょうか？
|
|
ゴウ
- 07/2/8(木) 10:43 -
