วิธี copy Folder โดยไม่ต้องสร้าง Folder ปลายทางไว้
กระทู้เก่าบอร์ด อ.Yeadram

 975   0
URL.หัวข้อ / URL
วิธี copy Folder โดยไม่ต้องสร้าง Folder ปลายทางไว้

จากโค้ดนี้
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 อย่างไรเพื่อให้ตำแหน่งปลายทางเหมือนตำแหน่งต้นทางครับ
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.1078s