VBS运行错误修复.docVIP

本帖最后由 we似曾相识 于 2011-3-9 21:45 编辑 //=====================VBS对文件夹操作例子(1)创建文件夹 Dim fso, f 如果指定的文件夹已经存在，则会出现错误。 Set fso = CreateObject(Scripting.FileSystemObject) Set f = fso.CreateFolder(c:\New Folder) 复制代码 (2)删除文件夹 Dim fso,filespec filespec=D:\电影 要删除的文件夹路径 Set fso = CreateObject(Scripting.FileSystemObject) fso.DeleteFolder(filespec) 若删除只读文件夹则将上一行改为fso.DeleteFolder(filespec,true) 复制代码 (3)判断文件夹是否存在 Dim fso,msg,tt Set fso = CreateObject(Scripting.FileSystemObject) fldr=C:\Documents and Settings 文件夹路径和名字 tt = fso.FolderExists(fldr) 存在返回true;不存在返回false If tt=true Then msg = fldr 存在。 Else msg = fldr 不存在。 End If Msgbox msg 复制代码 (4)获取指定目录下所有文件的文件名(不包含文件夹名) Dim a a=D:\文件夹1? ???目标文件夹完整路径 Msgbox ShowFolderList(a) Function ShowFolderList(folderspec) ? ? Dim fso, f, f1, fc, s? ? 定义变量 ? ? Set fso = CreateObject(Scripting.FileSystemObject) 创建对象 ? ? Set f = fso.GetFolder(folderspec)??得到文件夹下folder对象 ? ? Set fc = f.Files ? ? For Each f1 in fc? ?查找所有符合条件的文件名 ? ?? ???s = s f1.name ? ?? ???s = s vbcrlf? ? 得到结果并换行 ? ? Next ? ? ShowFolderList = s End Function 复制代码 (5)分离路径中的文件名(不带扩展名) Msgbox GetTheBase(C:\tt.txt)??GetTheBase返回值tt Function GetTheBase(filespec) ??Dim fso ??Set fso = CreateObject(Scripting.FileSystemObject) ??GetTheBase = fso.GetBaseName(filespec) End Function 复制代码 //=====================VBS对文件操作例子(1)创建文件 Dim fso, MyFile Set fso = CreateObject(Scripting.FileSystemObject) Set MyFile = fso.CreateTextFile(c:\123.txt, True) true则可以覆盖已有的同名文件 Msgbox 这是一个测试 MyFile.Close??close是必要的,不要省 复制代码 (2)删除文件 Dim fso,filespec filespec=C:\123.txt 要删除的文件 设置成C:\*.doc则删除C目录下所有.doc扩展名的文档(但不会删除其子文件夹下.doc文档) Set fso = CreateObject(Scripting.FileSystemObject) fso.DeleteFile(filespec) 若删除只读文件则将上一行改为fso.DeleteFile(filespec,true) 复制代码 (3)判断文件是否存在 Dim fso,msg,tt Set fso = CreateObject(Scripting.FileSystemObject) fle=C:\123.txt 文件的完整路径 tt = fso.FileExists(fle) 存在返回true;不存在返回false If tt=true Then msg = fle 存在。 Else msg = fle 不存在。 End If Msgbox msg 复制代码 (4)创建快捷方式的例子 用CreateObject的方法开启WshS