5 svar · 194 visningar · startad av Mz
Hej!
Hittade denna snutten här på Webforum:
<%
Set fso = CreateObject("Scripting.FileSystemObject")
Set fil = fso.GetFile(Server.MapPath("bild.gif"))
storlek = fil.size
storlek2 = storlek / 1000
%>
Hur gör jag för att skapa en funktion av denna så jag slipper skriva hela snutten om och om igen?
Tack på förhand.
Nåt sånt här kanske:
Function getFileSize(strFil)
Set fso = CreateObject("Scripting.FileSystemObject")
Set fil = fso.GetFile(Server.MapPath(strFil))
storlek = fil.size
getFileSize = storlek / 1000
Set fil = Nothing
Set fso = Nothing
End Function
Du anropar den såhär:
storlek = getFileSize("bild.gif")
Jag körde in det så här:
<%
Function getFileSize(strFil)
Set fso = CreateObject("Scripting.FileSystemObject")
Set fil = fso.GetFile(Server.MapPath(strFil))
storlek = fil.size
getFileSize = storlek / 1000
Set fil = Nothing
Set fso = Nothing
End Function
Response.Write getFileSize(RecSet("file"))
%>
Den hämtar sökvägen till filen från databasen...
När jag kör detta hänger sig hela IIS. 
Någon som vet varför?
<%
Function getFileSize([b]ByVal[/b] strFil)
Set fso = CreateObject("Scripting.FileSystemObject")
Set fil = fso.GetFile(Server.MapPath(strFil))
storlek = fil.size
getFileSize = storlek / 1000
Set fil = Nothing
Set fso = Nothing
End Function
strFil = RecSet("file")
Response.Write getFileSize(strFil)
%>
vet inte om det hjälper men det kan ju vara värt ett försök 
det jag gjorde vara att lägga till ett ByVal(ByValidate) och sen la jag in RecSet("file") i en variabel .... du kan ju testa
Tyvärr, hela IIS hänger sig igen och måste startas om...