Sự cố với Application.FileSearch

[ndu96081631]

Không biết có ai gặp tình trạng kỳ lạ giống như tôi không:
- Tôi dùng Excel 2003, đương nhiên có thể dùng được Application.FileSearch
- Tôi có đoạn code như sau:

Sub SeachFiles1()
  Dim i As Long, MyDir As String
  On Error GoTo Thoat
  With Application.FileDialog(4)
    .Show: MyDir = .SelectedItems(1)
  End With
  With Application.FileSearch
    .SearchSubFolders = True
    .LookIn = MyDir
    .Filename = "*.*"
    If .Execute() > 0 Then
      Range("A2:A65536").ClearContents
      For i = 1 To .FoundFiles.Count
        Cells(i + 1, 1) = .FoundFiles(i)
      Next i
    End If
    MsgBox .FoundFiles.Count & " files found."
  End With
Thoat:
End Sub

- Trước giờ vẫn dùng bình thường, ấy thế mà hôm nay tình cờ phát hiện nó chẳng chạy, cứ báo 0 files found (mặc dù tôi biết thư mục tôi chọn có rất nhiều file)
- Vọc 1 hồi lại phát hiện ra 1 chuyện rất kỳ lạ: File này chỉ lấy được list file trong thư mục nằm trên ổ C (ổ hệ điều hành) còn khi chọn thư mục nằm trên ổ D thì nó cóc chạy
----------------
Ai đã từng bị giống vầy xin vui lòng cho biết nguyên nhân và cách khắc phục
(chạy thử file đính kèm của tôi trên máy các bạn xem có vấn đề gì không?)

 

[ptlong04x1]

Em chạy bình thường anh ạ, ngay cả trên ổ D:

​

 

[ndu96081631]

Em chạy bình thường anh ạ, ngay cả trên ổ D:

​

Trời ơi! Thế mới lạ
Tôi tìm khắp nơi trên Internet cũng có người bị giống tôi và chẳng ai biết nguyên nhân tại sao ---> Cuối cùng họ đành phải từ bỏ dùng FileSearch
http://www.mrexcel.com/forum/showthread.php?t=342932
Office mình bị gì ta?
Hic

 

[logica]

Em chạy thử và cũng thấy bình thường thầy Ndu ạh! Thầy thử vào property của ổ đĩa D rồi check error nó thử xem có tiến triển gì không?

 

[DNam]

Em cũng đã thử chạy trên máy mình rồi, vẫn tìm được tốt lắm (em đang dùng Office 2003 và WXP).

Thầy thử vào Run\SFC (kiểm tra độ đúng đắn của các tập tin hệ thống) hoặc Run\Chkdsk kiểm tra lỗi toàn bộ ổ đĩa.

 

[ndu96081631]

Em chạy thử và cũng thấy bình thường thầy Ndu ạh! Thầy thử vào property của ổ đĩa D rồi check error nó thử xem có tiến triển gì không?

Em cũng đã thử chạy trên máy mình rồi, vẫn tìm được tốt lắm (em đang dùng Office 2003 và WXP).

Thầy thử vào Run\SFC (kiểm tra độ đúng đắn của các tập tin hệ thống) hoặc Run\Chkdsk kiểm tra lỗi toàn bộ ổ đĩa.

Tất cả các giải pháp đều đã thử qua (mặc dù tôi không tin rằng đây là lổi ổ đĩa) nhưng đều không giải quyết được vấn đề ---> Nghi ngờ lớn nhất là lổi gì đó trên bộ Office (như nhiều lổi do người dùng phát hiện mà cho đến nay MS vẫn chưa giải quyết được)
Hic...
--------
Dù sao cũng chân thành cảm ơn các bạn đã nhiệt tình trợ giúp