,,

asp獲取文件大小的函數

admin

2011年12月14日 16:34 本文熱度 3521

'asp獲取文件大小
'函數作用：獲取文件大小
Function getFileSize(FileName)
'判斷文件名是不是為空
if FileName="" then
getFileSize="0KB"
Exit Function
end if
Dim oFso,oFile,sFile
sFile=FileName
Set oFso=Server.CreateObject("Scripting.FileSystemObject")
'判斷獲取文件大小的文件是否存在
If oFso.FileExists(Server.MapPath(sFile)) Then
Set oFile=oFso.GetFile(Server.MapPath(sFile))
'判斷獲取文件大小
getFileSize= CStr( CDbl( FormatNumber( oFile.Size / 1024))) & "KB"
else
getFileSize="0KB"
Exit Function
end if
Set oFile=nothing
Set oFso=nothing
End Function
'運用函數獲取文件大小
response.write getFileSize("aaa.gif")

該文章在 2011/12/14 16:34:06 編輯過


全部評論2
	admin 2011年12月14日 16:35 a=多少KB，只取KB前數字 if a>"1024" then a=a/1024&"MB" end if 該評論在 2011/12/14 16:35:23 編輯過
	admin 2011年12月14日 16:36 asp獲取文件大小/類型/創建時間/文件夾下面的所有文件信息一、asp獲取文件大小,類型,創建時間　　只要修改一下文件路徑就行了.很好用的代碼,剛收集的.拿出來共享一下. 把以下代碼保存成 file_info.asp 并運行程序代碼： <% Function showsize(filename) FPath=server.mappath(filename) set fso=server.CreateObject("scripting.filesystemobject") If fso.fileExists(FPath) Then Set f = fso.GetFile(FPath) filetype=f.type filesize=f.size adddate=f.DateCreated Select Case true Case filesize<1024 fsize=filesize&" B" Case filesize<1048576 fsize=Round((filesize/1024),2)&" KB" Case filesize<1073741824 fsize=Round((filesize/1024/1024),2)&" MB" Case else fsize=Round((filesize/1024/1024/1024),2)&" GB" End Select Response.Write "文件大小："&fsize&"，文件類型："&filetype&"，創建時間："&adddate else Response.Write"文件不存在!" end if End Function %> asp中引用： <%Call showsize("123.rar")%> 二、如何用asp獲取指定文件夾下面的所有文件信息利用FSO可以做到但是你要注意文件夾的權限設置 <% Option Explicit dim infopath '當前路徑 dim serverpath '服務器路徑 dim objfso '文件組件 dim objfile '文件 dim objfolder '目錄 dim objfoldercontents '所有文件 dim objfoldercount '臨時數組變量-文件夾 dim objfileitem '臨時數組變量-文件 infopath=request.servervariables("path_info") '得到文件相對路徑根據自己需要修改 serverpath=server.mappath(infopath) '得到文件絕對路徑根據自己需要修改 set objfso=createobject("scripting.filesystemobject") '實例文件組件 set objfile=objfso.GetFile(serverpath) '讀取文件所在路徑 set objfolder=objfile.parentfolder '根據文件所在路徑得到上級目錄 set objfoldercontents=objfolder.files '所有文件付給數組 response.write "<table width=100% border=0><tr>" response.write "<td>文件名</td>" response.write "<td>文件屬性</td>" response.write "<td>文件大小</td>" response.write "<td>更新日期</td></tr>" for each objfoldercount in objfolder.subfolders '循環顯示文件夾 response.write "<tr><td><a href=?path="&objfoldercount.name&" target=""_blank"">"&objfoldercount.name&"</td>" '文件夾名稱 response.write "<td>"&objfoldercount.type&"</td>" '文件夾屬性 response.write "<td> </td>" '文件夾大小 response.write "<td>"&objfoldercount.DateCreated&"</td>" '時間 next for each objfileitem in objfoldercontents '循環 response.write "<tr><td><a href="&objfileitem.name&">"&objfileitem.name&"</a></td>" '文件名 response.write "<td>"&objfileitem.type&"</td>" '類型 response.write "<td>"&objfileitem.size&"k</td>" '文件大小 response.write "<td>"&objfileitem.datelastmodified&"</td></tr>" '更新日期 next response.write "</table>" %> 該評論在 2011/12/14 16:37:14 編輯過

關鍵字查詢

文件

函數

獲取

大小

正在查詢...

點晴ERP是一款針對中小制造業的專業生產管理軟件系統,系統成熟度和易用性得到了國內大量中小企業的青睞。

點晴PMS碼頭管理系統主要針對港口碼頭集裝箱與散貨日常運作、調度、堆場、車隊、財務費用、相關報表等業務管理，結合碼頭的業務特點，圍繞調度、堆場作業而開發的。集技術的先進性、管理的有效性于一體，是物流碼頭及其他港口類企業的高效ERP管理信息系統。

點晴WMS倉儲管理系統提供了貨物產品管理,銷售管理,采購管理,倉儲管理,倉庫管理,保質期管理,貨位管理,庫位管理,生產管理,WMS管理系統,標簽打印,條形碼,二維碼管理,批號管理軟件。

點晴免費OA是一款軟件和通用服務都免費，不限功能、不限時間、不限用戶的免費OA協同辦公管理系統。

日韩欧美国产精品免费一二-日韩欧美国产精品亚洲二区-日韩欧美国产精品专区-日韩欧美国产另-日韩欧美国产免费看-日韩欧美国产免费看清风阁

asp獲取文件大小的函數

全部評論2