da solo il nome del file

non la stringa da dove devo copiarlo...

mi spiego...

dovrebbe funzionare cosi

codice:
'file che deve essere copiato
foto1 = "C:\Documents and Settings\Fabio Mazzola\Desktop\AutoCenter_ARUBA\file.jpg"
FileObject.CopyFile "" & foto1 & "", "D:\Inetpub\webs\elesisbiz\public\file.jpg"
giusto?

che succede che il file viene caricato solo col nome: file.jpg e credo capiti una situazione del genere:


codice:
FileObject.CopyFile "file.jpg", "D:\Inetpub\webs\elesisbiz\public\file.jpg"
e quindi [giustamente] il path non è valido!

Il codice anteposto per il tarttamento della variabile è il seguente.

codice:
'inizializzo il fileobject
Dim FileObject
Set FileObject=CreateObject("Scripting.FileSystemObject")

'dichiaro la var
dim foto1
foto1 = request.Form("foto1")

'conto i file nella dir
Set folderObject = FileObject.GetFolder("D:\Inetpub\webs\elesisbiz\public\")
Set filesObject = folderObject.Files 
conto=0
For Each file In filesObject
conto=conto+1
Next

'prendo l'estenzione
dim tipo
tipo = right(foto1, 4)

'controllo se il campo è pieno
If foto1 <> "" Then

'gli do il nome
dim rename
rename = "FOTO_" & conto +1

'lego le due cosi da avere nomegfile.estensione
rename = rename & tipo

'carico il file foto1
FileObject.CopyFile "" & foto1 & "", "D:\Inetpub\webs\elesisbiz\public\" & rename & ""

'do il path alla variabile
foto1 = "D:\Inetpub\webs\elesisbiz\public\" & rename & ""

'sostituisco poi il path con un url per browser da dare al campo di db
foto1 = replace(foto1, "D:\Inetpub\webs\elesisbiz\public\", "http://www.elesis.biz/public/" )

else

'se la foto non è selezionata gli do un valore fisso che è un img "FOTO NON DISPONIBILE"
foto1 = "http://www.elesis.biz/autocenter/site/img/not.gif"

End If

dopo di che inserisco i files nel db.

cosa potrebbe essere???
HELP :-)