亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb

首頁 > 學院 > 開發設計 > 正文

在VB中使用文件對象

2019-11-18 17:32:29
字體：大 中 小
來源：轉載
供稿：網友
自從VisualBasic第一次發布到現在，它的大部分主要的特性大都被修改了不下一次。但文件操作部分卻是個例外。在最原始的Basic語言中，文件就是用文件號（filenumber）來讀寫的。用一個數字來操作文件，或許者多少有一點晦澀難懂，這也令大多數的初學者感到不習慣和難以理解。

　　隨著VisualBasicScriptingEdition2.0版本的發布，微軟提供了一種全新的文件操作方法——文件系統對象（FileSystemObject）。用對象編程，這正是開發者們所希望用到。這個對象，包括一些其他的相關對象，封裝了所有的文件操作。這篇文章將向你介紹這些對象，并且展示如何利用它們來編程。要使用這些對象，在VB的應用程序中就必須引用MicrosoftScriptingRuntime（C:/Windows/System/SCRRUN.DLL）對象庫。但是如果是為InternetExplore編寫VBScript，直接使用就可以了。下面是這些對象的概要：

　　*Drive-代表一個單獨的驅動器，可以是軟驅，硬盤，或者是光驅等其他存貯介質。

　　*Drives-一個集合對象，包括系統中所有的驅動器。

　　*File-代表系統中的一個磁盤文件。

　　*Files-集合對象，是一些文件的集合。典型的是代表一個目錄下的所有文件。

　　*FileSystemObject-代表系統中整個文件系統的對象。包括所有驅動器，目錄和文件。

　　*Folder-代表一個目錄，可以是本地的，也可以是遠程目錄。

　　*Folders-一些目錄的集合體。

　　*TextStream-文本流對象，代表一個用來讀寫的打開的文件。

　　想得到系統中所有的驅動器的信息，可以用下面的這段代碼來實現。
SubMain()
DimobjfsoAsNewScripting.FileSystemObject
DimdrvLoopAsScripting.Drive

ForEachdrvLoopInobjFSO.Drives
Debug.EndIf

NextdrvLoop

SetobjFSO=Nothing

EndSub


　　在試圖存取像軟盤，光盤這些可移動介質驅動器，特別是存取筆記本電腦的可交換驅動器的時候要注意：Windows總是認為驅動器是存在的，而不管是否真的有盤片在里面。這時候可以用Drive對象IsReady對象來檢測驅動器是否準備好。否則可能造成VB應用程序的死鎖。

　　Drive對象還有一些其他的屬性，可以用對象瀏覽器來察看它所有屬性。

　　除了可以遍歷所有的驅動器，你也可以遍歷某個文件夾下的所有文件。這在當你需要在整個驅動器中查找特定的文件的時候特別有用。Recursionisalsoveryhelpfulinthesecasessinceyouneedtokeepperformingthesameactionasyouworkyourwaydownthetree.下面這段代碼用來統計所有GIF文件的個數。它也可以很容易的修改成文件列表，對特定的文件做指定的操作，等等。其中的關鍵在于目錄數的遍歷：
OptionExplicit
Dimm_lngFileCountAsLong注釋：定義注釋：這一段是條件檢查，但找到的文件是否符合給定的條件，這兒通過取文件名的
注釋：最后4位看是不是“.GIF“來判斷文件是否是GIF文件。
m_lngFileCount=m_lngFileCount 1
注釋：找到指定條件的文件后進行相應的操作，這兒是把計數器加一。
EndIf
NextobjFile

注釋：在所有子目錄中循環，計數。
SetobjSubdirs=objFolder.SubFolders
ForEachobjLoopFolderInobjSubdirs
CheckFolderobjLoopFolder.Path
注釋：遞歸調用CheckFolder子過程，實現目錄樹的遍歷。
NextobjLoopFolder

SetobjSubdirs=Nothing
SetobjFolder=Nothing

EndSub


　　為了簡化這段代碼，FileSystemObject對象和文件計數器都被定義為這個模塊的全局變量（因此前面都加了m_前綴）。CheckFolder子程序開始時用C:/作為入口參數，一旦找到一個符合條件的文件，就把計數值加一。檢查完下面的所有文件后，再用其子目錄作為參數調用CheckFolder過程本身。當所有的目錄都被作為參數調用了之后，所有的文件也就被檢查完了。這就是用遞歸遍歷目錄樹的方法。所謂遞歸，就是過程直接或者間接的調用自身。最后，作為過程調用的結果，統計數字被Main過程顯示出來。

　　只要把檢驗文件是否為GIF文件的部分換成其它的條件，再把計數的語句換成想要執行的語句塊。每當找到符合條件的語句后，就會執行這個語句塊。這樣就可以很容易的把代碼修改用于其它的用途。

　　如果你曾今用過Dir函數來實現同樣的功能，那么你一定會感到用對象編程的方便之處。不論你是想檢查文件屬性，還是創建新的文件，或者其它任何關于文件的操作，新的文件對象都會為你節省不少時間，而且是代碼更加易于理解。->

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb
亚洲色图在线观看| 欧美午夜视频在线观看| 久久男人av资源网站| 日韩va亚洲va欧洲va国产| 久久久国产一区二区三区| 在线日韩第一页| 欧美高清自拍一区| 成人妇女淫片aaaa视频| 亚洲人成电影在线观看天堂色| 国产自产女人91一区在线观看| 欧美大尺度在线观看| 亚洲奶大毛多的老太婆| 97超视频免费观看| 久久99热精品这里久久精品| 日韩免费精品视频| 欧美日韩精品在线视频| 高清一区二区三区四区五区| 日韩av手机在线看| 国产成人精品国内自产拍免费看| 日韩激情av在线播放| 欧美日韩国产中文精品字幕自在自线| 伊人伊成久久人综合网站| 亚洲国产精彩中文乱码av| 精品国产福利在线| 91系列在线播放| 成人福利在线观看| 国产精品久久电影观看| 97在线视频免费观看| 日韩免费观看在线观看| 九九热精品在线| wwwwwwww亚洲| 日韩女在线观看| 九九热这里只有精品6| 日韩激情片免费| 亚洲成人性视频| 性欧美xxxx交| 亚洲va男人天堂| 一区二区三区精品99久久| 亚洲激情免费观看| 日本一区二区三区在线播放| 亚洲韩国欧洲国产日产av| 成人免费在线视频网址| 日韩中文字在线| 国产精品美女网站| 欧美日韩电影在线观看| 国产欧美久久久久久| 97国产suv精品一区二区62| 中国日韩欧美久久久久久久久| www.午夜精品| 久久影视电视剧凤归四时歌| 亚洲精品按摩视频| 国内精品久久久久伊人av| 欧美精品videos性欧美| 亚洲成人免费在线视频| 91精品国产综合久久香蕉最新版| 国产成人久久久精品一区| 国产精品无av码在线观看| 伦伦影院午夜日韩欧美限制| 国内免费精品永久在线视频| 国产suv精品一区二区三区88区| 欧美激情乱人伦一区| 日韩一中文字幕| 欧美亚州一区二区三区| 在线视频欧美性高潮| 欧美激情亚洲视频| 色综合久综合久久综合久鬼88| www.亚洲天堂| 隔壁老王国产在线精品| 欧美自拍大量在线观看| 欧美成在线视频| 亚洲美女精品久久| 亚洲国产精品免费| 精品在线观看国产| 午夜精品久久久久久久久久久久| 91美女高潮出水| 日韩激情在线视频| 亚洲综合自拍一区| 国产精品99久久99久久久二8| 国产精品视频资源| 青青久久aⅴ北条麻妃| 亚洲一区av在线播放| 日本国产欧美一区二区三区| 亚洲一区二区三区视频播放| 久久精品视频中文字幕| 欧美成人第一页| 午夜美女久久久久爽久久| 亚洲欧美色婷婷| 久久男人av资源网站| 欧美性猛交xxxx乱大交蜜桃| 久久精品国产一区二区三区| 久久精品国产一区| 欧美极品欧美精品欧美视频| 国内外成人免费激情在线视频网站| 日韩中文综合网| 国产精品视频一区国模私拍| 日韩精品免费视频| 国产有码在线一区二区视频| 亚洲日本欧美中文幕| 日韩久久免费电影| 综合网日日天干夜夜久久| 精品无人区太爽高潮在线播放| 最近中文字幕2019免费| 亚洲精品丝袜日韩| 2018中文字幕一区二区三区| 91精品国产乱码久久久久久蜜臀| 欧美激情中文字幕乱码免费| 国产精品久久久久久久久久东京| 日韩精品中文在线观看| 亚洲第一免费播放区| 91精品国产乱码久久久久久久久| 亚洲美女视频网| 欧美激情一级精品国产| 亚洲欧美中文日韩在线v日本| 色综合亚洲精品激情狠狠| 亚洲免费电影一区| 成人国产精品日本在线| 大荫蒂欧美视频另类xxxx| 国产精品日韩在线播放| 国产亚洲成av人片在线观看桃| 91久久夜色精品国产网站| 国产一区二区三区直播精品电影| 日本久久久久久久久久久| 日韩成人在线视频观看| 国产中文字幕亚洲| 日韩欧美成人精品| 国产精品白嫩美女在线观看| 国产欧美亚洲视频| 亚洲色图在线观看| 欧美孕妇孕交黑巨大网站| 亚洲第一精品自拍| 国产不卡视频在线| 人体精品一二三区| 亚洲午夜精品久久久久久性色| 亚洲精品久久久久久久久久久| 欧美高清无遮挡| 欧美裸体xxxx| 亚洲一区二区三区在线免费观看| 国产精品视频999| 成人久久久久爱| 亚洲欧美国产日韩天堂区| 亚洲一品av免费观看| 亚洲精品99久久久久中文字幕| 亚洲精品小视频在线观看| 亚州国产精品久久久| 日韩欧美第一页| 成人免费淫片aa视频免费| www.99久久热国产日韩欧美.com| 国产91精品网站| 日本一欧美一欧美一亚洲视频| 欧美精品电影在线| 中文字幕日韩电影| 在线精品国产欧美| 国产精品自拍视频| 九九热99久久久国产盗摄| 97精品国产97久久久久久春色| 久热精品视频在线免费观看| 国产一区二区三区网站| 亚洲激情 国产| 国产不卡av在线| 中文字幕一精品亚洲无线一区| 久久久免费观看视频| 777午夜精品福利在线观看| 裸体女人亚洲精品一区| 成人免费高清完整版在线观看|