VBS教程:屬性-AtEndOfStream 屬性
AtEndOfStream 屬性
如果文件指針位于 TextStream 文件末,則返回 True;否則如果不為只讀則返回 False。
object.AtEndOfStream
object 應(yīng)為 TextStream 對(duì)象的名稱。
說明
AtEndOfStream 屬性僅應(yīng)用于以只讀方式打開的 TextStream 文件,否則會(huì)出現(xiàn)錯(cuò)誤。
下列代碼舉例說明如何使用 AtEndOfStream 屬性:
Function ReadEntireFile(filespec) Const ForReading = 1 Dim fso, theFile, retstring Set fso = CreateObject("Scripting.FileSystemObject") Set theFile = fso.OpenTextFile(filespec, ForReading, False) Do While theFile.AtEndOfStream <> True retstring = theFile.ReadLine Loop theFile.Close ReadEntireFile = retstringEnd Function
相關(guān)文章
將WMI中的DateTime類型轉(zhuǎn)換成VBS時(shí)間的函數(shù)代碼
WMI中的DateTime數(shù)據(jù)類型保存的時(shí)間格式是UTC,與VBS中的時(shí)間類型不同。2011-02-02vbs 獲取當(dāng)前目錄文件數(shù)量的代碼(不包括子文件夾中的)
有時(shí)候我們需要獲取當(dāng)前目錄下有多少個(gè)文件,那么就可以參考下面的代碼2013-09-09用vbs產(chǎn)生的若干個(gè)隨機(jī)數(shù)并寫入到一個(gè).txt中的代碼
用vbs產(chǎn)生的若干個(gè)隨機(jī)數(shù)并寫入到一個(gè).txt中的代碼,需要的朋友可以參考下。2011-09-09vbs Windows系統(tǒng)改變或修改網(wǎng)卡的MAC地址的腳本與軟件
這個(gè)文件比程序本身還大,感覺不爽,于是本人的VBS版MAC修改代碼便誕生了,在使用過程中如果出現(xiàn)不能上網(wǎng)的情況得返回一下網(wǎng)卡驅(qū)動(dòng)(有些機(jī)器比較特別)2008-07-07