กระทู้เก่าบอร์ด อ.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 อย่างไรเพื่อให้ตำแหน่งปลายทางเหมือนตำแหน่งต้นทางครับ
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 อย่างไรเพื่อให้ตำแหน่งปลายทางเหมือนตำแหน่งต้นทางครับ
Time: 0.1078s