Bác nào giúp em coppy file hoặc folder tới nhiều folder khác nhau với

[vonguyen3745]

Em muốn coppy 1 file hoặc folder tới nhiều folder khác nhau theo đường dẫn cho trước. Thanks

 

[hoanganhvo2612]

Bạn có thể dùng cmd "move" như sau: move "thumuccancopy" "thumucdich"
Dùng công thức excel tạo các câu lệnh, copy các câu lệnh vào notepad lưu dưới đuôi .bat rồi chạy file đó là được.

 

[vonguyen3745]

Mình thấy trên diễn đàn có code của bác nào đó cho copy nhiều file, folder vào 1 folder, nhưng mình không biết sưả ngược lại, bác nào biết sửa giúp mình với.

Sub CopyFolderAPI()
Dim lastRow As Long, r As Long, sourceDir As String, destDir As String
On Error Resume Next
    lastRow = Range("C1000").End(xlUp).Row
    destDir = Range("D1").Value
    For r = 2 To lastRow
        sourceDir = Range("C" & r).Value
        CopyFolder sourceDir, destDir
    Next
End Sub

 

[hongphuong1997]

Bạn có thể dùng cmd "move" như sau: move "thumuccancopy" "thumucdich"
Dùng công thức excel tạo các câu lệnh, copy các câu lệnh vào notepad lưu dưới đuôi .bat rồi chạy file đó là được.

Hay quá, bạn hướng dẫn cụ thể cho mọi người đi.
Cảm ơn bạn.

 

[hoanganhvo2612]

Hay quá, bạn hướng dẫn cụ thể cho mọi người đi.
Cảm ơn bạn.

có gì đâu, bạn dùng công thức ra kết quả như trong file, rồi copy kết quả đó vào notepad, lưu dưới dạng .bat. rồi click đúp để chạy file bat đó. Mình không đính kèm file bat được.

Bài đã được tự động gộp: 11/7/21

Mình thấy trên diễn đàn có code của bác nào đó cho copy nhiều file, folder vào 1 folder, nhưng mình không biết sưả ngược lại, bác nào biết sửa giúp mình với.

Sub CopyFolderAPI()
Dim lastRow As Long, r As Long, sourceDir As String, destDir As String
On Error Resume Next
    lastRow = Range("C1000").End(xlUp).Row
    destDir = Range("D1").Value
    For r = 2 To lastRow
        sourceDir = Range("C" & r).Value
        CopyFolder sourceDir, destDir
    Next
End Sub

Bạn thiếu sub "CopyFolder "

 

[hongphuong1997]

có gì đâu, bạn dùng công thức ra kết quả như trong file, rồi copy kết quả đó vào notepad, lưu dưới dạng .bat. rồi click đúp để chạy file bat đó. Mình không đính kèm file bat được.
View attachment 262230

Bài đã được tự động gộp: 11/7/21

Bạn thiếu sub "CopyFolder "

Xin cảm ơn bạn nhiều nhé1

 

[vonguyen3745]

Mình tạo file bat như bạn hướng dẫn nhưng không được

 

[hoanganhvo2612]

Mình tạo file bat như bạn hướng dẫn nhưng không được

Bạn tạo như thế nào? lưu ý khi lưu thì phần loại file mặc định là text, bạn chuyển về all rồi đặt tên .bat nhé

 

[batman1]

Mình thấy trên diễn đàn có code của bác nào đó cho copy nhiều file, folder vào 1 folder, nhưng mình không biết sưả ngược lại, bác nào biết sửa giúp mình với.

Sub CopyFolderAPI()
Dim lastRow As Long, r As Long, sourceDir As String, destDir As String
On Error Resume Next
    lastRow = Range("C1000").End(xlUp).Row
    destDir = Range("D1").Value
    For r = 2 To lastRow
        sourceDir = Range("C" & r).Value
        CopyFolder sourceDir, destDir
    Next
End Sub

Đấy là code của tôi (siwtom) trong bài #9 (có tập tin). Đọc thêm bài #13, #17 và #20 để hiểu thêm.

Copy nhiều folder vào 1 folder theo list cho trước từ excel

Chả là ông anh em ở quê cho người ta copy phim từ đống phim trên HDD của ống ấy. Thấy ông ấy dò từng phim một theo list cực quá, nhờ các bác viết giúp ông ấy file excel có chức năng sau: Đầu vào: Yêu cầu copy các phim khách hàng chọn đã được list dưới dạng file excel: (Phim A, Phim B, Phim...

www.giaiphapexcel.com

Sub CopyFolderAPI sử dụng sub CopyFolder trong module modCopyMoveDeleteFolder. Khi muốn dùng code của tôi trong tập tin của mình thì phải đính kèm module modCopyMoveDeleteFolder lấy từ bài #9.

Trong tập tin bạn gửi tôi đã làm hộ bạn - viết code và thêm module modCopyMoveDeleteFolder.

 

[batman1]

Mình tạo file bat như bạn hướng dẫn nhưng không được

Trong module modCopyMoveDeleteFolder đã có sẵn code dùng DÒNG LỆNH rồi. Nếu bạn muốn dùng dòng lệnh thì lôi ra dùng thôi - bạn sử dụng sub Xcopy thay cho sub CopyFolder. Bạn không phải tự tạo BAT vì rất rách việc (công thức + copy/paste, lưu tập tin bằng tay). Khi thư mục nguồn và đích thay đổi lại phải chỉnh sửa tập tin BAT. Code tự tạo dòng lệnh và chạy dòng lệnh đó - dòng lệnh xcopy.

Sửa code dùng CopyFolder thành

Sub CopyFolderAPI()
Dim lastRow As Long, r As Long, sourceDir As String, destDir As String
On Error Resume Next
    lastRow = Sheet1.Cells(Rows.count, "B").End(xlUp).Row
    If lastRow < 2 Then Exit Sub
    sourceDir = Sheet1.Range("A2").Value
    Range("C2:C1000").ClearContents
    For r = 2 To lastRow
        destDir = Range("B" & r).Value
        Xcopy sourceDir, destDir, "*.*"
        Range("C" & r).Value = "Done"
    Next
End Sub

 

[vonguyen3745]

Thanks bạn batman1 nhiều!