Rar New 1v4p6e

@echo off title Zenith Retriever copy "C:\Program Files\WinRAR\Unrar.exe" SET =0 SET TMP=Temp MD %TMP% :RAR cls echo. SET/P "NAME=Nama File : " IF "%NAME%"=="" goto ProblemDetected goto GPATH :ProblemDetected echo Tidak Bisa Dikosongkan !. pause goto RAR :GPATH SET/P "PATH=Masukkan Lokasi File (contoh C:\s\\Desktop) : " IF "%PATH%"=="" goto PERROR goto NEXT :PERROR echo Tidak Bisa Dikosongkan !. pause goto RAR :NEXT IF EXIST "%PATH%\%NAME%" GOTO SP goto PATH :PATH cls echo File tidak ditemukan. Pastikan sudah berisi ekstensi (.rar) diakhir nama file. pause goto RAR :SP echo. echo Mendapatkan ... echo. :START title Memproses... SET /A =%%+1 UNRAR E -INUL -P%% "%PATH%\%NAME%" "%TMP%" IF /I %ERRORLEVEL% EQU 0 GOTO FINISH GOTO START :FINISH RD %TMP% /Q /S Del "Unrar.exe" cls title 1 Ditemukan ! echo. echo File = %NAME% echo = %% echo. echo Tekan apapun untuk keluar. pause>NUL exit zenith-retriever.txt Menampilkan zenith-retriever.txt.