[编程实例]vbs脚本移动桌面上的m.vbs d.vbs到d盘特定目录中

 

2. ' 移动桌面上的m.vbs d.vbs到d盘secDev/SysDev/scriptDev/vbscode中
5. Dim fso,file,name1,name2
7. name1="m.vbs"
8. name2="d.vbs"
10. dest="d://secDev//SysDev//scriptDev//vbscode//"
11. Set WshShell = Wscript.CreateObject("Wscript.Shell")
12. strDesktop  = WshShell.SpecialFolders("Desktop")
14. Set fso=CreateObject("Scripting.FileSystemObject") 
15. Set fld=fso.GetFolder(strDesktop)
16. For Each file In fld.Files
17. name=fso.GetFileName(file)
18. If name=name1 Or name=name2 Then 
19. fso.MoveFile file,dest&name
20. End If
21. Next