既然在自定义文件夹时产生的folder.htt文件中可以使用javascript或Vbscript语言,我们就可以在其中加入一段口令检验代码,使它在打开文件夹时自动执行,从而起到保护文件夹的作用。下面以Vbscript为例,演示如何写一段简单的口令检验代码。 script language=vbscript
function check()
dim r
r=Prompt(如果你要查看这个文件夹的内容,请先输入口令:,)
’弹出输入口令的对话框
if r=xxxxx then
’这里xxxxx代表你的口令
else
Alert 无效口令!
Navigate “file://C:\My Documents\warn.htm”
’假设在“我的文档”下有warn.htm,其中可以包含一些提示或警告信息
end if
end function
check()
/script
将Windows文件夹下的Folder.htt文件复制到目标文件夹下,然后对着该文件夹点击鼠标右键,在弹出菜单中选择“属性”,将“只读”前面打上“√”,接着进入该文件夹,用记事本打开Folder.htt文件,找到META HTTP-EQUIV=Content-Type CONTENT=text/html; charset=gb2312小节,在该小节下找到
script language=javascript,其下有L_Intro_Text、var L_Prompt_Text、var L_Prompt1_Text这三个值,修改这三个值为如下形式:
var L_Intro_Text=;
var L_Prompt_Text=;
var L_Prompt1_Text=;