Lỗi hàm phát hiện file đã tồn tại

[moihocvba]

Em chào anh chị, em có tìm hiểu hàm phát hiện file Excel đã tồn tại trong hệ thống

Function FileExists(fullFileName As String) As Boolean 
If fullFileName = "" Then
    FileExists = False
  Else
    FileExists = VBA.Len(VBA.Dir(fullFileName)) > 0
  End If

Tên thư mục em không để dấu. Em phát hiện nếu tên file chứ chữ "Đông" thì nó không phát hiện được.
Ví dụ: E:\GUIMAIL\FileDinhKem\Công Ty Cổ Phần Rạng Đông Films.xlsx

Anh chị test dùm tại sao lại thế ạ. HIện tại em mới tìm thấy lỗi chữ này thôi, không biết còn chữ nào bị nữa không.
Em xin cảm ơn ạ!

 

[Phuocam]

FileExists = VBA.Len(VBA.Dir(fullFileName)) > 0

Hàm Dir không làm việc với tên file có ký tự đặc biệt. Nên tìm hướng khác thay vì sửa nó.

.

 

[moihocvba]

Hàm Dir không làm việc với tên file có ký tự đặc biệt. Nên tìm hướng khác thay vì sửa nó.

.

Dạ vậy ạ! Vậy thì mình dùng hàm gì có thể đọc được tiếng Việt có dấu ạ? Em thấy nó vẫn đọc các chữ khác, như chữ "Việt Nam".

 

[giaiphap]

Dạ vậy ạ! Vậy thì mình dùng hàm gì có thể đọc được tiếng Việt có dấu ạ? Em thấy nó vẫn đọc các chữ khác, như chữ "Việt Nam".

Thử hàm này xem sao.

Function FileExists(fullFileName As String) As Boolean
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    FileExists = fso.FileExists(fullFileName)
End Function

 

[befaint]

Kho thư viện của mình có cái này.

Public Function fileExists(ByVal filePath As String) As Boolean
    If VBA.Len(filePath) = 0 Then fileExists = False: Exit Function
    Static fso As Object
    If fso Is Nothing Then Set fso = CreateObject("Scripting.FileSystemObject")
    fileExists = fso.fileExists(filePath)
End Function

 

[moihocvba]

Dạ em đã thử code của anh @giaiphap và anh @befaint
Cả 2 code đều chạy rất tốt ạ!

Em xin cám ơn rất nhiều!

 

[VetMini]

...
Cả 2 code đều chạy rất tốt ạ!
...

Vậy mà cũng bày đặt nói chuyện "tìm hiểu".