Muốn biết sự tồn tại của 1 file ?

Liên hệ QC

chibi

Thành viên tích cực
Thành viên danh dự
Tham gia
10/1/07
Bài viết
1,120
Được thích
622
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
 
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!
 
Upvote 0
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 ???
 
Upvote 0
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 !
 
Upvote 0
Bên vb mình vẫn thường dùng cách này post lên cho bạn tham khảo.
 

File đính kèm

  • kiemtra.xls
    19.5 KB · Đọc: 26
Upvote 0
Web KT
Back
Top Bottom