Thaiadmin

รบกวนช่วยดู VB Script robocopy หน่อยครับ

0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

ออฟไลน์ jeekh

  • ***
  • 70
  • 0
รบกวนช่วยดู VB Script robocopy หน่อยครับ
« เมื่อ: 1 สิงหาคม 2013, 10:56:13 »
รบกวนช่วยดู Script ข้างล่างหน่อย ครับผมอยากให้มัน copy ทุก file ทุก folder ใน objSource = InputBox("Enter Source") แต่ตอนนี้มัน copy ทีละ fileเองครับช่วยด้วยครับ :'(


Set objShell = CreateObject("Wscript.Shell")

objSource = InputBox("Enter Source")
objDestination = InputBox("Enter Destination")

objCommand = "RoboCopy.Exe " & Chr(34) & objSource & Chr(34) & " " & Chr(34) & objDestination & Chr(34) & " /e /copyall /r:1 /w:2"
objShell.Run(objCommand)

MsgBox "Done"

ออฟไลน์ jeekh

  • ***
  • 70
  • 0
Re: รบกวนช่วยดู VB Script robocopy หน่อยครับ
« ตอบกลับ #1 เมื่อ: 1 สิงหาคม 2013, 11:07:54 »
เพิ่มรูปครับ ;)

ออฟไลน์ sydit

  • *****
  • 80
  • 3
Re: รบกวนช่วยดู VB Script robocopy หน่อยครับ
« ตอบกลับ #2 เมื่อ: 1 สิงหาคม 2013, 13:22:29 »
robocopy มันก็จะก็อปปี้ ทีละไฟล์หรือโฟลเดอร์ ตามรูปแหล่ะครับ จนกว่าจะก็อปไฟล์หรือโฟลเดอร์จาก source folder จนครบ