麻豆小视频在线观看_中文黄色一级片_久久久成人精品_成片免费观看视频大全_午夜精品久久久久久久99热浪潮_成人一区二区三区四区

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

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

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 狠狠操人人干 | 久草在线网址 | 精国品产一区二区三区有限公司 | 91久久精品一区二区 | 色成人在线| 国产精品性夜天天视频 | 日本aⅴ在线 | 免费毛片免费看 | www日韩大片 | 久久久久性 | 黄色片视频在线观看 | 主播粉嫩国产在线精品 | 又黄又爽免费无遮挡在线观看 | 久久久久国产成人精品亚洲午夜 | 国产做爰全免费的视频黑人 | 久久国产精 | 欧美日韩在线免费观看 | 国产porn在线 | 色诱亚洲精品久久久久久 | 激情久久婷婷 | 欧美一级黄视频 | 国内一区 | 一级毛片真人免费播放视频 | 亚洲欧洲日韩av | 久久99亚洲精品久久99果 | 少妇的肉体k8经典 | 欧美第1页 | 黄网站色成年大片免费高 | 欧洲成人一区 | 91精品国产91久久久久久不卞 | 午夜久久久精品一区二区三区 | 亚洲成人免费网站 | 久久精品国产一区二区电影 | 美国一级免费视频 | 99re热视频这里只精品 | 国产午夜亚洲精品午夜鲁丝片 | 亚洲精中文字幕二区三区 | 91成人久久 | 欧美黄 片免费观看 | 激情视频在线播放 | 久久免费看毛片 |