vbs创建文件夹

dim pathname,filename,fso,read,str,filepath

set fso=createobject("scripting.filesystemobject")

pathname="path.txt"

str="ShutdownScript\remotecomputer.txt"

if fso.fileexists(pathname)=true then                  '先来判断它是一个有效的路径+文件,如果成立,以下均按正常程序执行

 read=fso.opentextfile(pathname).readall               '读取全文

 for each i in split(read,vbcrlf)                    '遍历全文每行的内容

   if instr(right(i,1),"\")=0 then filename=i&"\"&str else filename=i&str    '在执行下面代码之前先进行格式化处理文本

   filepath=left(filename,instrrev(filename,"\"))            '分离路径

   if fso.folderexists(filepath)=false then fso.createfolder filepath       '如果路径存在则创建文件夹

   if fso.fileexists(filename)=false then fso.createtextfile(filename).write "test"  '如果文件存在则创建文件写入test

 next

end if

如果是xp，且你文件夹所在的分区是ntfs格式，那么可通过用户安全设置来达到加密文件夹的效果

方法1：“加密内容保护数据”

属性——常规——高级——d出对话框如图，勾选“加密内容以便保护数据”

xp系统将“seven”文件夹的名字变成了绿色的

如果你启用来宾用户或其他用户，那么他们看不到这个文件夹中的内容，达到了加密的目的。

2、利用用户权限（ntfs格式下）

文件夹选项中“使用简单文件共享（推荐）”这一项默认是勾选的，

但默认设置阻碍了我们看到文件夹属性——“安全”这一选项。……“安全”选项可选后，我们可以给用户分配权限了

分配权限是要注意，别把自己也关在门外了！……

设置成功后系统可以拒绝其他人访问该文件夹

---