Giúp đỡ copy nhiều files sang một thư mục khác

[ehero]

Dạ như tiêu đề, em đang làm một code có thể copy nhiều file mình đã chọn để copy sang một thư mục có đường dẫn như sau: "E:\'tên thư mục chính ở sheet2 cột B1'\'tên thư mục phụ ở sheet2 cột B2"
Mình có đoạn code dưới đây:
Public Sub Copy_File() Dim Thumuc_den As String Thumuc_den = "E:\" & Sheet2.Range("B1").Value & "\" & Sheet2.Range("B2").Value Dim lngCount As Long Dim fname As String With Application.FileDialog(msoFileDialogOpen) .AllowMultiSelect = True .Show For lngCount = 1 To .SelectedItems.Count fname = Mid(.SelectedItems(lngCount), InStrRev(.SelectedItems(lngCount), "\") + 1) FileCopy .SelectedItems(lngCount), Thumuc_den & fname Next lngCount End With End Sub
Nhưng nó lại chỉ copy những file không có ký tự tiếng việt và không vào thư mục phụ mà tên file copy sang lại có gán tên thư mục phụ ở đầu
Mong mọi người giúp đỡ ạ!

 

[johnnylinhanh]

Chắc bạn đang cần là đoạn code này:

CreateObject("Scripting.FileSystemObject").Copyfile .SelectedItems(lngCount), Thumuc_den & fname

 

[ehero]

Chắc bạn đang cần là đoạn code này:

CreateObject("Scripting.FileSystemObject").Copyfile .SelectedItems(lngCount), Thumuc_den & fname

dạ, e cám ơn bác ạ, code này đã giúp em giải quyết được vấn đề copy file tiếng việt nhưng mà file copy không vào thư mục phụ mà tên file copy lại dính tên thư mục phụ ở đằng trước ví dụ: Thư mục phụ có tên là thumuc, tên file là file1 thì khi chạy code tên file khi được copy lại thành thumucfile1. Bác xem sửa code của em với ạ.

 

[johnnylinhanh]

Bạn thử sửa thành:

CreateObject("Scripting.FileSystemObject").Copyfile .SelectedItems(lngCount), Thumuc_den & "\" & fname

 

[ehero]

Bạn thử sửa thành:

CreateObject("Scripting.FileSystemObject").Copyfile .SelectedItems(lngCount), Thumuc_den & "\" & fname

Ui, được rồi ạ, em cám ơn bác nhiều lắm.