โค้ดโปรแกรมบีบอัดไฟล์

โค้ดของผมอาจจะดูแปลกๆ ผมใช้ความสามารถในการบีบไฟล์และคลายไฟล์ของ BAT File ครับ
และผมจำไม่ได้แล้วครับว่าก๊อบโค้ดจากเว็บไหนมาดัดแปลงบ้างครับ

Code:

#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("โปรแกรมบีบอัดไฟล์ คลายไฟล์ By Max", 331, 90, 193, 125)
$Button1 = GUICtrlCreateButton("บีบอัดไฟล์", 24, 24, 129, 41, 0)
$Button2 = GUICtrlCreateButton("คลายไฟล์", 176, 24, 129, 41, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
      Case $GUI_EVENT_CLOSE
         Eixt()

      Case $Button1
         min()

      Case $Button2
         max()
         
   EndSwitch
WEnd

Func min()
$var = FileOpenDialog("กรุณาเลือกไฟล์ที่ต้องการบีบอัด","\", "All (*.*)", 1 + 4 )

If @error Then
    Eixt()
Else
    $var = StringReplace($var, "|", @CRLF)
    Run("makecab " & $var)
EndIf
EndFunc

Func max()
$var = FileOpenDialog("กรุณาเลือกไฟล์ที่ต้องการคลาย","\", "All (*.*)", 1 + 4 )

If @error Then
    Eixt()
Else
    $var = StringReplace($var, "|", @CRLF)
    Run("expand -r " & $var)
EndIf
EndFunc

Func Eixt()
    MsgBox(4096,"Exit","คุณต้องการออก")
   Exit
EndFunc