ลองดูครับโค้ดทั้งหมดนี้ไปเปลี่ยนเฉพาะตำแหน่งของFloder ฐาน และ ตำแหน่งของ Floder ที่จะนำไปวาง
Private Sub CmbCopyFile_Click()
Dim FSO As Object
Dim FromPath As String
Dim ToPath As String
Dim I As Long
Dim FileInFromFolder As Object
FromPath = "C:\FloderA\" '<< ตำแหน่ง Floder ของข้อมูลฐานหลัก
ToPath = "D:\FloderB" '<< ตำแหน่งของ Floder ที่จะวางฐานที่ Copy มาลงแต่จะวางทับข้อมูลฐานหลักฐานอันเก่าที่เคย คัดลอกมา
If Right(FromPath, 1) <> "\" Then
FromPath = FromPath & "\"
End If
If Right(ToPath, 1) <> "\" Then
ToPath = ToPath & "\"
End If
Set FSO = CreateObject("scripting.filesystemobject")
If FSO.FolderExists(FromPath) = False Then
MsgBox FromPath & " ไม่มีไฟล์ในตำแหน่งที่ระบุ"
Exit Sub
End If
If FSO.FolderExists(ToPath) = False Then
MsgBox " ไม่พบ Floder ปลายทาง"
Exit Sub
End If
I = 0
For Each FileInFromFolder In FSO.getfolder(FromPath).Files
FileInFromFolder.Copy ToPath
I = I + 1
Next FileInFromFolder
If I = 0 Then
MsgBox "ไม่มีข้อมูลที่จะCopy ข้อมูลไปไว้ที่ > " & ToPath, vbOKOnly, "โปรแกรมเวชระเบียน"
Else
MsgBox "Copy ข้อมูลไปไว้ที่ > " & ToPath & "จำนวน " & I, vbOKOnly, "โปรแกรมเวชระเบียน"
End If
End sub
