check first to see if the file exists

crmpicco · December 1st, 2005, 11:12 AM

Code:

Response.ContentType = "application/pdf"

Dim stream
Set stream = Server.CreateObject("ADODB.Stream")
Call stream.Open()
stream.Type = 1
Call stream.LoadFromFile(Server.MapPath("../../../../net_contract_pdf/"&airline&"/"&filename&".pdf"))
Call Response.BinaryWrite(stream.Read())
Set stream = Nothing

Response.Flush
Response.End

is there any way to check first to see if the file exists? if it doesnt then do other code?

TIA

www.crmpicco.co.uk

Imar · December 1st, 2005, 11:16 AM

Sigh.... Here we go again:

http://www.google.com/search?hl=en&q...ck+file+exists

You can even do an I Feel Lucky on this query.

You are aware of a website called Google, aren't you?

Imar
---------------------------------------
Imar Spaanjaars
Everyone is unique, except for me.

crmpicco · December 1st, 2005, 12:34 PM

Code:

 Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists ("yourfile.txt") Then
Response.Write "File exists"
Else
Response.Write "File does not exist"
End If

thanks, this works.....

www.crmpicco.co.uk