modifica estensione file

[Grambo]

Ciao a tutti, è possibile modificare l'estensione di un file su server tramite asp?
Io voglio che il file dati.txt venga scaricato come dati.html

ho provato con il move

fsoMyFile.MoveFile Server.MapPath("/public/dati.txt"), Server.MapPath("/public/dati.html"), True

ma ovviamente non funge

forse va modificato in fase di download?

[optime]

http://classicasp.aspfaq.com/files/d...temobject.html

il primo risultato ottenuto googlando

facce sape'

[Grambo]

Originariamente inviato da optime
http://classicasp.aspfaq.com/files/d...temobject.html

il primo risultato ottenuto googlando

facce sape'

Originariamente inviato da Grambo
fsoMyFile.MoveFile Server.MapPath("/public/dati.txt"), Server.MapPath("/public/dati.html"), True

quello non va


nel senso che cambia il nome ma non l'estensione

[Grambo]

ok sistemato

utilizzando codici che ho già scritto negli anni (per velocizzare il lavoro ) , non avevo fatto caso che forzando il download potevo rinominare il file

posto il codice..magari serve a qualcuno

<%@ Language=VBScript %>
<%
Response.Expires=0
Response.Buffer=0
Const CHUNK = 2048
strFilePath = Server.MapPath("/public/dati.txt")
Set fso = Server.CreateObject("Scripting.FileSystemObject")
' Controllo se esiste il file
if fso.FileExists(strFilePath) then
set objFile = fso.GetFile(strFilePath)

'Response.AddHeader "Content-Disposition", "attachment; filename=" & objFile.Name   <- l'errore era qua
Response.AddHeader "Content-Disposition", "attachment; filename=dati.html" ' <- file con estensione modificata in fase di download
 
Response.AddHeader "Content-Length", objFile.Size
Response.ContentType = "application/octet-stream"
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = 1 ' adTypeBinary
objStream.LoadFromFile strFilePath
lSize = objStream.Size
lBlocks = 1
For lBlocks = lBlocks To lSize \ CHUNK
If Response.IsClientConnected = False Then Exit For
Response.BinaryWrite objStream.Read(CHUNK)
Next
lSize = lSize Mod CHUNK
If lSize > 0 And Response.IsClientConnected = True Then
Response.BinaryWrite objStream.Read(lSize)
End If
objStream.Close
Set objStream = Nothing
end if
%>

grazie

[Grambo]

mi sorge un'altra necessità

quando avvio il programma avrò in automatico il salvataggio del file dati.html, e tutto ok

ma se riavvio il programma avrò in automatico il salvataggio di dati(1).html...è possibile andare a sostituire il file precedentemente salvato?

dal codice che ho postato sopra non riesco a farlo

[optime]

no compriendo... abbi pietà del mio unico povero neurone rimasto e spiega bene il problema

[lucavizzi]

Vuole sovrascrivere il file se già esiste.
Basta cancellarlo prima di salvare il nuovo.

if fso.FileExists(strFilePath) then
   fso.DeleteFile(strFilePath)
end if

[Grambo]

Originariamente inviato da lucavizzi
Vuole sovrascrivere il file se già esiste.
Basta cancellarlo prima di salvare il nuovo.

if fso.FileExists(strFilePath) then
   fso.DeleteFile(strFilePath)
end if

sul server è gia funzionante la sovrascrittura

però io voglio sovrascriverlo in fase di download con quello gia esistente sul pc

[optime]

Originariamente inviato da Grambo
però io voglio sovrascriverlo in fase di download con quello gia esistente sul pc

immaginavo una stramberia del genere, ho fatto bene a chiedere chiarimenti credo proprio che non si possa interagire col PC dell'utente (aggiungo: per fortuna!)

[Grambo]

Originariamente inviato da optime
immaginavo una stramberia del genere, ho fatto bene a chiedere chiarimenti credo proprio che non si possa interagire col PC dell'utente (aggiungo: per fortuna!)

interagire con il pc?

non posso nemmeno far visualizzare a video una richiesta di conferma per la sovrascrittura?

il pc con cui vorrei interagire è il mio...
il problema è che chi userà questo programma (mio padre) si dimentica di cancellare il vecchio file .. e l'importazione in excel non funziona correttamente