ขอตัวอย่างคำสั่ง Copy, Move to, Copy and Replace ด้วยครับ
เอาแบบหลายๆภาษาก็ได้ครับ...ไม่จำเป็นต้องเป็น Autoit ก็ได้...
กราบขอบพระคุณล่วงหน้างามๆครับ...
เอาแบบหลายๆภาษาก็ได้ครับ...ไม่จำเป็นต้องเป็น Autoit ก็ได้...
กราบขอบพระคุณล่วงหน้างามๆครับ...
FileCopy ( "source", "dest" [, flag] )
ตัวอย่าง
#NoTrayIcon
FileCopy("idman604.exe", "C:\Program Files\IDMantest\", 1)
Dim $source = "C:\Users\POS\Desktop\New folder" ;ตำแหน่งของข้อมูลต้นฉบับ
Dim $dest = "C:\aa" ;ตำแหน่งปลายทางที่จะก็อปปี้ข้อมูลไปเก็บไว้
DirCreate($dest)
copyall($source)
Func copyall($Folder)
$Search = FileFindFirstFile($Folder & "\*.*")
While 1
If $Search = -1 Then ExitLoop
$File = FileFindNextFile($Search)
If @error Then ExitLoop
$Fullpath = $Folder & "\" & $File
If StringInStr(FileGetAttrib($Fullpath), "D") Then
DirCreate(StringReplace($Fullpath, $source, $dest))
copyall($Fullpath)
Else
FileCopy($Fullpath, StringReplace($Fullpath, $source, $dest))
EndIf
WEnd
FileClose($Search)
EndFunc
|
|