ASP中FSO的神奇功能 - 用FSO進行內容管理

來源:互聯網
上載者:User
fso 作 者 : 甘冀平


   到此,你對FSO可能已經有了很好的體會。讓我們再深入研究一步,來解決更複雜的難題。

   首先,你可能希望對檔案改名。為了跟蹤所有的文檔,你將要重新命名它們以便唯一,這樣就可以被系統容易地區
別。很不幸,FSO不允許簡單的檔案改名操作,所以我們不得不修改一下。

< %
' create the fso object
set fso = Server.Createobject("Scripting.FileSystemObject")
path = "c: emp est.txt"
strDate = Replace(Date(), "/", "")
strDir = "c:inetpubwwwrootarticles" & strDate
strNewFileName = Hour(Now) & "_" & Minute(Now) & "_" &
second(Now) & ".html"

' 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能力的不足在這裡卻成了優勢,我們可以一次執行2步。首先,開啟檔案並讀入檔案的內容。假設這裡要建立一個
唯一的檔案夾和一個唯一的檔案來儲存文章。然而,因為檔案夾的路徑每天都將改變,所以必須首先檢查是否檔案夾已經
存在,如果不存在,就建立它。這在if not fso.folderexists程式碼片段完成。然後,取得那個路徑,建立一個新的檔案。新
檔案建立完成後,刪除掉舊檔案,這通過fso.DeleteFile來完成。

   這2步就是:對檔案改名,然後移動到一個更合適的目錄下。注意,在這裡還可以對檔案進行更多地操作,比如在寫
入新檔案前進行一下內容的編輯。



相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。