對(duì)于文件的操作,例如:生成一個(gè)或者打開(kāi)一個(gè)或者刪除一個(gè).txt格式文件。 雖然官方的FILE插件提供了一些基本功能,但功能不多。 你并不需要理解什么是fso模版,什么是vbs語(yǔ)句,直接套用下面的語(yǔ)句吧! 紅色字為自己定義的部分,藍(lán)色字為任意選一部分 如果你看不懂,請(qǐng)參考下面的例子! 操作同一個(gè)文件紅色部分必須相同 請(qǐng)認(rèn)真看括號(hào)內(nèi)的解釋內(nèi)容 定義一個(gè)名為fso的關(guān)系文件問(wèn)題的對(duì)象,對(duì)于一個(gè)文件的操作只需寫(xiě)一次,此句必須寫(xiě) VBS Set fso = CreateObject("Scripting.FileSystemObject") 0.判斷一個(gè)文件或文件夾是否存在(yn是返回值,文件存在返回1,不存在返回0) VBS yn=fso.FileExists(判斷文件的目錄) 1.創(chuàng)建一個(gè)文件(藍(lán)字定義該文本文件是否可以被下次寫(xiě)入覆蓋,省略默認(rèn)為ture) VBS set ttfile=fso.createtextfile(創(chuàng)建的文件目錄,ture|false) 2.打開(kāi)一個(gè)已存在的文件(藍(lán)字定義文件寫(xiě)入方式,分別為a.只讀b.可讀寫(xiě),但每打開(kāi)一次文件重寫(xiě)c.在文件末尾寫(xiě)) 注意:要想更改打開(kāi)方式必須關(guān)閉文件重新打開(kāi) VBS set ttfile=fso.opentextfile(打開(kāi)文件的目錄,1|2|8) ForReading 1 以只讀方式打開(kāi)文件。 不能寫(xiě)這個(gè)文件。 ForWriting 2 以寫(xiě)方式打開(kāi)文件 ForAppending 8 打開(kāi)文件并從文件末尾開(kāi)始寫(xiě)。 3.關(guān)閉一個(gè)打開(kāi)的文件(紅色部分要于已經(jīng)打開(kāi)的文件紅色部分相同) VBS ttfile.close 4.讀取打開(kāi)文件的一行并回車(chē)(紅色部分ttfile要于已經(jīng)打開(kāi)的文件紅色部分相同) VBS read=ttfile.ReadLine 5.讀取所有文件內(nèi)容(紅色部分ttfile要于已經(jīng)打開(kāi)的文件紅色部分相同) VBS read=ttfile.ReadAll 6.寫(xiě)入一行并回車(chē)(紅色部分要于已經(jīng)打開(kāi)的文件紅色部分相同) VBS ttfile.writeline(自己要寫(xiě)入的內(nèi)容) 7.刪除指定文件(若已定義過(guò)ttfile則不需要第一句) VBS set ttfile=fso.GetFile(要?jiǎng)h的文件目錄) VBS ttfile.delete 8.判斷輸入標(biāo)記是否在末尾(是返回-1,否則返回0) VBS yn=ttfile.atendofstream 以下是一些文件夾的操作 8.判斷是否為根目錄(yn是返回值,文件存在返回1,不存在返回0) VBS yn=fso.IsRootFolder 9.讀取文件夾 VBS set ttfile=fso.GetFolder(文件夾目錄) 10.創(chuàng)建一個(gè)文件夾 VBS set ttfile=fso.creaFolder(創(chuàng)建的文件夾目錄) 11.刪除指定文件夾(若已定義過(guò)ttfile則不需要第一句) VBS set ttfile=fso.GetFolder(要?jiǎng)h的文件目錄) VBS ttfile.deletefolder 下面是其他一些經(jīng)常用到的文件操作(注意:可用于所有格式的文件。紅字是你的上文腳本已經(jīng)定義過(guò)的) VBS ttfile.size 返回文件大小 VBS ttfile.type 返回文件類(lèi)型 VBS ttfile.DateCreated 返回文件創(chuàng)建時(shí)間 VBS ttfile.DatelastAccessed 返回文件最近訪問(wèn)時(shí)間 VBS ttfile.DateLastModified 返回文件最后修改時(shí)間 VBS ttfile.name 返回文件名稱(chēng) VBS ttfile.ShortPath 返回文件短路徑名 VBS ttfile.path 返回文件物理地址 VBS Set fso = CreateObject("Scripting.FileSystemObject") //判斷d盤(pán)下是否有文件1.txt VBS pd1=fso.FileExists(d:\1.txt) if 0=pd1 //沒(méi)有的話,在d盤(pán)下創(chuàng)建一個(gè)不可覆蓋的文件1.txt VBS set txtfile=fso.createtextfile("d:\1.txt",false) //以在末尾寫(xiě)入的方式打開(kāi)1.txt VBS set txtfile=fso.opentextfile("d:\1.txt",8) //寫(xiě)入一行“1234567890” VBS txtfile.writeline("1234567890") //關(guān)閉1.txt VBS txtfile.close endif //以只讀方式打開(kāi)1.txt VBS set txtfile=fso.opentextfile("d:\1.txt",forreading) //讀取第一行,并將其賦予變量read VBS read=txtfile.ReadLine //關(guān)閉1.txt VBS txtfile.close 一時(shí)間沒(méi)有完全列出所有函數(shù),不足的部分希望大家跟帖補(bǔ)上。 |
聯(lián)系客服