Hello,
Could you replace FileExists() by this?

Is Full Unicode and Universal.


Code:
Private Declare Function PathFileExists Lib "shlwapi" Alias "PathFileExistsW" (ByVal pszPath As Long) As Long
 
Public Function FileExists(ByVal PathName As String) As Boolean
    FileExists = CBool(PathFileExists(StrPtr(PathName)))
End Function