Delete File after User download

[TOI DAY]

Hi all,

How can I delete the file on the server after the user download it?

For example:

I have file name "123.txt" on a server, I copy it to "ABC.txt", then
allow uer download the "ABC.txt" file, then I try to delete file
"ABC.txt", but I can not do it. I can delete the ABC.txt before I copy
it.

here is my code:

File.Copy(_File Path_Name, fileOrgName)

'SAVE FILE ON THE CLIENT SIDE
Dim objStream As New ADODB.Stream
Response.Clear( )
filePath = Convert.ToStrin g(strFolder + _FileName)
objStream.Open( )
objStream.Type = ADODB.StreamTyp eEnum.adTypeBin ary
objStream.LoadF romFile(filePat h)
Response.AddHea der("Content-Disposition", "attachment ;
fileName = " & _FileName)
Response.Charse t = "UTF-8"
Response.Conten tType = "applicatio n/octet-stream"
Response.Binary Write(objStream .Read)
Response.Flush( )
Response.End()
objStream.Close ()

File.Delete(fil ePath) 'It never go here

[Marina]

The reason it never gets there, is because you call Response.End. That
means objStream.Close never gets executed either.

"TOI DAY" <nt******@yahoo .com> wrote in message
news:e2******** *************** ***@posting.goo gle.com...

Hi all,

How can I delete the file on the server after the user download it?

For example:

I have file name "123.txt" on a server, I copy it to "ABC.txt", then
allow uer download the "ABC.txt" file, then I try to delete file
"ABC.txt", but I can not do it. I can delete the ABC.txt before I copy
it.

here is my code:

File.Copy(_File Path_Name, fileOrgName)

'SAVE FILE ON THE CLIENT SIDE
Dim objStream As New ADODB.Stream
Response.Clear( )
filePath = Convert.ToStrin g(strFolder + _FileName)
objStream.Open( )
objStream.Type = ADODB.StreamTyp eEnum.adTypeBin ary
objStream.LoadF romFile(filePat h)
Response.AddHea der("Content-Disposition", "attachment ;
fileName = " & _FileName)
Response.Charse t = "UTF-8"
Response.Conten tType = "applicatio n/octet-stream"
Response.Binary Write(objStream .Read)
Response.Flush( )
Response.End()
objStream.Close ()

File.Delete(fil ePath) 'It never go here

[Ted NewGen]

Do you know how I can get around it.

Thanks

*** Sent via Devdex http://www.devdex.com ***
Don't just participate in USENET...get rewarded for it!