Xin giúp đỡ về CopyFile các file tên/link có chứa ký tự tiếng Việt

[DarkWanderer]

Chào mọi người,
Em gặp vấn đề khi sử dụng lệnh "FileCopy" báo lỗi "Bad file name or number" do tên file có chứa ký tự tiếng Việt, mong mọi người giúp đỡ ạ

Sub AddDocs ()
Dim OrigFilePath,DestFileFolder As String

OrigFilePath=C:\Users\cuong.vivan\Downloads\Dám chấp nhận.pdf
DestFilePath=D:\DATA OLD\Dám chấp nhận.pdf
FileCopy OrigFilePath, DestFilePath
End Sub

Em có google thấy người ta chỉ là phải sử dụng CopyFile API cho ký tự đặc biệt nhưng không biết cách làm
Em xin cám ơn ạ!

 

[befaint]

Đơn giản nhất là mình không chơi chữ có dấu nữa.

 

[DarkWanderer]

Đơn giản nhất là mình không chơi chữ có dấu nữa.

Tại các file scan hợp đồng từ rất nhiều năm trước người ta đều gõ tiếng Việt cả rồi anh ạ

 

[befaint]

Tại các file scan hợp đồng từ rất nhiều năm trước người ta đều gõ tiếng Việt cả rồi anh ạ

Vậy mình tìm trong này có bài đổi tên file ấy.

 

[Maika8008]

Chào mọi người,
Em gặp vấn đề khi sử dụng lệnh "FileCopy" báo lỗi "Bad file name or number" do tên file có chứa ký tự tiếng Việt, mong mọi người giúp đỡ ạ

Sub AddDocs ()
Dim OrigFilePath,DestFileFolder As String

OrigFilePath=C:\Users\cuong.vivan\Downloads\Dám chấp nhận.pdf
DestFilePath=D:\DATA OLD\Dám chấp nhận.pdf
FileCopy OrigFilePath, DestFilePath
End Sub

Em có google thấy người ta chỉ là phải sử dụng CopyFile API cho ký tự đặc biệt nhưng không biết cách làm
Em xin cám ơn ạ!

Bạn dùng code sau sửa lại đường dẫn và tên file để dùng:
Sub TTTTT()
Dim fso As Object, SFile As String, DFile As String

Set fso = CreateObject("Scripting.FileSystemObject")
SFile = ThisWorkbook.Path & "\" & Sheet3.[O1]
DFile = "D:" & "\" & Sheet3.[O1]

fso.copyfile SFile, DFile
End Sub

Trong đó: Sheet3.[O1] là nơi chứa tên file (Vì file có dấu tiếng Việt Unicode không gõ trực tiếp trên VBE được)

 

[DarkWanderer]

Bạn dùng code sau sửa lại đường dẫn và tên file để dùng:
Sub TTTTT()
Dim fso As Object, SFile As String, DFile As String

Set fso = CreateObject("Scripting.FileSystemObject")
SFile = ThisWorkbook.Path & "\" & Sheet3.[O1]
DFile = "D:" & "\" & Sheet3.[O1]

fso.copyfile SFile, DFile
End Sub

Trong đó: Sheet3.[O1] là nơi chứa tên file (Vì file có dấu tiếng Việt Unicode không gõ trực tiếp trên VBE được)

Cám ơn anh ạ, em sẽ sử dụng cách này