cancellare un file dal sito tramite asp

[azocomposto]

ciao,
spiego brevemente il problema: ho installato sul sito un rich text editor, il quale funziona perfettamente. L'unico problema è che quando salvo la pagina, mi viene salvata con un'altro nome, non con quella desiderata, cioè invece di soverascrivere mi dice che ne ha creato una nuova. Come posso far cancellare i file vecchi così da dargli lo stesso nome?

Ciao grazie

[Mems]

Con l'oggetto FileSystem.

path = server.mapPath("\cartella\file.asp")
set fso = server.createObject("scripting.fileSystemObject")
fso.DeleteFile(Path)
set fso = nothing

[azocomposto]

grazie mems,
ma come faccio a decidere quale file cancellare? così ne cancellerei soltanto uno, e poi, come posso dargli io il comando di cancellarlo?
Mi spiego meglio: implementare tale script in un modulo che mi faccia scegliere il file da cancellare, e poi cliccare sul bottone cancella!
Questo è possibile?

Grazie
ciao

[Mems]

Certo.
Suppongo che i tuoi file stiano tutti in una unica cartella.
Fai una pagina che li elenca, sempre usando FSO, leggi la cartella e con un ciclo elenchi i file.
Accanto ad ogni file metti un tasto per cancellare il file.
Il tasto passa ad una pagina il path del file da cancellare. In questa pagina recuperi il path del file da cancellare e lo passi alla funzione che esegue la cancellazione.
Facile, no?

[azocomposto]

facile? mi sembra che non ho capito nulla....se magari lo sistemeresti in un paio di pagine asp come esempio e lo mandi come messaggio privato, mi farebbe comodo...

ciao grazie

[Mems]

Sto su Linux adesso e non ho modo di provare alcun script.
Posso provare a scrivere qui, di getto, del codice senza poterlo testare.
Basta editare la variabile basePath mettendo il path assoluto della cartella con cui interagire.

<%
page = request.serverVariables("PATH_INFO")
fileToDelete = request.queryString("fileToDelete")
basePath = "/cartella/"
response.write "File presenti nella cartella " & basePath & "
" & vbCrLf
set fso = server.createObject("scripting.fileSystemObject")
  if len(fileToDelete) > 0 then
    if fso.fileExists(server.mapPath(basePath & fileToDelete)) then
      fso.deleteFile(server.mapPath(basePath & fileToDelete)) 
    end if
  end if
  set folder = fso.getFolder(server.mapPath(basePath))
    set files = folder.files
      response.write "<ul>" & vbCrLf
      for each file in files
        response.write "[*]" & file.name & " - " Elimina" & vbCrLf
      next
      response.write "[/list]" & vbCrLf
    set files = nothing
  set folder = nothing
set fso = nothing
%>

[azocomposto]

grazie mems, sei troppo gentile,
appena ho un pò di tempo lo provo e ti faccio sapere.

ciao grazie ancora

[michele.santoro]

Originariamente inviato da Mems
Sto su Linux adesso e non ho modo di provare alcun script.
Posso provare a scrivere qui, di getto, del codice senza poterlo testare.
Basta editare la variabile basePath mettendo il path assoluto della cartella con cui interagire.

<%
page = request.serverVariables("PATH_INFO")
fileToDelete = request.queryString("fileToDelete")
basePath = "/cartella/"
response.write "File presenti nella cartella " & basePath & "
" & vbCrLf
set fso = server.createObject("scripting.fileSystemObject")
  if len(fileToDelete) > 0 then
    if fso.fileExists(server.mapPath(basePath & fileToDelete)) then
      fso.deleteFile(server.mapPath(basePath & fileToDelete)) 
    end if
  end if
  set folder = fso.getFolder(server.mapPath(basePath))
    set files = folder.files
      response.write "<ul>" & vbCrLf
      for each file in files
        response.write "[*]" & file.name & " - " Elimina" & vbCrLf
      next
      response.write "[/list]" & vbCrLf
    set files = nothing
  set folder = nothing
set fso = nothing
%>

Una piccolissima svista:

response.write "[*]" & file.name & " - " Elimina" & vbCrLf

Ci sono le virgolette in rosso di troppo. Per il resto tutto OK!

[Mems]

Originariamente inviato da michele.santoro
Una piccolissima svista:

response.write "[*]" & file.name & " - " Elimina" & vbCrLf

Ci sono le virgolette in rosso di troppo. Per il resto tutto OK!

Grazie

[azocomposto]

ciao mems,
ho provato lo script in asp (che mi scrissi alcuni giorni fa) per cancellare un file dal server, ma l'ho provato solo oggi perchè avevo un esame, comunque, lo script mi da errore quando clicco su elimina e il browser restituisce un errore interno del server 500.
Allora come segnalato dall'utente santoro:
ho provveduto a rimuovere le virgolette " segnate in rosso.
Il problema è che il browser mi restituisce l'errore a livello della riga 9 cioè in questo punto:
fso.deleteFile(server.mapPath(basePath & fileToDelete))

ti scrivo il codice che ho inserito nella pagina asp:

<%
page = request.serverVariables("PATH_INFO")
fileToDelete = request.queryString("fileToDelete")
basePath = "/prove/"
response.write "File presenti nella cartella " & basePath & "
" & vbCrLf
set fso = server.createObject("scripting.fileSystemObject")
  if len(fileToDelete) > 0 then
    if fso.fileExists(server.mapPath(basePath & fileToDelete)) then
      fso.deleteFile(server.mapPath(basePath & fileToDelete)) 
    end if
  end if
  set folder = fso.getFolder(server.mapPath(basePath))
    set files = folder.files
      response.write "<ul>" & vbCrLf
      for each file in files
        response.write "[*]" & file.name & " -  Elimina" & vbCrLf
      next
      response.write "[/list]" & vbCrLf
    set files = nothing
  set folder = nothing
set fso = nothing
%>

grazie, sei molto gentile