' open the old file set file = fso.opentextfile(path, 1) < -- For reading strText = file.readall set file = nothing
' check for and/or create folder if not fso.folderexists(Server.MapPath(strDir)) then set f = fso.CreateFolder(Server.MapPath(strDir)) else set f = fso.GetFolder(Server.MapPath(strDir)) end if
' create and write new file set file = fso.Createtextfile(f.path & "" & strNewFileName) file.write(strText) set f = nothing file.close set file = nothing
' delete the old file fso.DeleteFile(path & "" & rst("FileName") & i) ' clean up set fso = nothing %>
FSO能力的不足在這里卻成了優(yōu)勢(shì)，我們可以一次執(zhí)行2步。首先，打開文件并讀入文件的內(nèi)容。假設(shè)這里要?jiǎng)?chuàng)建一個(gè) 唯一的文件夾和一個(gè)唯一的文件來存儲(chǔ)文章。然而，因?yàn)槲募A的路徑每天都將改變，所以必須首先檢查是否文件夾已經(jīng) 存在，如果不存在，就創(chuàng)建它。這在if not fso.folderexists代碼段完成。然后，取得那個(gè)路徑，創(chuàng)建一個(gè)新的文件。新 文件建立完成后，刪除掉舊文件，這通過fso.DeleteFile來完成。
