想用VBS加密文件夹

我的电脑中有一些软件加密文件的方法，但是别人的软件，我不太喜欢，是要注册的，不注册以后过期文件夹都打不开了，我想用VBS加密一个新建文件夹，就像网页加密的那种那样的，谢谢了，以下是我编写的VBS代码，但打开文件夹时不会自动跳出对话框
dim a,ctr
ctr=0 '设置计数器
const pass="pas123_" '上面的那个是弱密码, 这次改的强一点
do
if ctr=3 then
msgbox("已经达到认证上限, 认证程序关闭")
exit do
else
a=inputbox("请输入密码")
if a=pass then
msgbox("认证成功")
msgbox("(你可以在这里加一段成功后得到的信息)")
exit do
else
ctr=ctr+1 '如果密码出错就增加一次错误认证计数
msgbox("认证出错, 请检查密码")
end if
end if
loop

楼上的autorun.inf不可以用,那个只适用于驱动器根目录.
LZ可以试试使用folder.htt文件,里面加上vbs代码,这样一打开文件夹就运行了.
关于folder.htt可以baidu一下.

这也是最后的办法了.
因为vbs本身对文件系统没有任何能力控制访问权限,只有在打开文件夹的 时候,自动运行其中的folder.htt来达到运行脚本的目的.

"但打开文件夹时不会自动跳出对话框" 配合“autorun.inf”

如果是xp，且你文件夹所在的分区是ntfs格式，那么可通过用户安全设置来达到加密文件夹的效果 方法1：“加密内容保护数据” 属性——常规——高级——弹出对话框如图，勾选“加密内容以便保护数据” xp系统将“seven”文件夹的名字变成了绿色的 如果你启用来宾用户或其他用户，那么他们看不到这个文件夹中的内容，达到了加密的目的。 2、利用用户权限（ntfs格式下） 文件夹选项中“使用简单文件共享（推荐）”这一项默认是勾选的， 但默认设置阻碍了我们看到文件夹属性——“安全”这一选项。……“安全”选项可选后，我们可以给用户分配权限了 分配权限是要注意，别把自己也关在门外了！…… 设置成功后系统可以拒绝其他人访问该文件夹