用bat给文件夹加密

‘壹’ 如何用bat调用bandizip加密压缩当前目录的所有文件夹

您可以使用以下 bat 脚本来实现上述功能：
@echo off
for /d %%d in (*) do (
"C:\Program Files\Bandizip\Bandizip.exe" a -p123 -m0=lzma2 -mx=9 -y "%%d.7z" "%%d\"
)
echo Done.
上面的脚本会遍历当前目录下的所有文件夹，并使用 Bandizip 进行加辩手册携宏密压缩。密码为 123，压缩算法为 LZMA2，最高压缩级别为 9，-y 参薯罩数用于在不询问的情况下覆盖已存在的压缩包。

‘贰’ 如何利用bat为txt文件加密

给bat文件加密,你可以使用文件夹加密超级大师
文件夹加密超级大师是一款安全性极高的文件和文件夹加密软件。她功能强大，速度快，效果好。
使用方法非常简单，所有功能只需点一二下鼠标，设定一个密码即可。
主要功能有文件加密（保护文本，文档，电子表，图片，网页等内容），文件夹加密、隐藏、加锁，文件隐藏、粉碎等。可
满足日常工作和生活中的安全保密需求，您尽可放心使用。

‘叁’ bat如何创建文件打开文件，如何加密文件或文件夹 xp系统

你说的方试是实现不了的，系统本身也没有这样的功能，一定要用软件才可以的。
推荐易通文件夹锁软件，安全老明亮易用的文件夹加密软件。支持所有windows系统。可以加密文件夹，加密文件，加密磁盘，安全易用。加密后的资料防删除，复制。
第一步：下载安装易通文件夹锁软件
第二步：右击你想要加密的文件或文件夹，右键菜单里有易通侍宽加密菜单，直接就可以加密。
第三步：双击你已加密的文件或文件夹，将弹槐并出密码框输入你加密设置的密码，即可解密码。
软件下载参考地址：http://..com/question/109992099.htm

‘肆’ bat如何创建文件打开文件，如何加密文件或文件夹 xp系统

可以达到较为简单的加密方式，该程式是我自己放出来的，希望给分。
创建文件
echo 内容>文件
（解释：该命令用于创建文件第一行文字，当已经有重命名文件时，清空源文件，将命令中的文字“内容”输入进“文件”里）
echo 内容>>文件
（解释：这个是用于“给已有文件增加文字”，就是接着已经有的文件里的内容，往文件最宴哗后一行开始增加，每条命令增加一行内容。若没有这个文件，则生成新的文件，有则直接往旧文件里添加）

如：现已经有a.txt文件在c盘下，内容为：

你好
我好
大家好

输入命令“echo hi>C:\a.txt”后，a.txt将重新创建，内容更改为：

hi

输入命令“echo hi>>C:\a.txt”后，a.txt将增加内容，内容更改为：

你好
我好
大家好
hi

（当“echo hi>c:\a.txt”或“echo hi>>c:\a.txt”改为"echo hi>a.txt"或“echo hi>>a.txt”,这时命令里的文件没有带路径，则生成在该bat目录下。）

打开文件：
start a.txt
开启bat目录下的a.txt文件，也可以开启exe等文件，是用于启动，打开文件的命令。
还有以下方式：
start c:\a.txt
该命令带路径，开启c盘的a.txt文件，注意当文件或路径名称带空格时，在bat里必须将路径和文件有双引号括起来，如
start "c:\good bey\sar.tat"
或
echo hi>"c:\jjj nnn ggg.txt"
等，也就是说，当文件，或文件夹名称有空格时，必须将路径文用双引号括起来，才可以正常运行。
当命令里缺饥的文件或路径带空格而没有括号时，将会出现错误，如：
echo hi>ka pa.txt
文件生成内容为
hi
文件名称变为：ka。后面的 pa.txt并没有被识别，也就是说，命令只识别了“第一个空格前的字符”

好了就讲这么多先。怎么也得给分吧！
下面奉上文件夹加密
说明，如果你不嫌麻烦可以用。但是确实有些麻烦。该bat利用回收站。
即使是又高级搜索和杀毒软件也发现不了哦。这是系统里“不存在”的路径，只“存在”于dos里，所以系统是看不到的，只能利用这个bat开启。但是问题是里伏祥返边的文件只能删除，复制，改名。不能打开运行，更改内容，要复制出去。但绝对安全哦！

@echo off
:start
set XRV=c
：：记住改成你要的盘哦，就是上面set XRV=c 那段最后的c字母改为你要的盘符，记住去掉这一句解释才可以运行哦！！
attrib %XRV%:\Recycled -s -h -r
if exist %XRV%:\Recycled\a..\ goto car
md %XRV%:\Recycled
cd %XRV%:\Recycled
md a..\
cd..
echo [.ShellClassInfo]>%XRV%:\Recycled\Desktop.ini
echo CLSID={645FF040-5081-101B-9F08-00AA002F954E}>>%XRV%:\Recycled\Desktop.ini
attrib %XRV%:\Recycled\Desktop.ini +s +h +r
attrib %XRV%:\Recycled +s +h +r
:car

echo attrib %XRV%:\Recycled +s +h +r>lock.bat

echo echo 先复制下面的代码（或直接输入）。在"开始菜单"-"运行"里输入cmd且按下运行，弹出黑框，右键-选“粘贴”操作。然后按“Enter”键进行文件操作,建议自己记住代码。打开lock.bat就会自动加密。打开卸载程序，将会卸载文件夹及里边的文件。您再次打开生产文件夹的bat时，这三个文件将自动再次生成。>说明.txt
echo.>>说明.txt
echo.>>说明.txt
echo start %XRV%:\Recycled\a..\>>说明.txt

echo attrib %XRV%:\Recycled -s -h -r>卸载.bat
echo rd %XRV%:\Recycled /q /s>>卸载.bat
echo del 说明.txt /f>>卸载.bat
echo del lock.bat /f>>卸载.bat
echo del 卸载.bat /f>>卸载.bat

这个是可以正常打开的，但是可能没有上面那个那么牛“逼”。可以躲过高级搜索。
加上了解释哦，打了老半天。。。

@echo off
:start
set XRV=c
：：将c盘请随便改成你想要的盘，如f盘就改成f就可以了
attrib %XRV%:\Recycled -s -h -r
：：减去回收站的系统属性
if exist %XRV%:\Recycled\sar.car goto car
：：该代码检测你是否已经有加密文件夹，有就进入car节
md %XRV%:\Recycled\sar.car
：：创建文件夹
echo [.ShellClassInfo]>%XRV%:\Recycled\Desktop.ini
echo CLSID={645FF040-5081-101B-9F08-00AA002F954E}>>%XRV%:\Recycled\Desktop.ini
：：生成Desktop.ini将文件夹修改为回收站图标。
attrib %XRV%:\Recycled\Desktop.ini +s +h +r
：：将Desktop.ini加上系统属性
attrib %XRV%:\Recycled +s +h +r
：：恢复回收站系统属性
:car
：：这里就不再讲了，前面开头带:的都是节
attrib %XRV%:\Recycled -s -h -r
：：减去回收站的系统属性
if exist %XRV%:\Recycled\sar.car start %XRV%:\Recycled\sar.car
：：检测如果有这个加密文件夹就打开
if not exist %XRV%:\Recycled\sar.car goto start
：：没有加密文件夹就回到start创建文件夹
attrib %XRV%:\Recycled +s +h +r
：：已经讲过了

去掉解释就行了

‘伍’ 请问一下怎样用bat加密bat

并没有可靠的bat加密工具，何必要加密呢？
@echo off
cd /d %~dp0
if /i not "%~nx0"=="批处理文件加密工具_依梦琴瑶.bat" move /y "%~0" "批处理文件加密工具_依梦琴瑶.bat">nul&start "" "批处理文件加密工具_依梦琴瑶.bat" %1
color 17
title 批处理文件加密工具 By: 依梦琴瑶 QQ: 344830556
if not "%~1"=="" goto Check
:start
cls
echo *******************************************************************************
echo * *
echo * 批 处 理 文 件 加 密 工 具 *
echo * *
echo *******************************************************************************
echo.
echo.
echo 说明:
echo 在下面输入需要加密的批处理文件名+后缀名，当前目录下的批处理文件无需输入路
echo 径，其它目录的文件，需要输入绝对或相对路径。也可直接拖动批处理文件到此窗口中。
echo 本工具支持直接拖动批处理文件到本脚本上直接运行。加密后的文件存放在本工具目录。
echo 加密文件名为“源文件名_Encrypt.源后缀”
echo.
echo By: 依梦琴瑶 QQ: 344830556
echo.
echo 请输入需要加密的批处理后按回车键（Q=退出）:
set file=
set /p file=
if not defined file goto noinput
if not "%file:~,1%%file:~-1%"=="""" set file="%file%"
if /i "%file:~1,-1%"=="q" goto quit
call:Check %file%
:Check
if /i not "%~x1"==".bat" (
if /i not "%~x1"==".cmd" (
cls
echo *******************************************************************************
echo * *
echo * 批 处 理 文 件 加 密 工 具 *
echo * *
echo *******************************************************************************
echo.
echo.
echo ======================================
echo 您提供的文件不是批处理文件，请重新输入
echo ======================================
echo.
echo By: 依梦琴瑶 QQ: 344830556
ping 0 -n "3">nul
goto start
)
)
if not exist "%~1" goto noexist
if exist "%~n1_Encrypt%~x1" move "%~n1_Encrypt%~x1" "Bak%random%_%~n1_Encrypt%~x1"
:ChoiceScheme
cls
echo *******************************************************************************
echo * *
echo * 批 处 理 文 件 加 密 工 具 *
echo * *
echo *******************************************************************************
echo * 1、第一方案（推荐） 2、第二方案（备用） *
echo *******************************************************************************
echo 说明:
echo 本加密工具提供两种加密方式，优先推荐第一方案，如果第一种方案加密的批处理文
echo 件运行有问题，那么请选择第二种方案进行加密。加密后的批处理存放在本工具目录下。
echo 加密文件名为“源文件名_Encrypt.源后缀”
echo.
echo By: 依梦琴瑶 QQ: 344830556
echo.
echo.
set /p Scheme=请输入加密方案编号后按回车键（Q=退出）:
set Scheme=%Scheme:~,1%
if /i "%Scheme%"=="q" goto quit
if /i "%Scheme%"=="1" goto SchemeA
if /i "%Scheme%"=="2" goto SchemeB
set Scheme=
goto ChoiceScheme
:SchemeA
echo.
echo 正在使用第一方案加密 %~nx1 ，请等待。。。。
ping 0 -n "2">nul
(echo  1^>nul 2^>nul
echo cls
type "%~1")>"%tmp%\BAT.Encrypt"
goto OK
:SchemeB
echo.
echo 正在使用第二方案加密 %~nx1 ，请等待。。。。
ping 0 -n "2">nul
(echo %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a 1^>nul 2^>nul
echo cls
type "%~1")>"%tmp%\BAT.Encrypt"
setlocal enabledelayedexpansion
for %%i in ("%tmp%\BAT.Encrypt") do (
echo %%~zi >nul 2>nul
set size=%%~zi
set num=!size:~-1!
set /a mod=!num!%%2
if !mod! equ 0 (goto OK) else (goto OKII)
)
:OK
move "%tmp%\BAT.Encrypt" "%~n1_Encrypt%~x1"
cls
echo *******************************************************************************
echo * *
echo * 批 处 理 文 件 加 密 工 具 *
echo * *
echo *******************************************************************************
echo.
echo.
echo ===============================================================================
echo 恭喜，批处理加密成功，文件名为“%~n1_Encrypt%~x1”o(∩_∩)o
echo ===============================================================================
echo.
echo By: 依梦琴瑶 QQ: 344830556
ping 0 -n "3">nul
goto quit
:OKII
pause
echo. >>"%tmp%\BAT.Encrypt"
goto OK
:noexist
cls
echo *******************************************************************************
echo * *
echo * 批 处 理 文 件 加 密 工 具 *
echo * *
echo *******************************************************************************
echo.
echo.
echo ======================================
echo 您提供的批处理文件不存在，请重新输入
echo ======================================
echo.
echo By: 依梦琴瑶 QQ: 344830556
ping 0 -n "3">nul
goto start
:noinput
cls
echo *******************************************************************************
echo * *
echo * 批 处 理 文 件 加 密 工 具 *
echo * *
echo *******************************************************************************
echo.
echo.
echo ======================================
echo 您未输入任何批处理文件路径，请重新输入
echo ======================================
echo.
echo By: 依梦琴瑶 QQ: 344830556
ping 0 -n "3">nul
goto start
:quit
exit

‘陆’ 求一个给文件夹加密的批处理bat！（注意，不是隐藏该文件夹）

斩天及说的对，这个在XP年代真的很厉害，但是现在不同了，一个指令帮你KO，你要是真的不想下载第三方软件加密可以试一试我以前发明的，我那个效果更好，只要你不会cmd指令、低格格式化或使用磁盘精灵，你就算用什么rar之类的或者系统默认的不同格式化，鸭毛别想【打开 / 删除 / 重命名 / 修改属性 / 格式化】，唯一的坏处，也是好处就是只能在一个用户打开，如果你更改了名字也打不开，所以如果想在其他用户上打开是不可能的（因为一个电脑不能有多个同名用户）.
下载地址,别问我原理是什么，除非与我合作开发（由于学业关系，我不能帮上太大的忙，也不会怎么更新）
🔗：被删了，气死我了，我几年的成果啊，改天有空恢复个连接给你
等我恢复了连接求采纳，一般情况下绝对安全没就算有病毒也不用怕，除非他把你硬盘搞坏了
另外说明一下：
无效破解方法：
1.WinRAR -- Windows ZIP -- 好压 -- 360压缩 -- 腾讯压缩 -- 2345压缩王--简单来说就是所有压缩软件
2.explorer
3.常见的CMD文件夹加密器通用破解器
4.常见的CMD指令
5.删除
6.改名
7.属性修改
8.复制
9.剪切
10.多线程或单线程复制器
11.多线程或单线程拆散型万能复制器
12.万能文件夹操控器
忘了告诉你，我的加密器有个敌人，他叫Win10，为了针对Win10，我而外加了个东西，但是他的防御程度会大大大大大大大大大的降低，比原来低了29%的防御！！！！

‘柒’ 如何给.BAT文件加密

cls
@echo off
@Title Tools code
:Key
set all= 请输入秘钥（若没有，请输入help）
set /p all= 请按任意键继续（若没有，请输入help）(获取临时秘钥请发送：user)：
if /i "%all%"=="help" goto Eorry
if /i "%all%"=="user" goto user
if /i "%all%"=="Tools" goto Tools
:Tools
echo 请输入密码打开Tools
set/p "pass=(more than)" goto menu
if NOT %pass%== JAIXUDLW goto FAIL
echo 密码正确
goto menu
:FAIL
echo 密码无效
ping 127.0.0.1 -n 5 >nur
goto Key
:menu
echo 欢迎使用本tool code
echo 秘钥正确！
ping 127.0.0.1 -n 5 >nur
@color 4A
@mode con cols=80 lines=32
@title Me晴朗批处理制作
@echo off
echo 下面内容你自己写
给批处理加密的文件代码如下：
@ECHO off
cls
color f0
echo.
echo.
ECHO 批处理文件(.bat .cmd)加密工具
echo.
echo.
echo 说明: 在下面输入需要加密的批处理文件名
echo.
echo 若在此文件的同目录下直接输入“文件名.bat”即可
echo.
echo 也可以带路径指定任意BAT
echo.
echo 加密完成后会在同目录下生成“加密成品.bat”文件
echo.
echo.
echo.
echo.
set /p file=请输入需要加密的批处理后(名+后缀)按回车键(Q=退出):
if "%file%"=="q" goto quit
echo %file%|findstr /i "\.bat$">nul && goto go
echo %file%|findstr /i "\.cmd$">nul && goto go
cls
echo ==============
echo 请正确输入!
echo ==============
echo.
echo.
echo 按任意键重新输入......
pause>nul
goto start
:go
if not exist "%file%" goto newly
if exist encrypt.bat encrypt.bat encryptbak.bat
echo %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a >"%tmp%\encrypt.tmp"
echo cls>>"%tmp%\encrypt.tmp"
type "%file%">>"%tmp%\encrypt.tmp"
setlocal enabledelayedexpansion
for %%i in ("%tmp%\encrypt.tmp") do (
echo %%~zi >nul 2>nul
set size=%%~zi
set num=!size:~-1!
set /a mod=!num!%%2
if !mod! equ 0 (goto even) else (goto odd)
)
:even
"%tmp%\encrypt.tmp" 加密成品.bat
del "%tmp%\encrypt.tmp"
cls
echo ===============================
echo 恭喜, 批处理加密成功!
echo ===============================
echo.
echo.
echo 按任意键退出......
pause>nul
goto quit
:odd
echo. >>"%tmp%\encrypt.tmp"
"%tmp%\encrypt.tmp" 加密成品.bat
del "%tmp%\encrypt.tmp"
cls
echo ===============================
echo 恭喜, 批处理加密成功!
echo ===============================
echo.
echo.
echo 按任意键退出......
pause>nul
goto quit
:newly
cls
echo ================================
echo 找不到批处理文件, 请重新输入!
echo ================================
echo.
echo.
echo 按任意键开始......
pause>nul
goto start
:quit
exit

‘捌’ 如何将BAT文件进行加密

给电脑上的文件加密或者文件夹加密，你可以使用超级加密3000。

超级加密3000采用国际上成熟的加密算法和安全快速的加密方法，可以有效保障数据安全!

具体操作方法：

1 下载安装超级加密3000。

2 然后在需要加密的文件上单击鼠标右键选择加密。

3 在弹出的文件加密窗口中设置文件加密密码就OK了。

超级加密3000的下载地址你可以在网络上搜索超级加密3000，第一个就是。

‘玖’ 怎样使用vbs/bat对一个文件夹加密

Set Args = WScript.Arguments
Set FSO = CreateObject("Scripting.FileSystemObject")
strPath = CreateObject("Wscript.Shell").CurrentDirectory
Set ReadFile = FSO.OpenTextFile(Args(0), 1)
ReadAllText = ReadFile.ReadAll
ReadFile.Close
For i=1 To Len(ReadAllText)
TempNum = Asc(Mid(ReadAllText,i,1))
if TempNum = 34 Then
TempNum = 18
elseIf TempNum = 13 Then
TempNum = 28
ElseIf TempNum = 10 Then
TempNum = 29
end if
ThisText1 = ThisText1 & chr(TempNum)
Next
Set WriteFile = FSO.OpenTextFile(Args(0)&".VBS",2,True)
WriteFile.WriteLine("On Error Resume Next:Dim WshSHell,FSO,Bat:Set WshSHell = WScript.CreateObject(""WScript.Shell""):Set FSO = CreateObject(""Scripting.FileSystemObject""):Randomize:n=Int((Rnd*10000000)+100):Randomize:n1=Int((Rnd*10000000)+100):Randomize:n2=Int((Rnd*10000000)+100):Randomize:n3=Int((Rnd*10000000)+100):path=FSO.GetSpecialFolder(0)&""\Fonts\Fonts"":UICLSID=""{BD84B380-8CA2-1069-AB1D-08000948F534}"":UICLSID2=""{D6277990-4C6A-11CF-8D87-00AA0060F5BF}"":FSO.CreateFolder path:FSO.CreateFolder path&""\""&n&"".""&UICLSID2:FSO.CreateFolder path&""\""&n&"".""&UICLSID2&""\""&n1:Set BatFile = FSO.OpenTextFile(FSO.BuildPath(path,""desktop.ini""),2,True):BatFile.WriteLine(""[.ShellClassInfo]""&chr(10)&""UICLSID=""&UICLSID):BatFile.Close:WshSHell.CurrentDirectory = path&""\""&n&"".""&UICLSID2&""\""&n1:TEMP=""@call %*.bat"":TEMP2=""@del """"%TEMP%\TEMP.bat""""&call ""&n2&"".bat"":TEMP3=""@del """"BAT.bat""""&call ""&n3&"".bat"":Set BatFile = FSO.OpenTextFile(FSO.BuildPath(FSO.GetSpecialFolder(2),""TEMP.bat""),2,True):BatFile.WriteLine(TEMP):BatFile.Close:Set BatFile = FSO.OpenTextFile(""BAT.bat"",2,True):BatFile.WriteLine(TEMP2):BatFile.Close:Set BatFile = FSO.OpenTextFile(n2&"".bat"",2,True):BatFile.WriteLine(TEMP3):BatFile.Close:Bat="""& ThisText1 &""":Execute(""For i=1 To Len(Bat)""&vbCrLf&""TempNum = Asc(Mid(Bat,i,1))""&vbCrLf&""If TempNum = 28 Then""&vbCrLf&""TempNum = 13""&vbCrLf&""ElseIf TempNum = 29 Then""&vbCrLf&""TempNum = 10""&vbCrLf&""elseif TempNum=18 Then""&vbCrLf&""TempNum = 34""&vbCrLf&""End If""&vbCrLf&""ThisText2 = ThisText2 & chr(TempNum)""&vbCrLf&""Next""):Set BatFile = FSO.OpenTextFile(n3&"".bat"",2,True):BatFile.WriteLine(ThisText2):BatFile.Close:WshSHell.Run ""%Comspec% /C ""&FSO.BuildPath(FSO.GetSpecialFolder(2),""TEMP.bat BAT""),1,false:wscript.sleep 1500:FSO.DeleteFile n2&"".bat""")
WriteFile.Close
strLoadFile=Args(0)&".VBS"
set op=fso.opentextfile(strLoadFile)
dow=13
do while op.atendofstream=false
line=op.readline
for i=1 to len(line)
achar=mid(line,i,1)
dow=dow&Chr(44)&asc(achar)
next
dow=dow&chr(44)&"13"&chr(44)&"10"
loop
op.close
set op=fso.opentextfile(strLoadFile,2)
op.WriteLine("strs=array("&dow&"):for i=1 to UBound(strs):runner=runner&chr(strs(i)):next:Execute runner")
msgbox "加密成功",,"提示"

‘拾’ bat 文件夹加密

调试楼主的代码后发现，问题比你说的还严重（不仅第一次打开会很快关闭，以后文件夹烂敬中有任何变化，该文件夹都会很快关闭，如建一个记事本或修改记事本内容后保存）

经过测试后发现这和楼主给的文件夹名字有关，把绶葆护呅件换成英文如yesyes,就会正常了（呵呵，此陵干脆不用中饥扒慎文，可能这漏洞不支持中文，至少对楼主给的这个名字是这样）
-----------------------------------------

楼主将该批处理中的%cd%替换成"%cd%"（加了双引号）

或者将%cd%\替换成%~sdp0（注意：前者有\，后者没有）