Få ut filstorlek med FSO?

En liknande den här kör jag, ´kan ju ge dig en ide.

<%
Dirfolder = "mappnamn"

Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set Folder = FSO.GetFolder("C:\Inetpub\wwwroot\" & Dirfolder)
set Files = Folder.Files

For each Item In Files

	response.write fileNamn(Item.Name) & "<br>"
	response.write Item.Name & "<br>"
	response.write fileExtension(Item.Name) & "<br>"
	response.write getFileSize(Item.Size) & "<br>"
	response.write Left(Item.DateCreated,10) & "<br>"
	response.write Left(Item.DateLastAccessed,10) & "<br>"
	response.write Left(Item.DateLastModified,10) & "<br>"
	response.write "<br>"

	totsize = totsize + Item.Size

Next

set Folder = nothing
set FSO = nothing
set Files = nothing

response.write "Total storlek: " & getFileSize(totsize) & "<br>"

'============================================================
'FUNKTIONER

function getFileSize(int)
If int > 1000 then
	getFileSize = round(int/1024,0) & " KB"
Else
	getFileSize = "1 KB"
End If
end function

Function fileExtension(filename)
arrArray = Split(filename,".")
fileExtension = arrArray(1) 
End Function

Function fileNamn(filename)
  fileNamn = lcase(left(filename,instr(filename,".") -1))
End Function
%>

Tack solbulle! :) :bire
Ska försöka vidareutveckla! :)

Varsågod. :)

Men om jag vill att man ska kunna klicka på filen.. hur gör jag det.. typ: http://localhost/sin_adec/filnamnet..

<%

Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set Folder = FSO.GetFolder("C:\mina dokument\mina webbplatser\Sin_adec")
set Files = Folder.Files

For each Item In Files

	response.write Item.Name & "<br>"

Next

set Folder = nothing
set FSO = nothing
set Files = nothing

 '===========================================================

'FUNKTIONER

function getFileSize(int)
If int > 1000 then
	getFileSize = round(int/1024,0) & " KB"
Else
	getFileSize = "1 KB"
End If
end function

Function fileExtension(filename)
arrArray = Split(filename,".")
fileExtension = arrArray(1) 
End Function

Function fileNamn(filename)
  fileNamn = lcase(left(filename,instr(filename,".") -1))
End Function
%>

<%

Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set Folder = FSO.GetFolder("C:\mina dokument\mina webbplatser\Sin_adec")
set Files = Folder.Files

For each Item In Files

	'response.write Item.Name & "<br>"

response.write "<a href=""" & Item.Name & """>" & Item.Name & "</A>" & "<br>"

Next

set Folder = nothing
set FSO = nothing
set Files = nothing

  '===========================================================

'FUNKTIONER

function getFileSize(int)
If int > 1000 then
	getFileSize = round(int/1024,0) & " KB"
Else
	getFileSize = "1 KB"
End If
end function

Function fileExtension(filename)
arrArray = Split(filename,".")
fileExtension = arrArray(1) 
End Function

Function fileNamn(filename)
  fileNamn = lcase(left(filename,instr(filename,".") -1))
End Function
%>

...fast det fungerar iofs bara om scriptet är i samma folder som filerna kom jag på.
Annars kan du lägga sökvägen till mapper i en variabel (som i orginalet) och använda dig av den i länken, alternativvt kanske mappath..

Tack..

Hej igen..
undrar bara hur jag ska göra om jag vill visa en innehållet i en medlemms mapp

<%
strUsername = Recset("anv")

Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set Folder = FSO.GetFolder("C:\mina dokument\mina webbplatser\)  '<---- här vill jag att det ska vara \\mina webbplatser\"användarnamnet"......
set Files = Folder.Files

For each Item In Files

	'response.write Item.Name & "<br>"

response.write "<a href=""" & Item.Name & """>" & Item.Name & "</A>" & "<br>"

Next

...
..

..
%>

Pröva

Set Folder = FSO.GetFolder("C:\mina dokument\mina webbplatser\" & strUsername)

Tack så mycket..