免费视频淫片aa毛片_日韩高清在线亚洲专区vr_日韩大片免费观看视频播放_亚洲欧美国产精品完整版

@echo off & setlocal EnableDelayedExpansion
:start
cls
echo  ===============================================================
echo                             說  明
echo     使用此批處理可以創(chuàng)建特殊文件夾,使文件夾通過常規(guī)的方法無法
echo   瀏覽、刪除；以實現(xiàn)簡單加密及防止重要資料誤刪除。
echo   使用方法：
echo      1.直接拖動文件夾到該批處理文件圖標上。實現(xiàn)加密、刪除及瀏覽
echo      2.運行該批處理,根據(jù)菜單選擇操作.
echo      3.將批處理添加到"發(fā)送到"菜單,直接在文件夾點右鍵"發(fā)送到"實
echo    現(xiàn)操作
echo.    
echo     文件名:encrypt.exe                            0oAdaio0
echo     E-mail:zhllangzi@163.com                     2010/05/13
echo  ===============================================================
echo.
set dir1=%~1
if "%dir1%"=="" goto menu
if "%dir1:~-1%"=="." goto 2
cd /d %dir1%
if errorlevel 1 goto 3
cd..
call :getdir
echo 正在加密"%dirname%"文件夾...
ren "%dir1%" "%dirname%../"
echo 操作完成,按任意鍵退出...
pause >nul
goto end
:2
echo      1.瀏覽"%dir1%"文件夾
echo.
echo      2.刪除"%dir1%"文件夾
echo.
echo      3.解密"%dir1%"文件夾
echo.
echo      4.退出
echo.
set ch1=
set /p ch1=請選擇:
if /i "%ch1%"=="1" goto topen
if /i "%ch1%"=="2" goto tdel
if /i "%ch1%"=="3" goto exp
if /i "%ch1%"=="4" goto end
echo 選擇錯誤！按任意鍵請重新選擇！
pause >nul
goto 2
:topen
explorer "%dir1%.\\"
goto end
:tdel
echo 正在刪除"%dir1%"文件夾
set ch2=
set /p ch2=確認刪除?[y｜n]
if /i "%ch2%"=="y" goto ydel
if /i "%ch2%"=="n" goto end
echo 選擇錯誤！按任意鍵請重新選擇！
pause >nul
goto tdel
:ydel
echo 正在刪除...
rd "%dir1%.\\" /s /q
echo 已成功刪除"%dir1%"文件夾,按任意鍵退出.
pause >nul
goto end
:exp
echo 正在解密...
call :getdir
if exist "%temp%\\~temp.txt" del "%temp%\\~temp.txt"
dir "%dir2%" /x | find /i "%dirname%" >"%temp%\\~temp.txt"
for /f "tokens=4 delims= " %%i in (%temp%\\~temp.txt) do (
ren "%dir2%%%i" "%dirname:~0,-1%"
)
del "%temp%\\~temp.txt"
echo 已完成！按任意鍵退出！
pause >nul
goto end
:3
echo 出錯！"%dir1%"不是有效的文件夾.
echo 按任意鍵退出！
pause >nul
goto end
:menu
echo          1.創(chuàng)建加密文件夾
echo.
echo          2.瀏覽文件夾
echo.
echo          3.刪除文件夾
echo.
if not exist "%userprofile%\\sendto\\加密文件夾.exe" (
echo          4.添加到"發(fā)送到"菜單
) else (
echo          4.從"發(fā)送到"菜單刪除
)
echo.
echo          5.退出
echo.
set ch3=
set /p ch3=請選擇:
if /i "%ch3%"=="1" goto crt
if /i "%ch3%"=="2" goto topn
if /i "%ch3%"=="3" goto 2del
if /i "%ch3%"=="4" goto sdt
if /i "%ch3%"=="5" goto end
echo 選擇錯誤！按任意鍵請重新選擇！
pause >nul
goto menu
:crt
call :getname
echo 正在創(chuàng)建"%dirnm%"文件夾...
md "%dirnm%"..\\
echo 創(chuàng)建成功.
:isop
set isopen=
set /p isopen=是否現(xiàn)在打開(1.打開,2.返回,3.退出):
if /i "%isopen%"=="1" (
set dir1=%dirnm%.
goto topen
)
if /i "%isopen%"=="2" goto start
if /i "%isopen%"=="3" goto end
echo 選擇錯誤！按任意鍵請重新選擇！
pause >nul
goto isop
:topn
call :getname
set dir1=%dirnm%
goto topen
:2del
call :getname
set dir1=%dirnm%
goto ydel
:sdt
if not exist "%userprofile%\\sendto\\加密文件夾.exe" (
echo 正在向"發(fā)送到"菜單添加"加密文件夾.exe"項...
copy encrypt.exe "%userprofile%\\sendto\\加密文件夾.exe"
echo 添加成功！按任意鍵返回！
pause >nul
goto start
) else (
echo 正在從"發(fā)送到"菜單刪除"加密文件夾.exe"項...
del "%userprofile%\\sendto\\加密文件夾.exe" /a /f /q
echo 已經(jīng)刪除！按任意鍵返回！
pause >nul
goto start
)
:getname
set dirnm=
set /p dirnm=請輸入文件夾名稱:
if "%dirnm%"=="" goto getname
goto :EOF
:getdir
for %%i in ("%dir1%") do set dir2=%%~dpi
set dirname=!dir1:%dir2%=!
set dirname=%dirname:\\=%
goto :EOF
:end