Kiểm tra thư mục, tập tin tồn tại?

[phamduylong]

Các bạn giúp mình viết VBA để kiểm tra thư mục, tập tin có tồn tại hay không từ một đường dẫn. Ví dụ "D:\GPE\baitap.xls".
Có Controls nào tạo form để chọn ổ đĩa, thư mục như My Computer không bằng VBA Excel không ?

 

[tedaynui]

Bạn có thể dùng hàm này để kiểm tra
FName là đường dẫn và tên tập tin.

Function [B]FileExists[/B](ByVal FName) As Boolean
Dim x As String
    On Error GoTo TBLoi
    x = Dir(FName)
    If x <> "" Then FileExists = True Else FileExists = False
    Exit Function
TBLoi:
    FileExists = False
End Function

Thân!
TDN

 

[Mr Okebab]

Các bạn giúp mình viết VBA để kiểm tra thư mục, tập tin có tồn tại hay không từ một đường dẫn. Ví dụ "D:\GPE\baitap.xls".
Có Controls nào tạo form để chọn ổ đĩa, thư mục như My Computer không bằng VBA Excel không ?

Đây là một số bài viết rất hay của anh Duyệt, bác tham khảo nhé.
http://www.giaiphapexcel.com/forum/showthread.php?t=35
Thân

 

[LearnExcel]

Bác có thể tham khảo thêm ở đây:
3 code fragments