Copy files จาก Folder หนึ่งไปอีก Folder หนึ่ง

[wilbery]

อยากทราบวิธีการ Copy File PDF จาก Folder หนึ่งไปอีก Folder หนึ่งโดยใช้ VBA Access.
ผมไป Copy Code มาจาก Internet และก็ลองปรับเปลี่ยน (ตามรูป) แต่มันหา File จาก Path แรกอย่างเดียว
รบกวนช่วยแก้ใข Code ให้สามารถ Copy จากหลายๆ Folder ให้หน่อยครับ

ขอบคุณครับ

[snasui]

ควรโพสต์ Code ให้แสดงเป็น Code อ่านกฎการใช้บอร์ดข้อ 5 ด้านบนประกอบครับ

นอกจากนี้ควรแนบไฟล์ Access มาด้วย ให้ตัดมาเฉพาะที่เกี่ยวข้อง เพียงเพื่อเป็นตัวอย่างเท่านั้น หากไฟล์มีขนาดเกิน 300kb ให้ Zip มาก่อนไม่เช่นนั้นไม่สามารถแนบไฟล์ได้ครับ

[bank9597]

ผมไม่เข้าใจว่าทำไมต้องแยก path และ Filename ออกจากกัน ทำให้ยากต่อการเขียนโค๊ดครับ แต่ไหนๆก็ทำมาแล้ว ผมจะแนะนำตามที่ควรจะเป็นดังนี้ครับ

1 . สร้างฟิลด์ ID ในตาราง TemCopyFile *ชื่อไฟล์ต้องมีนามสกุลเสมอ
2. สร้าง Foreign Key ในตาราง sFolderสร้างเป็นชื่อฟิลด์ว่า CopyListID
3. จากนั้นก็เชื่อมรหัสทั้งสองตารางเข้าด้วยกัน
4. สร้างโค๊ดดังนี้

Code: Select all

Public Sub CopyFileToNewDes()

    Dim strSQL As String
    Dim rst As DAO.Recordset
    Dim strNewPath As String
    Dim FSO As Object
           
    strSQL = "SELECT [sFol] & [FileName] AS FullPath, temCopyList.FileName " & _
                "FROM temCopyList INNER JOIN sFolder ON temCopyList.ID = sFolder.CopyListID;"
    Set rst = CurrentDb.OpenRecordset(strSQL)
    
    Do While Not rst.EOF
            Set FSO = CreateObject("Scripting.FileSystemObject")
            strNewPath = "C:\tempDwg\"
            FSO.CopyFile (rst!FullPath), strNewPath & rst!FileName, True 'Copy and paste file to destination folder
            Set FSO = Nothing
        rst.MoveNext
    Loop
    
    MsgBox "Move File Successful", vbInformation
    rst.Close
    Set rst = Nothing
    
End Sub

เพิ่มโค๊ดที่เหลือเองตามความต้องการครับ ไม่เข้าใจลองดูไฟล์แนบประกอบครับ