xCopy Folder Và File Cha Con Chau Chắt... Trong Folder Cha (3 người xem)

[Kiều Mạnh]

Nhân dịp đầu xuân năm mới .... Năm củ Mạnh có viết cho Một người Bạn một Tools Copy để chép nhạc và Phim cho khách hàng ....

Bạn mình có thắc mắc là Folder là tiếng việt có dấu là tịt....Nay đang rảnh lục lại code Ngâm cứu lại ...vậy là Mạnh viết xong...Test trên máy Mạnh OK...

Trong File sử dụng thư Viện xCopy của Windows chạy trong Dos nên tốc độ Copy khá nhanh... nếu Bạn nào kết thì xài cũng tạm OK... không phải cài đặt chạy trực tiếp trên Windows ....

Vậy Mạnh úp lên nhờ các bạn Test dùm xem trên máy Windows32 và Windows64 xem có chạy tốt không cho Mạnh Biết với để điều chỉnh code...

Đầu Xuân Năm Mới ... Kiều Mạnh Xin cảm ơn và ...

Chúc Năm Mới Hạnh Phúc Đến Với Mọi Nhà...

 

[befaint]

Nên thêm nút Paste, để sau khi chọn folder đích, kiểm tra chắc ăn rồi mới click.
p/s: win7 32bit chạy ngon lành.

 

[Kiều Mạnh]

Nên thêm nút Paste, để sau khi chọn folder đích, kiểm tra chắc ăn rồi mới click.
p/s: win7 32bit chạy ngon lành.

Làm vậy cũng được nhưng mất công thêm một cái chuột nữa...
Bạn cứ nhấn Folder Paste chọn một Folder lưu hay tạo Folder mới là OK

 

[batman1]

xcopy, chia sẻ code luôn (cho những người bạn)
vd.

Xcopy [C2], [D2], "*.*"

http://www.giaiphapexcel.com/forum/...-1-folder-vào-Folder-khác&p=415434#post415434

 

[Kiều Mạnh]

xcopy, chia sẻ code luôn (cho những người bạn)
vd.

Xcopy [C2], [D2], "*.*"

http://www.giaiphapexcel.com/forum/...-1-folder-vào-Folder-khác&p=415434#post415434

Bài đó Em biết lâu Rồi ...Em đọc tới lui bài đó rất nhiều .....
Code đó Copy tốc độ nhanh khủng khiếp....
Nhưng Em xài Hàm Sau:

Public Sub CopyAll(ByVal FolderCopy As String, ByVal FolderPaste As String)
Shell "xcopy " & "/C /H /A /I /E /Q /K /Y /R " & GetShortName$(FolderCopy) & " " & GetShortName$(FolderPaste), vbHide
End Sub

 

[Kiều Mạnh]

Nhân Tiện đây Úp tặng cho Bạn nào cần Code đơn Giản nhất sử dụng xCopy chạy trong môi trường dos nên copy rất nhanh

Public Function xCopyFile(ByVal FileCopy$, ByVal FilePaste$)
    Shell "xcopy " & FileCopy & " " & FilePaste & " /H/K/R/Y", vbHide
End Function

Chạy Sub Sau:

Sub Main_xCopyFile()
    Dim FileCopy$, FilePaste$
    FileCopy = "D:\kk\*.*"
    FilePaste = "E:\mm"
    xCopyFile (FileCopy), (FilePaste)
End Sub

Nghiên Cứu từ code Bài #18 trang sau....Cảm ơn Anh rất nhiều

http://www.giaiphapexcel.com/forum/...-1-folder-vào-Folder-khác&p=415434#post415434

 

[doveandrose]

Nhân dịp đầu xuân năm mới .... Năm củ Mạnh có viết cho Một người Bạn một Tools Copy để chép nhạc và Phim cho khách hàng ....

Bạn mình có thắc mắc là Folder là tiếng việt có dấu là tịt....Nay đang rảnh lục lại code Ngâm cứu lại ...vậy là Mạnh viết xong...Test trên máy Mạnh OK...

Trong File sử dụng thư Viện xCopy của Windows chạy trong Dos nên tốc độ Copy khá nhanh... nếu Bạn nào kết thì xài cũng tạm OK... không phải cài đặt chạy trực tiếp trên Windows ....

Vậy Mạnh úp lên nhờ các bạn Test dùm xem trên máy Windows32 và Windows64 xem có chạy tốt không cho Mạnh Biết với để điều chỉnh code...

Đầu Xuân Năm Mới ... Kiều Mạnh Xin cảm ơn và ...

Chúc Năm Mới Hạnh Phúc Đến Với Mọi Nhà...

đây là máy 32 bit

đây là máy 64 bit

mà giờ tôi lại thích tăng độ khó cho game .
Giờ tôi chỉ muốn Copy file chứ chưa muốn Paste thì code sao đây Kiều Mạnh ? =))
(tức là code tương đương với việc click vào 1 folder rồi ấn Ctrl+C và ngưng lại )

 

[Kiều Mạnh]

đây là máy 32 bit

đây là máy 64 bit

mà giờ tôi lại thích tăng độ khó cho game .
Giờ tôi chỉ muốn Copy file chứ chưa muốn Paste thì code sao đây Kiều Mạnh ? =))
(tức là code tương đương với việc click vào 1 folder rồi ấn Ctrl+C và ngưng lại )

Sao nó lại lỗi Control của Office được ta....

Ctrl+C ...Vụ này chắc phải xài tới Mớ Hàm API quá..

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Private Declare Function EmptyClipboard Lib "user32" () As Long
Private Declare Function SetClipboardData Lib "user32" (ByVal wFormat As Long, ByVal hMem As Long) As Long
Private Declare Function GetClipboardData Lib "user32" (ByVal wFormat As Long) As Long
Private Declare Function CloseClipboard Lib "user32" () As Long
Public Declare Function OpenClipboard Lib "user32.dll" (ByVal hwnd As Long) As Long


Từ từ ta ngâm cứu xem ....Bạn khai phá trước cho Mạnh Một cái đi xem tình hình sao

 

[Kiều Mạnh]

Mình xài Control này trên máy Win10(32) + Office2010(32)
Nên máy 64 là tịt chăng...