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

最新推荐文章于 2022-12-13 11:31:00 发布

水墨风光

最新推荐文章于 2022-12-13 11:31:00 发布

阅读量979

点赞数

分类专栏： Codes 文章标签：脚本编程 file

本文链接：https://blog.csdn.net/shile/article/details/2974910

版权

Codes 专栏收录该内容

25 篇文章 0 订阅

订阅专栏

 
 
' 移动桌面上的m.vbs d.vbs到d盘secDev/SysDev/scriptDev/vbscode中 
Dim fso,file,name1,name2
name1="m.vbs"
name2="d.vbs"
dest="d://secDev//SysDev//scriptDev//vbscode//"
Set WshShell = Wscript.CreateObject("Wscript.Shell")
strDesktop  = WshShell.SpecialFolders("Desktop")
Set fso=CreateObject("Scripting.FileSystemObject") 
Set fld=fso.GetFolder(strDesktop)
For Each file In fld.Files
name=fso.GetFileName(file)
If name=name1 Or name=name2 Then 
fso.MoveFile file,dest&name
End If
Next
 