E có tình huống này cần mọi người giúp đỡ: E có 1 folder chứa file scan pdf của cả năm. Hàng tháng e nhận được 1 danh sách tên file pdf cần lấy ra để gửi cho KH. Bình thường danh sách ít thì e có thể search tên từng file rồi copy sang folder cần gửi. nhưng có tháng danh sách lên đến gần 500, có thể mất cả ngày nếu làm theo cách kia. Nên e rất mong nhận được sự giúp đỡ từ diễn đàn.
Em xin cảm ơn!
E có tình huống này cần mọi người giúp đỡ: E có 1 folder chứa file scan pdf của cả năm. Hàng tháng e nhận được 1 danh sách tên file pdf cần lấy ra để gửi cho KH. Bình thường danh sách ít thì e có thể search tên từng file rồi copy sang folder cần gửi. nhưng có tháng danh sách lên đến gần 500, có thể mất cả ngày nếu làm theo cách kia. Nên e rất mong nhận được sự giúp đỡ từ diễn đàn.
Em xin cảm ơn!
E có tình huống này cần mọi người giúp đỡ: E có 1 folder chứa file scan pdf của cả năm. Hàng tháng e nhận được 1 danh sách tên file pdf cần lấy ra để gửi cho KH. Bình thường danh sách ít thì e có thể search tên từng file rồi copy sang folder cần gửi. nhưng có tháng danh sách lên đến gần 500, có thể mất cả ngày nếu làm theo cách kia. Nên e rất mong nhận được sự giúp đỡ từ diễn đàn.
Em xin cảm ơn!
CopyFile (dùng để copy file(s) từ 1 thư mục đến thư mục khác)
Cái thú vị của lệnh này là nếu ta chỉ ra đường dẫn và tên file đích, thì code sẽ lấy tên file mà ta đã chỉ định.
Thông thường ta sẽ thực hiện code thế này để copy file
Mã:
Dim fso As Object, FileToCopy As String, Des As String
Set fso = CreateObject("Scripting.FileSystemObject")
FileToCopy= "D:\Sample\Item1\Baitap.xls"
Des="D:\Sample\Item2\Baitap.xls"
fso.CopyFile FileToCopy, Des
Tuy nhiên nếu ta viết thế này thì code vẫn hiểu. Nếu ta không chỉ định tên file thì code sẽ lấy tên file gốc.
Nếu ta muốn đổi tên file thì code sẽ cho ta tên file mới với cùng nội dung trong file.
Mã:
Dim fso As Object, FileToCopy As String, Des As String
Set fso = CreateObject("Scripting.FileSystemObject")
FileToCopy= "D:\Sample\Item1\Baitap.xls"
Des="D:\Sample\Item2\"
fso.CopyFile FileToCopy, Des
CopyFile (dùng để copy file(s) từ 1 thư mục đến thư mục khác)
Cái thú vị của lệnh này là nếu ta chỉ ra đường dẫn và tên file đích, thì code sẽ lấy tên file mà ta đã chỉ định.
Thông thường ta sẽ thực hiện code thế này để copy file
Mã:
Dim fso As Object, FileToCopy As String, Des As String
Set fso = CreateObject("Scripting.FileSystemObject")
FileToCopy= "D:\Sample\Item1\Baitap.xls"
Des="D:\Sample\Item2\Baitap.xls"
fso.CopyFile FileToCopy, Des
Tuy nhiên nếu ta viết thế này thì code vẫn hiểu. Nếu ta không chỉ định tên file thì code sẽ lấy tên file gốc.
Nếu ta muốn đổi tên file thì code sẽ cho ta tên file mới với cùng nội dung trong file.
Mã:
Dim fso As Object, FileToCopy As String, Des As String
Set fso = CreateObject("Scripting.FileSystemObject")
FileToCopy= "D:\Sample\Item1\Baitap.xls"
Des="D:\Sample\Item2\"
fso.CopyFile FileToCopy, Des