VBS脚本应用-载入指定目录中的EXE和REG

作者: 来源: 时间:2007-7-11 12:19:53

‘自动运行指定目录的所有指定后缀的文件，程序中为运行EXE和导入REG注册表文件

Option EXPlicit
Dim Folder
Folder = "c:\test" '设置你要执行的文件夹
Dim Wsh,fso
Set Wsh = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Dim f,fc,f1,ext
Set f = fso.GetFolder(Folder)
Set fc = f.Files
For Each f1 in fc
ext = LCase(fso.GetExtensionName(f1))
Select Case ext
Case "exe"
'msgbox f1
wsh.run f1,,true
Case "reg"
'msgbox "Regedit /s "& f1,,true
wsh.run "Regedit /s "& f1,,true
end Select
Next

 

Set fso=NoThing
Set Wsh = Nothing
WScript.quit

·目录文件夹同步专家 V1.21
·ListCRC32目录比较大师 V2007.03.15
·FtpList FTP目录列表工具 1.14
·安悦系统目录转移软件 V1.0 绿色版