FSO - klickbar

3 svar · 942 visningar · startad av Trumpf 3 maj 2015

TrumpfMedlem sedan feb. 2004213 inlägg

Trådstart3 maj 2015 19:09#1

Jag har denna kod och den fungerar:

<code>
<%
Dim FSO, myFolder, myFiles

Set FSO = CreateObject("Scripting.FileSystemObject")
Set myFolder = FSO.GetFolder(Server.MapPath("/upload/styrelsen/protokoll/"))
Set myFiles = myFolder.Files

For Each fileFound In myFiles
Response.Write(fileFound.Name & "<br>")
Next
%>

</code>

Skulle vilja ha att alla filer blir klickbara till filen?

angelicaMedlem sedan juli 2013280 inlägg

4 maj 2015 06:34#2

<%
Dim FSO, myFolder, myFiles

Set FSO = CreateObject("Scripting.FileSystemObject")
Set myFolder = FSO.GetFolder(Server.MapPath("/upload/styrelsen/protokoll/"))
Set myFiles = myFolder.Files

For Each fileFound In myFiles
'   Response.Write(fileFound.Name & "<br>")
   Response.Write "<A HREF=""/upload/styrelsen/protokoll/" & fileFound.Name  & """>" & fileFound.Name & "</A><br>" & vbCRLF
   Response.Write "<A HREF=""/upload/styrelsen/protokoll/" & fileFound.Name  & """>" & fileFound.Name & "</A> (" & FormatNumber((fileFound.Size / 1000),1) & " MB)<br>" & vbCRLF
Next
%>

Jag har inte testat detta och .size grejen är en ren gissning! Om det fungerar måste du dela med 1000 för att få MB. Annars blir det Kb, förmodligen...

Som sagt, jag vet inte om det fungerar, men det är lätt för dig att ta reda på! :-)

angelicaMedlem sedan juli 2013280 inlägg

4 maj 2015 06:47#3

https://msdn.microsoft.com/en-us/library/aa711216(v=vs.71).aspx

Nej... jag har tittat på dokumentationen och .size fungerar förmodligen inte.
Testa i så fall .FileSize !
Dessutom, om det fungerar kommer resultatet i bytes, inte Kb... så du får dela med 1.000 två gånger, för att få MB.

prplxrMedlem sedan juni 2012581 inlägg

4 maj 2015 10:23#4

Om filstorleken är av instresse så skall den räknas om i kB/MB/GB såhär:

B -> kB: Bytes / 1024
B -> MB: Bytes / 1048576
B -> GB: Bytes / 1073741824

:-)