else
open filename for output as #number '覆蓋方式開啟檔案
end if
print #number, str;
close #number '關閉
end sub
'讀取所有行，返回字串陣列
function readalllines(filename as string) as string()
dim arr() as string, k as integer, number as integer
number = freefile
open filename for input as #number '開啟檔案
do while not eof(number) '迴圈讀取
'建議把陣列做成「步進式擴容」
k = k + 1
redim preserve arr(1 to k) as string
line input #number, arr(k)
loop
close #number '關閉
readalllines = arr
'讀取全部資料，返回字串
function readalltext(filename as string) as string
dim number as integer, s as string
number = freefile '產生乙個當前可用的最小檔案號
open filename for input as #number '開啟檔案
do while not eof(number) '迴圈讀取
s = s & input(1, number)
loop
close #number '關閉
readalltext = s
private sub class_initialize()
'set fso = new filesystemobject
set fso = createobject("scripting.filesystemobject")
'物件銷毀時，釋放fso空間
private sub class_terminate()
set fso = nothing
end sub
Path類 操作檔案類
path類 io命名空間 靜態類 不能建立物件類名.1 string str e c 程式設計基礎入門教程 第十一天 122 22 nee.txt 2 int index str.lastindexof 最後一出現的位置 3 str str.substring index 1 拿到最後乙個檔案 4 ...
楓葉隨風ASP檔案操作類 FSO
屬性 檔案原路徑 source 檔案目標路徑 destination 檔案路徑 path 檔名稱 name 檔案大小 以kb為單位 size 副檔名 extensionname 父檔名稱 parentfoldername 父檔案路徑 parentfolderpath 檔案建立時間 datecreat...
操作檔案File類方法
檔案操作 file.copy source targetfilename true 檔案拷貝 true 表示當檔案存在時 覆蓋 如果不加 true,則檔案存在報異常。file.exists 判斷檔案是否存在 file.move source target 移動 剪下 思考如何為檔案重新命名？檔案的剪...