- Tham gia
- 11/6/06
- Bài viết
- 527
- Được thích
- 760
- Giới tính
- Nam
- Nghề nghiệp
- Kiểm toán nhà nước
Dear all,
--------
Dưới đây là hàm em hay sử dụng để sao chép, di chuyển một tập tin:
--------
Anh có thể tìm trong diễn đàn các vấn đề về "Kill" (công cụ google tìm kiếm rất tốt).anhtuan1066 đã viết:"liệu chúng ta có thể làm dc như vậy ko?"...
Dưới đây là hàm em hay sử dụng để sao chép, di chuyển một tập tin:
Mã:
Public Function File_Copy(strLookInFolder As String, strOldFileName As String, strNewFileName As String, Optional blnCopy As Boolean, Optional strCopyToFolder As String)
Dim fileFounded As FoundFiles
Set fileFounded = File_Search(strLookInFolder, strOldFileName)
If fileFounded.Count = 1 Then
Debug.Print fileFounded(1)
If strCopyToFolder = "" Then strCopyToFolder = strLookInFolder
FileCopy fileFounded(1), strCopyToFolder & strNewFileName
If blnCopy Then Exit Function
FileSystem.Kill fileFounded(1)
End If
End Function
[COLOR=Silver]
'_____________________[/COLOR]
Public Function File_Search(Optional strLookInFolder As String, Optional strFileName As String) As FoundFiles
With Application.FileSearch
.LookIn = strLookInFolder
.Filename = strFileName
.Execute
Set File_Search = .FoundFiles
End With
End Function
Lần chỉnh sửa cuối: