Xuân Thanh > 20-02-13, 11:27 AM
Function CopyFiles(strOldPath As String, strNewPath As String)
Dim objFileSystem As Object
Set objFileSystem = CreateObject("Scripting.FileSystemObject")
objFileSystem.CopyFile strOldPath, strNewPath
Set objFileSystem = Nothing
End Function
haw_4er > 25-03-13, 04:45 PM
nmhung49 > 26-03-13, 08:34 PM
(25-03-13, 04:45 PM)haw_4er Đã viết: Bạn cho mình hỏi, hàm trên là copy tất cả các file trong strOldPath qua strNewPath,
FileCopy "D:\ThuThuatAccess\MyFile.mdb", "D:\FileCopy\MyFile.mdb"
nhannt4 > 02-04-13, 09:38 AM