음악 파일 이동 - 벌꿀 바나나님

 

음악 이동.au3

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=보조파일\Gertrudis Pro.ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
_Main()
Func _Main()

    Opt("TrayMenuMode", 1)

    local $Menu[6], $Ico[6]    ; 메뉴 총 갯수 0~5 (종료까지 포함)..
    MsgBox(64, "음악 파일 이동", "Tray 에서 실행 됍니다", 1)

    ; 메세지박스의 보이는시간을 늘리려면 ,1 을 수정(초단위)

    ; Menu Item Make 트레이에 나타나는 메뉴
    $Menu[0] = TrayCreateMenu("음악 파일 이동")
    $Menu[1] = TrayCreateItem("MP3 이동",$Menu[0])  ;[0] 번의 서브 메뉴 입니다..
    $Menu[2] = TrayCreateItem("flac 이동",$Menu[0])
    $Menu[3] = TrayCreateItem("mid 이동",$Menu[0])
    $Menu[4] = TrayCreateItem("MP3 복사후 모두 삭제")  ; TrayCreateItem 클릭시 실행 됍니다(Run)..
    TrayCreateItem("")
    $Menu[5] = TrayCreateItem("종료")

    ; add some icon

    ; tray menu icon add
    TraySetState()

    TraySetToolTip("음악 파일을 이동 합니다")
    ; Main Loop, Menu Process
    While 1
        $msg = TrayGetMsg()
        Select
            Case $msg = 0
                ContinueLoop
            Case $msg = $Menu[0]   ;첫번째 메뉴.
                Case $msg = $Menu[1]  ; 1, 서브메뉴
                    DirCreate(@HomeDrive & "\최신곡")   ;생성될 폴더(알아서 정하셈)..
                    DirCreate(@HomeDrive & "\최신곡\MP3")   ;생성될 폴더의 하위 폴더
                    FileMove(@HomeDrive & "\music", @HomeDrive & "\최신곡\MP3\*.mp3")
                Case $msg = $Menu[2]  ; 2, 서브메뉴
                    DirCreate(@HomeDrive & "\최신곡")
                    DirCreate(@HomeDrive & "\최신곡\flac")
                    FileMove(@HomeDrive & "\music\*.flac", @HomeDrive & "\최신곡\flac\*.flac")
                Case $msg = $Menu[3]  ; 3, 서브메뉴
                   DirCreate(@HomeDrive & "\최신곡")
                    DirCreate(@HomeDrive & "\최신곡\mid")
                   FileMove(@HomeDrive & "\music\*.mid", @HomeDrive & "\최신곡\mid\*.mid")
                Case $msg = $Menu[4]    ; 두번째 메뉴..
                   DirCreate(@HomeDrive & "\최신곡")
                    DirCreate(@HomeDrive & "\최신곡\MP3")
                    FileCopy(@HomeDrive & "\music" , @HomeDrive & "\최신곡\MP3\*.mp3")
                    Sleep(100)
                    FileDelete(@HomeDrive & "\music\*.mp3")
            Case $msg = $Menu[5]
                ; Menu "Exit" Click Process
                Exit                   ;..............종료..
        EndSelect


    WEnd

EndFunc