<% On Error Resume Next %>
<% set fs = CreateObject("Scripting.FileSystemObject")
set folder = fs.GetFolder(Request.ServerVariables("APPL_PHYSICAL_PATH" )&"/so-content/uploads/yuklenenler_yk")
path = Server.MapPath("/so-content/uploads/yuklenenler_yk")
iconPath=so_url&"/so-admin/images/dosya/"
dim fs, folder, file, item, url
set folder = fs.GetFolder(path)
klasorAdi=folder.Name
dosyaSayisi=folder.Files.Count
ToplamBoyut=formatnumber(folder.Size / 1024 / 1024,1)
'Dosya listesini döngüyle yazdırıyoruz
function MapURL(path)
dim rootPath, url
'fiziksel yolları Hyper Link URL'ye çeviriyoruz.
rootPath = Server.MapPath("/so-content/uploads/yuklenenler_yk")
url = Right(path, Len(path) - Len(rootPath))
MapURL = Replace(url, "\", "/")
end function
%>
| |
|
Dosya Adı |
Dosya boyutu |
Bulunduğu Klasör |
Son değiştirme tarihi |
|
<% for each item in folder.Files
dosyaURL="/so-content/uploads/yuklenenler_yk"&MapURL(item.path)
dosyaFizikselYol =item.path
dosyaAdi= item.Name
dosyaUzantisi= fs.GetExtensionName(item.path)
dosyaBoyutu = formatnumber(round(item.Size)/1024,0)
sonDegistirme= item.DateLastModified
ikon=dosyaUzantisi&".png"
file_link=Request.ServerVariables("APPL_PHYSICAL_PATH" )&"so-admin/images/dosya/"&ikon
if fs.fileexists(file_link)=false then
ikon="file"&".png"
end if
%>
 |
 |
<%=left(dosyaAdi,30)%>... |
<%=dosyaBoyutu%> Kb |
<%=klasorAdi%> |
<%=sonDegistirme%> |
 |
<%
next
%>
Toplam klasör boyutu : <%=ToplamBoyut%> Mb
<%set fs=NOTHING%>