午夜国产狂喷潮在线观看|国产AⅤ精品一区二区久久|中文字幕AV中文字幕|国产看片高清在线

這篇文章主要介紹了VBS文本文件操作實(shí)現(xiàn)代碼,需要的朋友可以參考下對于文件的操作，例如：生成一個(gè)或者打開一個(gè)或者刪除一個(gè).txt格式文件。雖然官方的FILE插件提供了一些基本功能，但功能不多。你并不需要理解什么是fso模版，什么是vbs語句，直接套用下面的語句吧！

紅色字為自己定義的部分，藍(lán)色字為任意選一部分如果你看不懂，請參考下面的例子！操作同一個(gè)文件紅色部分必須相同請認(rèn)真看括號(hào)內(nèi)的解釋內(nèi)容定義一個(gè)名為fso的關(guān)系文件問題的對象，對于一個(gè)文件的操作只需寫一次，此句必須寫

VBS Set fso = CreateObject("Scripting.FileSystemObject")

0.判斷一個(gè)文件或文件夾是否存在(yn是返回值，文件存在返回1，不存在返回0)

VBS yn=fso.FileExists(判斷文件的目錄)

1.創(chuàng)建一個(gè)文件(藍(lán)字定義該文本文件是否可以被下次寫入覆蓋，省略默認(rèn)為ture)

VBS set ttfile=fso.createtextfile(創(chuàng)建的文件目錄,ture|false)

2.打開一個(gè)已存在的文件(藍(lán)字定義文件寫入方式，分別為a.只讀b.可讀寫,但每打開一次文件重寫c.在文件末尾寫)

VBS const forreading=1

VBS const forwriting=2

VBS const forappending=8

注意：要想更改打開方式必須關(guān)閉文件重新打開

VBS set ttfile=fso.opentextfile(打開文件的目錄,forreading|forwriting|forappending)

3.關(guān)閉一個(gè)打開的文件(紅色部分要于已經(jīng)打開的文件紅色部分相同)

VBS ttfile.close

4.讀取打開文件的一行并回車(紅色部分ttfile要于已經(jīng)打開的文件紅色部分相同)

VBS read=ttfile.ReadLine

5.讀取所有文件內(nèi)容(紅色部分ttfile要于已經(jīng)打開的文件紅色部分相同)

VBS read=ttfile.ReadAll

6.寫入一行并回車(紅色部分要于已經(jīng)打開的文件紅色部分相同)

VBS ttfile.writeline(自己要寫入的內(nèi)容)

7.刪除指定文件(若已定義過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.刪除指定文件夾(若已定義過ttfile則不需要第一句)

VBS set ttfile=fso.GetFolder(要?jiǎng)h的文件目錄)

VBS ttfile.deletefolder

下面是其他一些經(jīng)常用到的文件操作(注意：可用于所有格式的文件。紅字是你的上文腳本已經(jīng)定義過的)

VBS ttfile.size 返回文件大小

VBS ttfile.type 返回文件類型

VBS ttfile.DateCreated 返回文件創(chuàng)建時(shí)間

VBS ttfile.DatelastAccessed 返回文件最近訪問時(shí)間

VBS ttfile.DateLastModified 返回文件最后修改時(shí)間

VBS ttfile.name 返回文件名稱

VBS ttfile.ShortPath 返回文件短路徑名

VBS ttfile.path 返回文件物理地址

代碼如下:

VBS Set fso = CreateObject("Scripting.FileSystemObject")

//判斷d盤下是否有文件1.txt

VBS pd1=fso.FileExists(d:\1.txt)

if 0=pd1

//沒有的話，在d盤下創(chuàng)建一個(gè)不可覆蓋的文件1.txt

VBS set txtfile=fso.createtextfile("d:\1.txt",false)

//以在末尾寫入的方式打開1.txt

VBS set txtfile=fso.opentextfile("d:\1.txt",forappending)

//寫入一行“1234567890”

VBS txtfile.writeline("1234567890")

//關(guān)閉1.txt

VBS txtfile.close

endif

//以只讀方式打開1.txt

VBS set txtfile=fso.opentextfile("d:\1.txt",forreading)

//讀取第一行，并將其賦予變量read

VBS read=txtfile.ReadLine

//關(guān)閉1.txt

VBS txtfile.close

更多信息請查看IT技術(shù)專欄