Nån som vet hur jag ska göra i FSO för att sätta en viss Query på en/flera mapp/ar så att man inte kan ladda upp mer än 10Mb i den Hur skall du ladda upp filerna? Med en uppladdningskomponent? SA-FileUp är en uppladdningskomponent för att kunna spara ner filer från webbläsaren till servers filsystem, medan FSO (FileSystemObject) är ett objekt för att hantera filer i filsystemet (alltså inte själva uppladdningen). Lite klurig grej!!
och sedan om man försöker ladda upp mer så går d inte
Och om man har typ 2Mb kvar och laddar upp en fil på 2,3Mb så ska den avbryta
Nån som vet hur jag ska göra??
Vore tacksam för hjälp
Tack på förhand
//JonnieSv: Lite klurig grej!!
Om du använder SA-Fileup så kan du göra så här:
<code>
'Maxstorlek på destinationsmappen i bytes.
'Ange hur stor den skall vara. Byt ut 50 som jag använde för
'att testa mot en fil
maxFolderSize = 50
Dim upl 'as objekt
Dim file
' skapa upload objekt
Set upl = Server.CreateObject("SoftArtisans.FileUp")
file = upl.Form("file")
'hur stor är filen som skall laddas upp
Dim fileTotBytes 'as Integer
fileTotBytes = upl.Form("file").TotalBytes
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(Server.MapPath("."))
Dim currFolderSize 'as Integer
'hur stor är destinationsmappen just nu
currFolderSize = objFolder.Size
Set objFSO = Nothing
Dim diffBytes 'as Integer
'Utrymme kvar i mappen
diffBytes = maxFolderSize - currFolderSize
If fileTotBytes > diffBytes Then
'filen är för stor
'Du får göra något här som meddelar användern detta. Kanske en
'response.redirect eller något.
Response.Write "för stor fil"
Else
'spara upp filen..
'här får du själv skriva den kod som behövs
End if
</code>
Kan det vara något?
// PutteSv: Lite klurig grej!!
Lev väl,
Tom S.