VBS运行错误修复

1、本帖最后由 we似曾相识 于 2011-3-9 21:45 编辑 /=<VBS对文件夹操作例子>(1)创建文件夹1. Dim fso, f2. '如果指定的文件夹已经存在，则会出现错误。3. Set fso = CreateObject("Scripting.FileSystemObject")4. Set f = fso.CreateFolder("c:New Folder")复制代码(2)删除文件夹1. Dim fso,filespec2. filespec="D:电影" '要删除的文件夹路径3. Se

2、t fso = CreateObject("Scripting.FileSystemObject")4. fso.DeleteFolder(filespec)5. '若删除只读文件夹则将上一行改为fso.DeleteFolder(filespec,true)复制代码(3)判断文件夹是否存在1. Dim fso,msg,tt2. Set fso = CreateObject("Scripting.FileSystemObject")3. fldr="C:Documents and Settings" '文件夹路径和名字4

3、. tt = fso.FolderExists(fldr) '存在返回true;不存在返回false5. If tt=true Then6. msg = fldr & " 存在。"7. Else8. msg = fldr & " 不存在。"9. End If10. Msgbox msg复制代码(4)获取指定目录下所有文件的文件名(不包含文件夹名)1. Dim a2. a="D:文件夹1"     '目标文件夹完整路径3. Msgbox ShowFolderList

4、(a)4. Function ShowFolderList(folderspec)5.     Dim fso, f, f1, fc, s    '定义变量6.     Set fso = CreateObject("Scripting.FileSystemObject") '创建对象7.     Set f = fso.GetFolder(folderspec)  '得到文件夹下folder对象8.     Set fc = f.

5、Files9.     For Each f1 in fc   '查找所有符合条件的文件名10.         s = s & 11.         s = s & vbcrlf    '得到结果并换行12.     Next13.     ShowFolderList = s14. End Function复制代码(5)分离

6、路径中的文件名(不带扩展名)1. Msgbox GetTheBase("C:tt.txt")  'GetTheBase返回值tt2. Function GetTheBase(filespec)3.   Dim fso4.   Set fso = CreateObject("Scripting.FileSystemObject")5.   GetTheBase = fso.GetBaseName(filespec)6. End Function复制代码/=<VBS

7、对文件操作例子>(1)创建文件1. Dim fso, MyFile2. Set fso = CreateObject("Scripting.FileSystemObject")3. Set MyFile = fso.CreateTextFile("c:123.txt", True) 'true则可以覆盖已有的同名文件4. Msgbox "这是一个测试"5. MyFile.Close  'close是必要的,不要省复制代码(2)删除文件1. Dim fso,filespec2. filespec

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

9、ct("Scripting.FileSystemObject")3. fle="C:123.txt" '文件的完整路径4. tt = fso.FileExists(fle) '存在返回true;不存在返回false5. If tt=true Then6. msg = fle & " 存在。"7. Else8. msg = fle & " 不存在。"9. End If10. Msgbox msg复制代码(4)创建快捷方式的例子1.2. '用CreateObject的方法开启Ws

10、hShell3. Set WshShell=CreateObject("WScript.Shell")4. '制定文件夹为桌面5. strDesKtop=WshShell.SpecialFolders("DesKtop")6. '在制定文件夹创建"画笔.lnk"快捷方式7. Set oShellLink=WshShell.CreateShortcut(strDesKtop&"画图.lnk")8. '制定快捷方式指向的目标程序9. oShellLink.TargetPath="

11、;mspaint.exe"10. '制定风格11. oShellLink.WindowStyle=112. '制定热键13. oShellLink.Hotkey="CTRL+SHIFT+P"14. '制定图标15. oShellLink.IconLocation="mspaint.exe,0"16. '注释快捷方式17. oShellLink.Description="有标准VBS建立的画笔快捷方式"18. '制定工作目录19. oShellLink.WorkingDirectory=

12、strDesKtop20. '保存快捷方式21. oShellLink.Save复制代码(5)获取文件创建访问等信息1.2. Msgbox FileInfor("C:b.txt")3.   Function FileInfor(FilePath)4.   Dim fso, f, s ,a5.   Set fso = CreateObject("Scripting.FileSystemObject")6.   a=FilePath  '文件完整路径7.   Set f = fso.GetFile(a)8.   s = f.Path & vbcrlf9.   s = s & "创建时间: " & f.DateCreated & vbcrlf  10.   s = s & "访问时间: " &