Kiểm tra sự tồn tại của file

[thontrang]

Hi các pro!
E có 1 bài toán xin nhờ sự giúp đỡ từ các Pro
E có 4 file,giả thiết là file 1,2,3,4 cùng nằm trong 1 folder và e sẽ viết code trong file 1 để tổng hợp data từ 3 file kia vào file 1.Nhưng trước khi chạy code thì e muốn kiểm tra xem liệu 3 file (file 2,3,4) đã có trên folder chưa (file 1 thì luôn có mặt rồi)? Nếu chưa thì đưa ra câu nhắc nhở để copy vào
Như vậy,mục đích chính của e là hỏi xem có lệnh nào để kiểm tra sự có mặt của 3 file trên hay chưa?
Xin nhờ các pro giúp đỡ với nhé!
Tks alot!

 

[dhn46]

Bạn có thể tham khảo tại đây:
http://www.giaiphapexcel.com/forum/archive/index.php/t-39447.html

 

[ndu96081631]

Hi các pro!
E có 1 bài toán xin nhờ sự giúp đỡ từ các Pro
E có 4 file,giả thiết là file 1,2,3,4 cùng nằm trong 1 folder và e sẽ viết code trong file 1 để tổng hợp data từ 3 file kia vào file 1.Nhưng trước khi chạy code thì e muốn kiểm tra xem liệu 3 file (file 2,3,4) đã có trên folder chưa (file 1 thì luôn có mặt rồi)? Nếu chưa thì đưa ra câu nhắc nhở để copy vào
Như vậy,mục đích chính của e là hỏi xem có lệnh nào để kiểm tra sự có mặt của 3 file trên hay chưa?
Xin nhờ các pro giúp đỡ với nhé!
Tks alot!

Có thể dùng hàm này để kiểm tra

Function FileExist(ByVal flePath As String) As Boolean
  FileExist = CreateObject("Scripting.FileSystemObject").FileExists(flePath)
End Function

 

[thanhlanh]

Vậy cũng được:

Sub auto_open()
    MyThumuc = ThisWorkbook.Path
    If Len(Dir(MyThumuc & "\taptin1.xls", vbHidden)) = 0 Then
        MsgBox "Khong co taptin1.xls trong thu muc " & MyThumuc
    End If
End Sub

Tìm được cả khi file đó ẩn

 

[ndu96081631]

Vậy cũng được:

Sub auto_open()
    MyThumuc = ThisWorkbook.Path
    If Len(Dir(MyThumuc & "\taptin1.xls", vbHidden)) = 0 Then
        MsgBox "Khong co taptin1.xls trong thu muc " & MyThumuc
    End If
End Sub

Tìm được cả khi file đó ẩn

Tốt nhất anh đừng bao giờ dùng hàm Dir, nó sẽ sai trong 1 số trường hợp (cái này nói hoài)

 

[thanhlanh]

Tốt nhất anh đừng bao giờ dùng hàm Dir, nó sẽ sai trong 1 số trường hợp (cái này nói hoài)

À nó sai khi tên file là tiếng Việt có dấu.