Problema Delete and Rename con FSO (forse cache)

[Stan]

Non ci sto capendo niente...

Praticamente ho una cartella con dei file così

1_1.jpg
1_2.jpg
1_3.jpg
1_4.jpg

Con questa istruzione

nome = id & "_" & i & ".jpg"
if objFSO.FileExists(Server.MapPath("../fotoeventi/" & nome)) then
	objFSO.DeleteFile(Server.MapPath("../fotoeventi/" & nome)), true
End if

Cancello una foto ad esempio la 1_2. E funziona (nel senso che la cancella)

Di seguito a quel codice c'è questo (ho provato anche a spostarlo in un altra pagina per dare più tempo boh...)

(praticamente prendo i nomi dei file e li ordino per numero, se lo facevo diretto mi si creavno problemi del genere

1_1
1_11
1_12
1_2
etc...)

i=1
Do while not rsTemp.eof
	NomeIniziale = rsTemp("Foto")
	NomeFinale = id & "_" & i & ".jpg"
	objFso.MoveFile Server.MapPath("../fotoeventi/" & NomeIniziale), Server.MapPath("../fotoeventi/" & NomeFinale)
	response.write NomeIniziale & ">" & NomeFinale & "
"		

	i=i+1
	rsTemp.Movenext
loop

Che dovrebbero rinominare tutte le foto in modo che la sequenza rimanga continua. Il codice sembra buono, non mi pare errato.
Praticamente succede che la foto 1_2 rimane uguale, tutte rimangono uguale, e sparisce solo l'ultima (ma la foto è 1_2 stata cancellata!)

Secondo me è un problema di cache...Ho provato ad aggiungere un ciclo for i per guadagnare tempo...boh...

Come posso fare un refresh della cartella dopo il delete? Oppure come faccio a fare un ritardo? :'(

[Stan]

Pare che funzioni tutti bene...solo che IE continua a mostarmi le foto vecchie, anche quando sul server fisicamente ci sono foto diverse...

[Mems]

Metti in testa alla pagina il codice per evitare il caching delle pagine.

[Stan]

Si è proprio colpa del browser, non me la aggiorna neanche quando faccio REFRESH, mi aggiorna le foto solo quando le rimetto fisicamente, o quando vuoto la cache di IE

all'inzio ho messo questo

<%
Response.ExpiresAbsolute = now()-2
Response.Addheader "pragma","no-cache"
Response.Addheader "cache-control","private"
Response.Cachecontrol="no-cache"
%>

Ma il fatto non è che mi cacherizza la pagina, ma le foto

[Stan]

Ho un'idea.

Se io il file lo ricreo? (così ho un data created che non è più come l'originale e forzo il browser a riscaricare)
Avrei bisogno di un codice, per leggere il file vecchio, e riscriverlo in un file nuovo. Penso vada bene col textstream...e readline/all...

Se lo avete pronto mi fate un piacere, senno provvedo io

[Stan]

Ragazzi ero convinto che bastasse leggere un file con textstream, e riscrivere un file su un altro textstream, ma ho problemi, i file non vengono replicati alla stessa maniera. Qualcuno può aiutarmi?

[Stan]

Risolto metto il codice

Leggere scrivere file binario

Funzioni

Function StringToBinary(String)
  Dim I, B
  For I=1 to len(String)
    B = B & ChrB(Asc(Mid(String,I,1)))
  Next
  StringToBinary = B
End Function

Function MBBinaryToString(Binary)
  dim c1, c2, c3, p1, p2, p3
  Dim L
  c1 = 1 :  c2 = 1 : c3 = 1
  L = LenB(Binary)
 
  Do While c1<=L
    p3 = p3 & Chr(AscB(MidB(Binary,c1,1)))
    c1 = c1 + 1 : c3 = c3 + 1
    if c3>300 then
      p2 = p2 & p3
      p3 = ""
      c3 = 1
      c2 = c2 + 1
      if c2>200 then
        p1 = p1 & p2
        p2 = ""
        c2 = 1
      End If
    End If
  Loop
  MBBinaryToString = p1 & p2 & p3
End Function

Do while not objFileIni.AtEndOfLine
	leggo= tringToBinary(objFileIni.Read(1204*16))
	objFileDest.Write MBBinaryToString(leggo)
loop

objFile Ini e Dest sono due textstream