Avatar billede stkol Nybegynder
24. august 2005 - 13:51 Der er 7 kommentarer og
1 løsning

Oprydning af billeder efter ASPImage

Hejsa

Jeg bruger idag ASPImage til at lave forskellige størrelser af billeder som bliver genereret udfra en original. Disse bliver så lagt i en mappe med et unikt filnavn på webserveren. Denne mappe vokser sig enorm stor nu flere der går ind på sitet og det er ikke muligt at få ryddet op manuelt før end pladsen er brugt på serveren.

Findes der et script eller en anden måde hvor jeg automatisk kan få slettet indholdet af mappen hvor temp billederne bliver smidt??

Mvh

Stig :-)
Avatar billede busschou Praktikant
24. august 2005 - 13:57 #1
hvis du kigger på FSO objectet har du mulighed for at slette filer og foldere
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/jsoriFileSystemObjectMethods.asp
Evt kan du lave et script som sletter hele folderen, og dernæst opretter folderen igen
Herved "tømmes" folderen
Avatar billede busschou Praktikant
24. august 2005 - 13:59 #2
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFolder("d:\sti_til_folder\din_folder")
fso.CreateFolder("d:\sti_til_folder\din_folder")
Avatar billede busschou Praktikant
24. august 2005 - 14:00 #3
Det bliver selvfølgelig ikke gjort automatisk, men du kan jo så enten gå ind på siden med det script engang imellem, eller få global.asa til at køre scriptet for hver 100 besøgende eller lignende
Avatar billede stkol Nybegynder
24. august 2005 - 14:15 #4
Hejsa Busschou

Hvad hvis jeg ikke kender drev stien på serveren (Den er hostet) kan jeg så stadig bruge FSO, og hvordan gøres dette??

Har du et eksempel på det du nævner med global.asa??

Mvh

Stig :-)
Avatar billede busschou Praktikant
24. august 2005 - 14:20 #5
det kræver som minimum at du kender folderen, så kan du jo i stedet for at benytte "d:\sti_til_folder\din_folder" benytte server.mappath("/din_folder")
---
Angående global.asa, så kan du lave noget ala
---
Sub Application_OnStart
  Application("antal") = 0
End Sub

Sub Session_OnStart
  Application.Lock
  Application("antal") = Application("antal") + 1
  If Application("antal") = 100 Then
    Set fso = CreateObject("Scripting.FileSystemObject")
    fso.DeleteFolder(server.mappath("/din_folder"))
    fso.CreateFolder(server.mappath("/din_folder"))
    Application("antal") = 0
  End If
  Application.UnLock
End Sub
-----
hvis du er ny i global.asa så læs evt min artikkel derom :o)
http://www.eksperten.dk/artikler/752
Avatar billede stkol Nybegynder
24. august 2005 - 15:40 #6
Hej igen

Se nu er vi ved at finde en løsning!! Fedt!! Jeg vil lige få det testet af og så vender jeg tilbage til dig!!

Mvh

Stig :-)
Avatar billede stkol Nybegynder
25. august 2005 - 21:38 #7
Hej Busschou

Det virker :-) 1000 Tak for hjælpen *S Smider du lige et svar??

Hilsen

Stig :-)
Avatar billede busschou Praktikant
25. august 2005 - 21:42 #8
ja , godt det virker :o)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester