Problemi con delete folder di FSO

[Vitacillina]

Ciao, con questo script elimino tramite FSO le cartelle con la data più vecchia di 3 giorni rispetto ad oggi.

<%

strData = DateAdd("d", -3, Date())

DatadiOggi = replace(strData, "/", "_")

response.write strDATA & "
" & DatadiOggi & "

"

cartella = Server.mapPath("\mac\public\bk_mysql\" & DatadiOggi)
response.write cartella &"
"

Set xfs = CreateObject("Scripting.FileSystemObject")

if xfs.FolderExists(trim(cartella)) then
   xfs.DeleteFolder(trim(cartella))   
   response.write "Cartella cancellata !"
else
   response.write "La cartella non esiste !"  
end if

set xfs = nothing

%>

La cartella 18_04_2008 sul server esiste e viene cancellata regolarmente.

Ma se volessi cancellare tutte quelle cartelle che ricadono nella settimana precedente, come devo fare?

Ad esempio:

Oggi è il 21_04_2008

Devo eliminare tutte le cartelle che vanno da oggi a meno -7, cioè le cartelle:

20_04_2008
19_04_2008
18_04_2008
17_04_2008
16_04_2008
15_04_2008
14_04_2008

Grazie

[Roby_72]

for x = 0 to 7
    response.Write dateadd("d", x, date()-7) &"
"
next

Roby

[Vitacillina]

Grazie, ho scritto così, ma elimina anche la cartella con la data di oggi che non dovrebbe essere eliminata... :

Set xfs = CreateObject("Scripting.FileSystemObject")

for i = 0 to 7
    strData = dateadd("d", i, date()-7)
    DatadiOggi = replace(strData, "/", "_")
    
    response.Write DatadiOggi &"
"

    cartella = Server.mapPath("\mac\public\bk_mysql\" & DatadiOggi)
    response.write cartella &"
"    
	 
if xfs.FolderExists(trim(cartella)) then
   xfs.DeleteFolder(trim(cartella))   
   response.write "Cartella cancellata !

"
else
   response.write "La cartella non esiste !

"  
end if

next

set xfs = nothing

[Roby_72]

for i = 1 to 7

Roby

[Vitacillina]

Originariamente inviato da Roby_72

for i = 1 to 7

Roby

Anche con il tuo suggerimento mi cancella la cartella con la data di oggi, avrei risolto così e sembra funzionare:

Set xfs = CreateObject("Scripting.FileSystemObject")

for i = 1 to 7
    strData = dateadd("d", i, date()-7)
    DatadiOggi = replace(strData, "/", "_")
    
    response.Write Date() &"
Data di oggi = " & strData &" 
Trasformazione data = " & DatadiOggi &"
"

    cartella = Server.mapPath("\mac\public\bk_mysql\" & DatadiOggi)
    response.write cartella &"
"

if strData <> date() then  
	 
if xfs.FolderExists(trim(cartella)) then
   xfs.DeleteFolder(trim(cartella))   
   response.write "Cartella cancellata !

"
else
   response.write "La cartella non esiste !

"  
end if

else

  response.write "La cartella con la data di oggi NON è stata cancellata
"

end if

next

set xfs = nothing

[Vitacillina]

Ciao, sto facendo varie prove.

Se modifico così:

for i = 1 to 3
    strData = dateadd("d", i, date()-3)
next

Si cancellano le cartelle più vicine alla data di oggi, cioè:

19_04_2008
20_04_2008

E mi rimangono le cartelle più vecchie cioè:

18_04_2008
17_04_2008
16_04_2008
15_04_2008
14_04_2008

Dovrebbe invece eliminare quelle più vecchie e cioè:

15_04_2008
14_04_2008

Come risolvo?