VBS运行错误修复.doc

《VBS运行错误修复.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、本帖最后由we似曾相识于2011-3-921:45编辑//=====================(1)创建文件夹1.Dimfso,f2.'如果指定的文件夹已经存在，则会出现错误。3.Setfso=CreateObject("Scripting.FileSystemObject")4.Setf=fso.CreateFolder("c:NewFolder")复制代码(2)删除文件夹1.Dimfso,filespec2.filespec="D:电影"'要删除的文件夹路径3.Setfso=CreateObject("Scripting.FileSyste

2、mObject")4.fso.DeleteFolder(filespec)5.'若删除只读文件夹则将上一行改为fso.DeleteFolder(filespec,true)复制代码(3)判断文件夹是否存在1.Dimfso,msg,tt2.Setfso=CreateObject("Scripting.FileSystemObject")3.fldr="C:DocumentsandSettings"'文件夹路径和名字4.tt=fso.FolderExists(fldr)'存在返回true;不存在返回false5.Iftt=trueThen6.msg=fldr&"存在。"7.Else

3、8.msg=fldr&"不存在。"9.EndIf10.Msgboxmsg复制代码(4)获取指定目录下所有文件的文件名(不包含文件夹名)1.Dima2.a="D:文件夹1"    '目标文件夹完整路径3.MsgboxShowFolderList(a)4.FunctionShowFolderList(folderspec)5.  Dimfso,f,f1,fc,s  '定义变量6.  Setfso=CreateObject("Scripting.FileSystemObject")'创建对象7.  Setf=fso.GetFolder(folderspec)  '得到文件夹下fold

4、er对象8.  Setfc=f.Files9.  ForEachf1infc  '查找所有符合条件的文件名10.      s=s&f1.name11.      s=s&vbcrlf  '得到结果并换行12.  Next13.  ShowFolderList=s14.EndFunction复制代码(5)分离路径中的文件名(不带扩展名)1.MsgboxGetTheBase("C:tt.txt")  'GetTheBase返回值tt2.FunctionGetTheBase(filespec)3.  Dimfso4.  Setfso=CreateObject("Scripting.

5、FileSystemObject")5.  GetTheBase=fso.GetBaseName(filespec)6.EndFunction复制代码//=====================(1)创建文件1.Dimfso,MyFile2.Setfso=CreateObject("Scripting.FileSystemObject")3.SetMyFile=fso.CreateTextFile("c:123.txt",True)'true则可以覆盖已有的同名文件4.Msgbox"这是一个测试"5.MyFile.Close  'close是必要的,不

6、要省复制代码(2)删除文件1.Dimfso,filespec2.filespec="C:123.txt"'要删除的文件3.'设置成"C:*.doc"则删除C目录下所有.doc扩展名的文档(但不会删除其子文件夹下.doc文档)4.Setfso=CreateObject("Scripting.FileSystemObject")5.fso.DeleteFile(filespec)6.'若删除只读文件则将上一行改为fso.DeleteFile(filespec,true)复制代码(3)判断文件是否存在1.Dimfso,msg,tt2.Setfso=CreateObject("Scr

7、ipting.FileSystemObject")3.fle="C:123.txt"'文件的完整路径4.tt=fso.FileExists(fle)'存在返回true;不存在返回false5.Iftt=trueThen6.msg=fle&"存在。"7.Else8.msg=fle&"不存在。"9.EndIf10.Msgboxmsg复制代码(4)创建快捷方式的例子1.2.'用CreateObject的方法开启WshShell3.SetWshShell=CreateObject("W