ฟอรั่ม PSsix

Would you like to react to this message? Create an account in a few clicks or log in to continue.

ฟอรั่มของบล็อก http://pssix.blogspot.com


3 posters

    ขอตัวอย่างคำสั่ง Copy, Move to, Replace

    avatar
    kluaytord
    ระงับสมาชิก
    ระงับสมาชิก


    ขอตัวอย่างคำสั่ง Copy, Move to, Replace  Empty
    จำนวนข้อความ : 21
    ความนิยม : 0
    เข้าร่วมเมื่อ : 14/08/2010

    ขอตัวอย่างคำสั่ง Copy, Move to, Replace  Empty ขอตัวอย่างคำสั่ง Copy, Move to, Replace

    ตั้งหัวข้อ by kluaytord 04/02/11, 04:07 am

    ขอตัวอย่างคำสั่ง Copy, Move to, Copy and Replace ด้วยครับ
    เอาแบบหลายๆภาษาก็ได้ครับ...ไม่จำเป็นต้องเป็น Autoit ก็ได้...
    กราบขอบพระคุณล่วงหน้างามๆครับ...
    aut
    aut
    PSsix Powerful Scripting Class
    PSsix Powerful Scripting Class


    PSsix Game Coder
    จำนวนข้อความ : 472
    ความนิยม : 126
    เข้าร่วมเมื่อ : 24/07/2010

    ขอตัวอย่างคำสั่ง Copy, Move to, Replace  Empty Re: ขอตัวอย่างคำสั่ง Copy, Move to, Replace

    ตั้งหัวข้อ by aut 04/02/11, 02:30 pm

    สั่งกดปุ่มไปเลยดิ

    send("^a")

    send("^c")

    send("^v")
    avatar
    kluaytord
    ระงับสมาชิก
    ระงับสมาชิก


    ขอตัวอย่างคำสั่ง Copy, Move to, Replace  Empty
    จำนวนข้อความ : 21
    ความนิยม : 0
    เข้าร่วมเมื่อ : 14/08/2010

    ขอตัวอย่างคำสั่ง Copy, Move to, Replace  Empty Re: ขอตัวอย่างคำสั่ง Copy, Move to, Replace

    ตั้งหัวข้อ by kluaytord 04/02/11, 03:34 pm

    ได้แล้วครับ...ที่จริงใช้ WinRAR ทำเป็น SFX ก็ได้
    แต่อยากรู้คำสั่งของ Autoit ครับ...

    Code:
    FileCopy ( "source", "dest" [, flag] )


    ตัวอย่าง

    #NoTrayIcon
    FileCopy("idman604.exe", "C:\Program Files\IDMantest\", 1)

    อันนี้สำหรับไฟล์เดียว...ถ้ามีหลายๆไฟล์ที่จะก็อปปี้ เราจะเขียนคำสั่งอย่างไรครับ...?
    ท่านใดมีคำสั่งแบบภาษาอื่นที่ไม่ใช่ Autoit รบกวนช่วยลงตัวอย่างให้ดูด้วยนะครับ
    ขอบพระคุณทุกๆคำแนะนำครับ....ขอบคุณครับ

    aut
    aut
    PSsix Powerful Scripting Class
    PSsix Powerful Scripting Class


    PSsix Game Coder
    จำนวนข้อความ : 472
    ความนิยม : 126
    เข้าร่วมเมื่อ : 24/07/2010

    ขอตัวอย่างคำสั่ง Copy, Move to, Replace  Empty Re: ขอตัวอย่างคำสั่ง Copy, Move to, Replace

    ตั้งหัวข้อ by aut 04/02/11, 04:32 pm

    ก็ใช้ FileCopy ดิ ทำไมนายไม่อ่าน help อะ autoit มานก็ทำได้หมด จาเอาภาษาอื่นอะไรอีก ภาษานู้นนี่มั่วไปหมด เล่นอันเด๋วให้เก่งไปเลยดีก่า เล่นมั่วเด๋วก็ไม่เก่งสักอันเป็นเป็ดก๊าบ ก๊าบ ชินจัง

    สั่งก๊อปหลายไฟล์ก้อมีตัวอย่างอยู่ในนั้นแล้ว นี่อะ สั่งก๊อปทุกไฟล์ใน C:\t3fun\AIKAGlobal\bgm\ มาใส่ใน C:\new

    DirCreate("C:\new")
    FileCopy("C:\t3fun\AIKAGlobal\bgm\*.*", "C:\new\")
    avatar
    kluaytord
    ระงับสมาชิก
    ระงับสมาชิก


    ขอตัวอย่างคำสั่ง Copy, Move to, Replace  Empty
    จำนวนข้อความ : 21
    ความนิยม : 0
    เข้าร่วมเมื่อ : 14/08/2010

    ขอตัวอย่างคำสั่ง Copy, Move to, Replace  Empty Re: ขอตัวอย่างคำสั่ง Copy, Move to, Replace

    ตั้งหัวข้อ by kluaytord 05/02/11, 01:40 am

    ถ้าในโฟลเดอร์มีไฟล์และมีโฟลเดอร์ย่อยๆอีก
    จะใช้คำสั่งอะไรในการก็อปปี้ทั้งโฟลเดอร์อ่ะครับ...
    ลองก็อปปี้แล้วได้แต่ไฟล์...ไม่ได้โฟลเดอร์ย่อยที่มีไฟล์อยู่อ่ะ...
    ขอบคุณครับ...
    POS
    POS
    PSsix
    PSsix


    ขอตัวอย่างคำสั่ง Copy, Move to, Replace  Empty ขอตัวอย่างคำสั่ง Copy, Move to, Replace  Empty ขอตัวอย่างคำสั่ง Copy, Move to, Replace  Empty
    จำนวนข้อความ : 1152
    ความนิยม : 326
    เข้าร่วมเมื่อ : 19/07/2010

    ขอตัวอย่างคำสั่ง Copy, Move to, Replace  Empty Re: ขอตัวอย่างคำสั่ง Copy, Move to, Replace

    ตั้งหัวข้อ by POS 05/02/11, 07:10 am

    ถ้าจะก็อปปี้ไฟล์ทั้งโฟลเดอร์หลักและโฟลเดอร์ย่อยต้องใช้คำสั่ง FileFindFirstFile กับ FileFindNextFile ดึงรายชื่อไฟล์กับโฟลเดอร์ออกมาก่อน จากนั้นค่อยใช้ตรวจหาโฟลเดอร์ย่อย แล้วสั่งสร้างโฟลเดอร์และก๊อปปี้ไปทีละโฟลเดอร์ ตัวอย่างคำสั่ง

    Code:
    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
    avatar
    kluaytord
    ระงับสมาชิก
    ระงับสมาชิก


    ขอตัวอย่างคำสั่ง Copy, Move to, Replace  Empty
    จำนวนข้อความ : 21
    ความนิยม : 0
    เข้าร่วมเมื่อ : 14/08/2010

    ขอตัวอย่างคำสั่ง Copy, Move to, Replace  Empty Re: ขอตัวอย่างคำสั่ง Copy, Move to, Replace

    ตั้งหัวข้อ by kluaytord 07/02/11, 07:53 pm

    สุดยอดครับท่าน Admin POS ลองเทสต์แล้วดีมากๆ
    แต่ไม่เข้าใจภาษาที่ท่านเขียนเลย...แห่ะๆ
    กราบขอบพระคุณงามๆครับ...

      เวลาขณะนี้ 29/03/24, 06:40 am