
| Quote: | |
|
CODE: [Copy to clipboard]'创建IE对象并设置为全屏,可见
Set objIE = CreateObject("InternetExplorer.Application")
objIE.FullScreen = 1
objIE.Visible = 1
'创建文件对象,并遍历当前目录所有类型为HTML Document的文件
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(".")
Set collFiles = objFolder.Files
For Each objFile In collFiles
If objFile.Type = "HTML Document" Then
objIE.Navigate "file://" & objFile.Path
WScript.Sleep 3000
End If
Next
objIE.Quit
| 欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) | Powered by Discuz! 2.5 |