台灣最大程式設計社群網站
線上人數
699
 
會員總數:245964
討論主題:189548
歡迎您免費加入會員
討論區列表 >> 專欄文章 >> 利用FileSystemObject 物件檔案自動排序
[]  
[我要回覆]
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
利用FileSystemObject 物件檔案自動排序
價值 : 0 QP  點閱數:549 回應數:0
樓主

站務人員 站長
門外漢
0 1580
542 9
發送站內信

捐贈 VP 給 站務人員
列出 C:\ 根目錄下包括隱藏檔的檔案


<%
dim fso, fdr, strFile, aryFile, cmdShell, tmpFile

Set cmdShell = Server.CreateObject("wscript.shell")

cmdShell.run "%comspec% /c dir c:\ /ON /B /A> c:\fileList.txt",0,true

strFile = ""

Set fso = createobject("scripting.filesystemobject")

set fdr = fso.getfolder("c:\")

Set tmpFile = fso.OpenTextFile("c:\fileList.txt")

While Not tmpFile.AtEndOfStream

fileName = tmpFile.ReadLine

If (fso.FileExists("c:\"&fileName) AND fileName <> "fileList.txt") Then

strFile = strFile & fileName &";"

End If

WEnd

tmpFile.Close

set tmpFile = Nothing

set cmdShell = nothing

fso.deletefile("c:\fileList.txt")

set fdr = nothing

set fso = nothing

aryFile = split(strFile,";")

for i = 0 to ubound(aryFile)

response.write aryFile(i) &"
"
next
%>
本篇文章發表於2002-06-18 00:00
目前尚無任何回覆
   

回覆
如要回應,請先登入.