Muốn biết sự tồn tại của 1 file ? (2 người xem)

[chibi]

Tôi vẫn làm như sau

Sub VIDU()
Dim fso, f, fc, ok, f1, ten_tep
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder("c:\vidu\")
Set fc = f.Files
ok = False
For Each f1 In fc
ten_tep = f1.Name
If ten_tep = "vidu.xls" Then
ok = True
End If
Next
MsgBox (IIf(ok, "Ton tai", "Khong ton tai"))
End Sub

 

[tedaynui]

Chào các bạn.
Cám ơn Skyonline và Chibi rất nhiều. Cả hai cách đều cho kết quả như ý.

Tedaynui
Thân!

 

[tedaynui]

Bài mình post mọi hôm lên trên hoặc dưới cùng, sao hôm nay chui vô giữa là sao vậy ta ???

 

[digita]

Bạn thay cái câu này vào.

.LookIn = "C:\Temp\"

 

[tedaynui]

Nhờ các bạn giúp, mình muốn biết file "vidu.xls" có tồn tại trong thư mục "C:\temp" hay không ?

Sub Search()
With Application.FileSearch
.NewSearch
.LookIn = "C:\Temp"
.Filename = "vidu.xls"
.MatchAllWordForms = True
.FileType = msoFileTypeAllFiles
If .FoundFiles.Count > 0 Then
MsgBox .Filename
Else
MsgBox "Khong tim thay"
End If
End With
End Sub

Kết quả lúc nào cũng là không tìm thấy mặc dù file "vidu.xls" nằm trong "C:\Temp"
Mong được giúp đỡ, rất cảm ơn !

 

[skyonline]

Bên vb mình vẫn thường dùng cách này post lên cho bạn tham khảo.

 

[tedaynui]

Bạn thay cái câu này vào.

.LookIn = "C:\Temp\"

Chào bạn.
Minh đã thử nhưng kết quả không thay đổi.
Thân !