中文字幕免费精品_亚洲视频自拍_亚洲综合国产激情另类一区_色综合咪咪久久

vbs 查找硬盤分區中指定擴展名文件的實現代碼
來源:易賢網 閱讀:1393 次 日期:2014-05-12 15:56:17
溫馨提示:易賢網小編為您整理了“vbs 查找硬盤分區中指定擴展名文件的實現代碼”,方便廣大網友查閱!

代碼如下:

On Error Resume Next '忽略所有錯誤

Dim filename '聲明變量

Dim re

Set re=New RegExp '建立正則表達式對象實例

re.Pattern="^([a-z]|[A-Z])+\:\\\w+\.vbs$"

If re.Test(WScript.ScriptFullName)=False Then

MsgBox "請在磁盤根目錄下運行本程序,否則搜索結果可能會不正確!",,"MessageBox"

WScript.Quit

End If

re.Pattern="^([A-Za-z0-9_]|[^\x00-\xff])+\.[a-zA-Z]{1,4}$" '聲明正則表達式的匹配模式,主要用來檢驗用戶輸入的文件名是否正確

Do

filename=InputBox("請輸入你要搜索的文件名:","MessageBox")

If filename="" Then WScript.Quit '如果輸入為空則退出腳本

If re.Test(filename)=False Then

MsgBox "請輸入合法的文件名!",,"MessageBox"

End If

Loop While re.Test(filename)=False '直到用戶輸入正確的文件名時才跳出循環。

Set re=Nothing

Dim ie

Set ie=WScript.CreateObject("internetexplorer.application") '建立IE對象,用來顯示搜索狀態

ie.menubar=0 '不顯示IE對象菜單欄

ie.AddressBar=0 '不顯示IE對象地址欄

ie.ToolBar=0 '不顯示IE對象工具欄

ie.StatusBar=0 '不顯示IE對象狀態欄

ie.FullScreen=1 '全屏化IE對象

ie.Width=640 '設置IE對象寬度

ie.Height=120 '設置IE對象高度

ie.Resizable=0 '設置IE對象大小是否可以被改動

ie.Navigate "about:blank" '設置IE對象默認指向的頁面

ie.Left=Fix((ie.Document.parentwindow.screen.availwidth-ie.Width)/2) '設置IE對象左邊距

ie.top=Fix((ie.document.parentwindow.screen.availheight-ie.height)/2) '設置IE對象右邊距

ie.visible=1 '設置IE對象是否可視

With ie.Document '以下為在IE對象中寫入頁面,跟一般的HTML沒有區別

.write "<html>"

.write "<head>"

.write "<title>文件掃描狀態</title>"

.write "<meta http-equiv=""content-type"" content=""text/html;charset=gb2312"">"

.write "<style><!--"

.write "body { background:#000000;text-align:center;margin:0px auto; }"

.write "* { font-family:Arial;font-size:9pt;color:#00cc00;line-height:140%; }"

.write "a:link,ahover,a:visited { text-decoration:none; }"

.write "#scanstatus { text-align:left;margin:15px; }"

.write "#header { width:100%;height:20px; }"

.write "#middle { width:100%;height:50px; }"

.write "#footer { width:100%;height:20px;text-align:right; }"

.write "--></style>"

.write "</head>"

.write "<body scroll=no>"

.write "<div id=""scanstatus"">"

.write "<div id=""header"">正在啟動搜索程序。。。</div>"

.write "<div id=""middle""></div>"

.write "<div id=""footer""><a href=""#"" onclick=""window.close()"">退出程序</a></div>"

.write "</div>"

.write "</body>"

.write "</html>"

End With

'定義文件系統對象變量

Dim fso

Dim objfolder

Dim objsubfolders

Dim objsubfolder

Dim objfiles

Dim objfile

Dim objdrives

Dim objdrive

Dim objtextfile

Dim str:str=""

Dim i:i=0 '計數器變量

Dim result

result="E:\搜索結果.html" '搜索結果保存文件變量

'一個過程,用來遍歷硬盤文件

Function search(path)

Set objfolder=fso.getfolder(path) '獲得當前路徑

Set objfiles=objfolder.Files '獲得當前路徑下的所有文件集合

For Each objfile In objfiles '開始遍歷文件集合

ie.Document.getElementById("middle").innerHTML=objfile.Path '用到IE對象的文檔對象模型,將當前搜索的文件路徑寫入ID為middle的DIV中

If objfile.Name=filename Then '如果當前文件名與用戶輸入的文件名一致

i=i+1 '計數器加一

str=str & objfile.Path & "<br>"

Set objtextfile=fso.OpenTextFile(result,2,True) '創建文本流對象,文件名為變量result所存儲的字符串

objtextfile.Write(str) '將變量str中的文件路徑寫入html文件中

objtextfile.Close '關閉文本流對象

Set objtextfile=Nothing '銷毀對象

End If

If i>0 Then

ie.Document.getElementById("header").innerHTML="找到 " & i & " 個匹配,詳細信息已保存在 """ & result & """ 文件中。。。"

Else

ie.Document.getElementById("header").innerHTML="正在執行文件搜索。。。"

End If

WScript.Sleep(20)

Next

Set objsubfolders=objfolder.SubFolders '得到當前路徑下的所有文件夾的集合

For Each objsubfolder In objsubfolders '遍歷文件夾

nowpath=path & "\" & objsubfolder.Name '得到新的文件路徑

search nowpath '調用函數自身,從新的路徑開始搜索

Next

End Function

Set fso=CreateObject("scripting.filesystemobject")

Set objdrives=fso.Drives '取得當前計算機的所有磁盤驅動器

For Each objdrive In objdrives '遍歷磁盤

search objdrive '調用函數

Next

'結束時顯示的信息

ie.Document.getElementById("header").innerHTML="掃描已結束。。。"

If i>0 Then

ie.Document.getElementById("middle").innerHTML="請打開 """ & result & """ 查看詳細搜索結果!"

Else

ie.Document.getElementById("middle").innerHTML="沒有找到要搜索的文件!"

End If

'銷毀對象變量,釋放內存空間

Set objdrives=Nothing

Set objfiles=Nothing

Set objfile=Nothing

Set objdrive=Nothing

Set objfolders=Nothing

Set objfolder=Nothing

Set objsubfolders=Nothing

Set objsubfolder=Nothing

Set fso=Nothing

更多信息請查看IT技術專欄

更多信息請查看腳本欄目
由于各方面情況的不斷調整與變化,易賢網提供的所有考試信息和咨詢回復僅供參考,敬請考生以權威部門公布的正式信息和咨詢為準!
關于我們 | 聯系我們 | 人才招聘 | 網站聲明 | 網站幫助 | 非正式的簡要咨詢 | 簡要咨詢須知 | 新媒體/短視頻平臺 | 手機站點

版權所有:易賢網

中文字幕免费精品_亚洲视频自拍_亚洲综合国产激情另类一区_色综合咪咪久久
色婷婷综合久色| 美日韩一区二区| 99久久99久久精品免费看蜜桃| 国产亚洲1区2区3区| 国产麻豆视频精品| 国产精品天干天干在观线| a级精品国产片在线观看| 亚洲女同一区二区| 欧美天堂一区二区三区| 三级久久三级久久| 精品精品欲导航| 国产福利一区二区三区视频在线| 国产日产精品1区| 91在线高清观看| 亚洲国产精品尤物yw在线观看| 欧美丰满美乳xxx高潮www| 国产一区二区三区电影在线观看 | 国产婷婷一区二区| 99久免费精品视频在线观看| 亚洲专区一二三| 日韩精品资源二区在线| 国产成人自拍网| 亚洲欧美日韩中文播放| 91精品国产综合久久福利| 国模一区二区三区白浆| 亚洲色图视频免费播放| 欧美人xxxx| 成人黄色国产精品网站大全在线免费观看| 中文字幕一区二区不卡| 正在播放一区二区| 丰满放荡岳乱妇91ww| 亚洲精品日日夜夜| 欧美精品一区二区三区在线播放| 成人97人人超碰人人99| 视频一区二区三区在线| 欧美激情综合五月色丁香| 欧美日韩亚洲国产综合| 国产成人99久久亚洲综合精品| 一区二区三区在线观看网站| 久久免费午夜影院| 欧美伊人久久久久久久久影院| 精品午夜久久福利影院| 国产一区二区不卡在线| 一区二区不卡在线播放| 久久综合狠狠综合久久综合88| 一本大道久久a久久综合| 国产一区不卡视频| 亚洲福利电影网| 亚洲欧美一区二区久久 | 欧美日韩一区三区四区| 国产福利一区二区| 日本系列欧美系列| 亚洲在线免费播放| 中文字幕一区二| 26uuu色噜噜精品一区二区| 欧洲一区二区三区免费视频| 成人影视亚洲图片在线| 精品综合久久久久久8888| 亚洲va国产天堂va久久en| 亚洲日本va午夜在线影院| 国产欧美一区二区精品秋霞影院 | 亚洲一区二区三区美女| 国产精品情趣视频| 久久久亚洲精品一区二区三区| 欧美年轻男男videosbes| 一本久道久久综合中文字幕| 成人精品鲁一区一区二区| 久久精品免费观看| 久久国产人妖系列| 日本成人在线电影网| 水蜜桃久久夜色精品一区的特点| 亚洲第一电影网| 亚洲自拍偷拍麻豆| 亚洲一级二级在线| 亚洲成av人片| 视频一区二区国产| 三级在线观看一区二区| 视频精品一区二区| 蜜臀久久99精品久久久久宅男| 日韩高清在线不卡| 久久精品二区亚洲w码| 成人h版在线观看| 99久久99久久精品免费看蜜桃| 成人avav影音| 欧洲一区在线观看| 欧美酷刑日本凌虐凌虐| 777欧美精品| 在线不卡免费av| 欧美男女性生活在线直播观看| 97精品久久久久中文字幕| 一区二区三区成人在线视频| 亚洲电影一区二区三区| 一区二区视频在线| 亚洲黄色尤物视频| 亚洲欧美视频在线观看视频| 亚洲欧美一区二区三区孕妇| 欧美国产日韩一二三区| 亚洲欧美日韩国产中文在线| 中文字幕日韩一区二区| 成人欧美一区二区三区黑人麻豆| 国产精品久久久久久久久免费樱桃 | 在线播放日韩导航| 欧美日韩国产电影| 欧美一区二区三区视频免费 | 欧美日精品一区视频| 处破女av一区二区| av成人老司机| 国产福利91精品一区| 国产成人精品影视| 成人av在线影院| 99久久99久久综合| 国产iv一区二区三区| www.欧美日韩| 欧美无乱码久久久免费午夜一区| 欧美日韩一级黄| wwwwww.欧美系列| 国产日韩亚洲欧美综合| 亚洲天堂久久久久久久| 亚洲国产裸拍裸体视频在线观看乱了 | 99免费精品视频| 欧美视频在线一区二区三区 | 日本免费在线视频不卡一不卡二| 蜜臀av一区二区在线观看| 国产精品一二二区| 91理论电影在线观看| 欧美色精品在线视频| 日韩精品最新网址| 欧美剧情电影在线观看完整版免费励志电影| 精品美女一区二区| 亚洲婷婷在线视频| 日韩av电影免费观看高清完整版| 国产成人综合在线播放| 欧美丝袜自拍制服另类| 日韩三级av在线播放| 欧美精品一区男女天堂| 亚洲一区二区三区中文字幕 | 日韩中文字幕av电影| caoporm超碰国产精品| 欧美日韩在线播放三区| 久久久综合网站| 亚洲高清免费视频| 国产成人aaaa| 在线免费观看日本欧美| 久久新电视剧免费观看| 亚洲伊人伊色伊影伊综合网| 国产老妇另类xxxxx| 欧美色区777第一页| 国产三级一区二区| 亚洲va韩国va欧美va| 成人av网站在线| 精品国产一区二区三区四区四 | 久久久久久久久99精品| 一区二区三区日韩欧美| 国产成人在线视频免费播放| 91在线看国产| 26uuuu精品一区二区| 午夜一区二区三区视频| av亚洲精华国产精华精| 国产欧美一区二区在线观看| 麻豆精品视频在线观看视频| 色香蕉成人二区免费| 国产日本一区二区| 日韩av高清在线观看| 91精品国产麻豆| 亚洲午夜精品网| 一本一道综合狠狠老| 亚洲国产精品激情在线观看| 另类小说视频一区二区| 色综合久久久久| 亚洲一卡二卡三卡四卡无卡久久| 99久久久精品免费观看国产蜜| 国产丝袜欧美中文另类| 美国一区二区三区在线播放| 欧美日本精品一区二区三区| 一区二区成人在线观看| 色哟哟一区二区| 亚洲欧美日韩久久精品| 91丨九色丨尤物| 国产精品国产a| 国产露脸91国语对白| 中文字幕一区二区三区精华液| 国产精品一区二区久久不卡 | 国产日韩欧美a| 国产主播一区二区| 精品国产123| 99亚偷拍自图区亚洲| 国产精品久久毛片av大全日韩| 成人免费看的视频| 欧美韩日一区二区三区| 91麻豆文化传媒在线观看| 亚洲欧美日韩小说| 色综合网站在线| 一二三四区精品视频| 99久久婷婷国产综合精品电影| 亚洲自拍另类综合| 欧美高清dvd| 免费成人av在线| 欧美精品一卡二卡| 国产精品伊人色| 亚洲视频一二区|