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

新建一个文本文件……

把脚仔迅本文件内的内容拷贝进去保存……然后保存类型为".vbs"即可……

如果给你做梁写的这个脚本文件就是用的文本写的……那就直念胡此接把文本的后缀名改为".vbs"即可……

如何显示后缀名呢？

在资源管理器中->工具->文件夹选项->查看->

Sub locCreateResultFolder()

Dim fso

Dim i,vPath

Set fso = CreateObject("Scripting.FileSystemObject")

vPath = "C:\Program Files\personal\"

fso.CreateFolder "C:\Program Files\personal\"

fso.CreateFolder "C:\Program Files\personal\testFolder"

for i=0 to 100

If Not fso.folderexists(vPath&"testFolder\"&i) Then

fso.CreateFolder(vPath&"testFolder\"&i)

End If

next

End Sub

call locCreateResultFolder

'createfolder方法在行谨创建目录时，上层目录必须存在。

'者贺例如创建 c:\1\2，如果c盘下没有目录1，那首带派么就会出错（不创建目录2）。

---