摘要: 方法一:Function SearchFolder(objFolder, FileName, Recursive)Dim oFile, oSubFolderFor each oFile in objFolder.FilesIf oFile.Name = FileName Then'Found the file print the namePrint "File found at - " & oFile.Path'No more files with same name can existExit ForEnd ifNextIf Recursive T 阅读全文
posted @ 2012-08-04 21:17 dushuai 阅读(290) 评论(0) 推荐(0) 编辑
摘要: Cnt = Browser("").Page("").object.links.lengthOrCnt = Browser("").Page("").object.getElementsByTagName("A").length 阅读全文
posted @ 2012-08-04 21:03 dushuai 阅读(87) 评论(0) 推荐(0) 编辑
摘要: oDocument.parentWindow.execScript "function sum(x,y) {return x+y;}"Msgbox oDocument.parentWindow.Sum(2,3) 阅读全文
posted @ 2012-08-04 20:58 dushuai 阅读(125) 评论(0) 推荐(0) 编辑