复制代码 代码如下:set oDOM = WScript.GetObject("http:https://ipseeker.cnhttps://")flag=0for i=1 to 10 if oDOM.readyState = "complete" thenflag=1 exit for end if WScript.sleep 500nextif flag=0 then WScript.Echo "timeout ..." wscrip..
复制代码 代码如下: On Error Resume Next Dim objFSO,sourcepath,targetpath Function GetZipFile(path) Dim file,folder,sfolder,subfolder,files If Not objFSO.FolderExists(path) Then Msgbox "目标文件夹不存在！" Else objFSO.CreateFolder ..
压缩代码: 复制代码 代码如下: Zip "D:\test.iso", "D:\test.zip" Zip "D:\test", "D:\test.zip" Msgbox "OK" Sub Zip(ByVal mySourceDir, ByVal myZipFile) Set fso = CreateObject("Scripting.FileSystemObject") If fso.GetExtensionName(myZipF..
