จากโค้ดนี้
Private Sub Command0_Click()
     Dim tmpStr, i
      i = 0
       tmpStr = Dir("E:\CC_DJOB_V2\DATA\DATA.accdb")
       Do Until tmpStr = ""
          i = i + 1
          Debug.Print tmpStr
        tmpStr = Dir
      Loop
      If i = 0 Then
      MsgBox ("ไม่พบไฟล์ที่ค้นหา")
      MkDir "E:\NewFolder"
      MkDir "E:\NewFolder\DATA"
    Dim FSO As Object
        Set FSO = CreateObject("Scripting.FileSystemObject")
        FSO.CopyFolder CurrentProject.Path & "\DATA", "E:\NewFolder\DATA", True
        Set FSO = Nothing
       End If
End Sub

จากโค้ดนี้ ถ้าผมไม่อยากใช้คำสั่ง MkDir เพื่อสร้าง Folder ปลายทางสำหรับเก็บข้อมูลที่ต้องการ copy ไป แต่อยากให้ตำแหน่งปลายทางเหมือนตำแหน่งต้นทางที่ copy ข้อมูลไปเลยผมต้องแก้คำสั่ง FSO.CopyFolder อย่างไรเพื่อให้ตำแหน่งปลายทางเหมือนตำแหน่งต้นทางครับ