How to check for a file before I upload??

[Helixpoint]

I upload a file with the following code. Is there a way to check to see if
the file is currently there before I upload?

Dim s1 As String
Dim s2 As String
Dim pos As Integer
s1 = file1.PostedFil e.FileName
pos = s1.LastIndexOf( "\") + 1
s2 = s1.Substring(po s)
file1.PostedFil e.SaveAs("C:\In etpub\wwwroot\x xxxx\images\mac hines\" & s2)
file_uploaded.T ext = "<strong>" & s2 & " has been uploaded!</strong>"
' Add a new userRole to the database
Dim MachID = Session("select edMachineID")
Dim admin As New ASPNETProduct.m achinedb
admin.AddMachIm age(MachID, s2)
--

_______________ _______
David Fetrow
HelixPoint LLC.
http://www.helixpoint.com
da***@helixpoin t.com

Interested in Affordable Email Marketing?
Check out the HelixMailer at http://www.helixpoint.com/helixmailer.asp
If you are interested in becoming a Reseller of HelixPoint products, contact
da***@helixpoin t.com
_______________ _______

[bruce barker]

the only way for the browser to send the filename is to post the file. you
can check on the server side, and display an error if the file exits, but
the client pays the upload cost (delay) before the message appears.

if you want the client to check first, send a list of uploaded files to the
client (say in a hidden field) and have client code triggered by the
onsubmit event, check if it has already been uploaded. just a couple lines
of javascript.

-- bruce (sqlwork.com)
"Helixpoint " <da**@helixpoin t.com> wrote in message
news:#z******** *****@TK2MSFTNG P12.phx.gbl...

I upload a file with the following code. Is there a way to check to see if
the file is currently there before I upload?

Dim s1 As String
Dim s2 As String
Dim pos As Integer
s1 = file1.PostedFil e.FileName
pos = s1.LastIndexOf( "\") + 1
s2 = s1.Substring(po s)
file1.PostedFil e.SaveAs("C:\In etpub\wwwroot\x xxxx\images\mac hines\" & s2)
file_uploaded.T ext = "<strong>" & s2 & " has been uploaded!</strong>"
' Add a new userRole to the database
Dim MachID = Session("select edMachineID")
Dim admin As New ASPNETProduct.m achinedb
admin.AddMachIm age(MachID, s2)
--

_______________ _______
David Fetrow
HelixPoint LLC.
http://www.helixpoint.com
da***@helixpoin t.com

Interested in Affordable Email Marketing?
Check out the HelixMailer at http://www.helixpoint.com/helixmailer.asp
If you are interested in becoming a Reseller of HelixPoint products, contact da***@helixpoin t.com
_______________ _______