Turvenn.no

Webutvikler kurs ASP.NET, C#, CSS mm.

WebRessurs.no - Webprogrammering og ressurs innen ASP, ASP.NET, PHP, SQL, HTML, CSS, Javascript, XML, C#, VB, Flash mm.

KODE EKSEMPLER

ASP.net (199)

ASP 3.0 (111)

PHP (30)

HTML (66)

SQL (89)

CSS (46)

XML (7)

JavaScript (78)

Diverse kode (13)

ARTIKLER / RESSURSER

Programmering (22)

System og drift (15)

Trafikk og inntekt (11)

Guider og tips (22)

Nyttig lesestoff (23)

Web forum (604)

Link galleri (565)

KURS / TUTORIALS

ASP.NET kurs(5)

CSS kurs (2)

JQuery kurs (2)

FILM / MEDIA

Øk trafikken (8)

Facebook App. (4)

Microsoft CEO (6)

GRATIS SOFTWARE

Internett & epost

Diverse software

TJENESTER

Websikre farger

WebMail

ANNET

Forsiden

INTERNETT HASTIGHET

Mål internetthastigheten din.

Finne owner, author, size og andre egenskaper til en fil.

av Øyvind A. Isaksen

Dette skriptet vil liste ut alle filer i en mappe, og vise filnavn, type, størrelse, created/modified/accessed date, owner og fil atributter. Koden er testet på Windows 2003, Windows XP og Windows 2003 Server.

<style>
body,td,th { font-family:tahoma;font-size:8pt }
</style>
<%
filesz = 0
fileown = 8

srv = Request.ServerVariables("SERVER_SOFTWARE")
if instr(srv,"/5.0")>0 then

filesz = 1
filecr = 6
fileac = 7
fileat = 4

elseif instr(srv,"/5")>0 or instr(srv,"/6")>0 then

filesz = 1
filecr = 4
fileac = 5
fileat = 6

end if

if filesz > 0 then

folder = "c:\"

response.write "<b>File listing for " & folder & "</b><p>"
response.write "<table border=1 cellpadding=5 cellspacing=0>"
response.write "<tr>"
response.write "<th>Filename</th>"
response.write "<th>Type</th>"
response.write "<th>Size</th>"
response.write "<th>Created</th>"
response.write "<th>Modified</th>"
response.write "<th>Accessed</th>"
response.write "<th>Owner</th>"
response.write "<th>Attributes</th>"
response.write "</tr>"

tds = "<td><nobr> "
tde = " </nobr></td>"

Set sh = CreateObject("Shell.Application")
set fl = sh.Namespace(folder)

for each f in fl.Items
if not f.IsFolder then
p = f.path
fn = right(p, len(p)-instrRev(p,"\"))
response.write "<tr>" & _
tds & fn & tde & _
tds & f.type & tde & _
tds & fl.GetDetailsOf(f,filesz) & tde & _
tds & fl.GetDetailsOf(f,filecr) & tde & _
tds & f.modifyDate & tde & _
tds & fl.GetDetailsOf(f,fileac) & tde & _
tds & fl.GetDetailsOf(f,fileown) & tde & _
tds & fl.GetDetailsOf(f,fileat) & tde & _
"</tr>"
end if
next

set fl = nothing
set sh = nothing

response.write "</table>"
else
response.write "Unable to process results."
end if
%>

------------------------
------------------------

Skal du bare ha feks størrelsen på en fin kan du gjøre slik:

<%
thisFile = Request.ServerVariables("SCRIPT_NAME")
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.GetFile(Server.MapPath(thisFile))
Response.Write "Size of file: " & file.size & " bytes, " & _
formatnumber(file.size/1024, 2) & " KB"
Set file = nothing
Set fso = nothing
%>

WebRessurs.no anbefaler: StackOverflow.com | Experts-Exchange.com | W3schools | ASP.NET | Codeproject | 4Guys

WebRessurs.no er utviklet og drives av SoftMaker
Sett som startside: [ ]. Bokmerk denne siden: [ klikk ]. Sitemap. http://twitter.com/webressurs_no/. Antall brukersesjoner: 14119928.
Copyright WebRessurs.no © 2003 - 2018

Jobbsøk.no - Jobbsøknad, CV, intervju, tips og lenker