Find og slet relevante biblioteker

sub ChkDelFolder(f)
        for each folder in f.Subfolders
            if (folder.name="delete") or (folder.name="sent") then folder.delete() else    ChkDelFolder(folder)
        next
    end sub
   
    startFolder="./"
    dim folder,folderCol
    Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
    set folder = objFSO.getFolder(server.MapPath(startFolder))
    ChkDelFolder(folder)
    set folder = nothing
    set objFSO = nothing

Havde nok selv valgt et script hvis du alligevel har adgang til serveren. Det ser sådan ud - næsten magen til og skal bare gemmes som navn.vbs
    sub ChkDelFolder(f)
        for each folder in f.Subfolders
            if (folder.name="delete") or (folder.name="sent") then folder.delete() else    ChkDelFolder(folder)
        next
    end sub
   
    startFolder="C:\minfolder\folder"
    dim folder,folderCol
    Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
    set folder = objFSO.getFolder(startFolder)
    ChkDelFolder(folder)
    set folder = nothing
    set objFSO = nothing

Fedt, takker :-)

Har adgang til serveren (min egen server på internet), men hvordan køres din vbs-fil (nu hvor du anbefaler at køre det som et script)?

...script... jeg tænker på scheduleren (f.eks. kl. 03:00 hver nat). Script skal bruges til at purge folks slettede og sendt post.

Nu valgte jeg lige asp, fordi det er det sprog jeg er bedst i (dermed ikke sagt at jeg er go i det ;-)

det virker på samme måde. Du gemmer bare filen som minfil.vbs og filen køres ved at dobbletklikke på den, og den kan også bare lægges i scheduleren, men hvis du har mere styr på asp, så bruger du bare det :-)

Takker igen :-)

Men jeg tror, at vi mangler et ekstra loop, fordi den leder efter "deleted" og "sent" inde i "C:\Program Files\Mail Enable\Postoffices" og det skal den ikke.

Den skal ind i hver oprettet postkontor og checke efter "deleted" og "sent".

F.eks.: C:\Program Files\Mail Enable\Postoffices\MitPostKontor1\

Bemærk at jeg har flere postkontorer.

sub ChkDelFolder(f)
    for each folder in f.Subfolders
            if (folder.name="delete") or (folder.name="sent") then
                'tester først
                'folder.delete()
            response.write "sletter"
            else
                ChkDelFolder(folder)
        end if
          next
end sub
   
startFolder="C:\Program Files\Mail Enable\Postoffices"
dim folder,folderCol
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
set folder = objFSO.getFolder(startFolder)
ChkDelFolder(folder)
set folder = nothing
set objFSO = nothing

prøv følgende, det er ikke testet
sub ChkDelFolder(f)
    for each folder in f.Subfolders
            if (folder.name="delete") or (folder.name="sent") then
                'tester først
                'folder.delete()
            response.write "sletter"
            else
                ChkDelFolder(folder)
        end if
          next
end sub
   
startFolder="C:\Program Files\Mail Enable\Postoffices"
dim folder,folderCol
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
set f = objFSO.getFolder(startFolder)

for each folder in f.subfolders
    ChkDelFolder(folder)   
next
set folder = nothing
set objFSO = nothing

Sorry

Den skal ind i hver oprettet postkontor... = Den skal ind i hver oprettet postkontorS EMAIL-ADRESSE...

Hele struktur er:

C:\Program Files\Mail Enable\Postoffices\MyDomainDK1\mailroot\webmaster

Hvilket er lig med webmaster@MyDomain1.dk

Ok, så ikke lige at du havdet postet et svar. Jeg tester lige.

hvis det ikke er sådan du vil have det, skal jeg lige have skåret ud i pap hvor den skal kigge og hvor den ikke skal kigge :-)'

Ovenstående skal være med den oprindelige funktion ChkDelFolder

Jubii, så nu fandt den noget, men den er ikke glad for:

response.write "sletter"

Hvad skal jeg så skriv? Jeg vil gerne lige udskrive biblioteksnavnet - på en anden anden måde i min test - inden den får lov til at slette løs hver nat ;-)

anden anden = en eller anden

Brug
msgbox folder.name

Takker mange gange for hjælpen - det var alle 200 points værd det svar :-)

Nu slipper jeg for at købe den dyre version af en mailserver, men kan nøjes med den billige, som med lidt udbygninger her og der, kan det samme som dyre version.

Ups, kom selv til at trykke svar... men du fik dine points :)

Ja, der kan man se, hvad man selv kan lave med 10 linier :-) Tak for points

Har lige oprettet: http://www.eksperten.dk/spm/570069