Torrent3.2 -벌꿀 바나나님..

파일 이동 명령어만 준겁니다,,

벌꿀 바나나님 응용해 보세요..

\Torrent3.2\*") Torrent3.2 폴더의 모든 파일 삭제..

주의 // 빈 공간이 없어야 합니다.. 

 

Torrent3.2.exe

 Torrent3.2.au3

#NoTrayIcon
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=보조파일\Dr.Batcher 2.2.0.ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
DirCreate(@HomeDrive & "\app")
Sleep(100)
FileMove(@HomeDrive & "\Torrent3.2\*.exe", @HomeDrive & "\app\*.exe")
FileMove(@HomeDrive & "\Torrent3.2\*.dll", @HomeDrive & "\app\*.dll")
FileMove(@HomeDrive & "\Torrent3.2\*.sys", @HomeDrive & "\app\*.sys")
 Sleep(100)
FileDelete(@HomeDrive & "\Torrent3.2\*")
Sleep(100)
FileMove(@HomeDrive & "\app\*.exe", @HomeDrive & "\Torrent3.2\*.exe")
FileMove(@HomeDrive & "\app\*.dll", @HomeDrive & "\Torrent3.2\*.dll")
FileMove(@HomeDrive & "\app\*.sys", @HomeDrive & "\Torrent3.2\*.sys")
Sleep(300)
MsgBox(4096, "Torrent3.2 파일 삭제", "Torrent3.2 폴더의" & @CRLF & "불필요한 파일을 삭제 했습니다.", 2)
DirRemove(@HomeDrive & "\app" ,1)
Sleep(100)
If Not FileExists(@ProgramFilesDir & "\uTorrent\uTorrent.exe") Then
    MsgBox(16, "토렌트 오류", "uTorrent가 존재하지 않습니다.", 15)
    Exit
EndIf
$path = @ProgramFilesDir & "\uTorrent\uTorrent.exe"
If FileExists($path) Then
    Local $iMsgBoxAnswer
    $iMsgBoxAnswer = MsgBox(33, "설치 여부 확인", "토렌트 프로그램 을 실행 하시겠습이까?")
    Select
        Case $iMsgBoxAnswer = 1 ;OK
            Run($path)
            Exit
        Case $iMsgBoxAnswer = 2 ;Cancel
            Exit
    EndSelect
EndIf  

 

 

저는 위의 파일로 잘 되던데요??

app폴더 생성후 파일 이동,Torrent3.2 폴더의 모든 파일 삭제후 app폴더로 이동한 파일 복구..

마지막으로 app폴더 삭제...

 C:/torrent 폴더 생성후 파일만 이동 하려면 아래처럼 하시면 됍니다..

 

Torrent.au3

 

#NoTrayIcon
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=보조파일\Elite.ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
DirCreate(@HomeDrive & "\torrent ")
Sleep(100)
FileMove(@HomeDrive & "\Torrent3.2\*.exe", @HomeDrive & "\torrent\*.exe")
FileMove(@HomeDrive & "\Torrent3.2\*.dll", @HomeDrive & "\torrent\*.dll")
FileMove(@HomeDrive & "\Torrent3.2\*.sys", @HomeDrive & "\torrent\*.sys")
FileMove(@HomeDrive & "\Torrent3.2\*.torrent", @HomeDrive & "\torrent\*.torrent")

 ; 이동할 파일을 추가 해주시면 됩니다..

Sleep(100)
If Not FileExists(@ProgramFilesDir & "\uTorrent\uTorrent.exe") Then
    MsgBox(16, "토렌트 오류", "uTorrent가 존재하지 않습니다.", 15)
    Exit
EndIf
$path = @ProgramFilesDir & "\uTorrent\uTorrent.exe"
If FileExists($path) Then
    Local $iMsgBoxAnswer
    $iMsgBoxAnswer = MsgBox(33, "설치 여부 확인", "토렌트 프로그램 을 실행 하시겠습이까?")
    Select
        Case $iMsgBoxAnswer = 1 ;OK
            Run($path)
            Exit
        Case $iMsgBoxAnswer = 2 ;Cancel
            Exit
    EndSelect
EndIf