nuovamnete File not found

[elesis]

ragazzi ho questa stringa

foto1 = "C:\Documents and Settings\Fabio Mazzola\Documenti\Immagini\23ottobre2005\CAM_0272.JPG"

remane = nome ricavato dal conteggio dei file nella cartella + 1

'carico il file foto1
FileObject.CopyFile "" & foto1 & "", "D:\Inetpub\webs\elesisbiz\public\" & rename & ""
foto1 = "D:\Inetpub\webs\elesisbiz\public\" & rename & ""
foto1 = replace(foto1, "D:\Inetpub\webs\elesisbiz\public\", "http://www.elesis.biz/public/" )

quando eseguo lo script
mi da questo errore

Microsoft VBScript runtime error '800a0035'

File not found

/autocenter/site/admin/ins.asp, line 34
la linea 34 è questa

FileObject.CopyFile "" & foto1 & "", "D:\Inetpub\webs\elesisbiz\public\" & rename & ""

la cartella ha gia i permessi di lettura / scrittura.

HELP!!

[diegoctn]

Stampa a video il file.systemobject e vedi cosa ti tira fuori. Probabilmente non dai l'estensione.......

[elesis]

da solo il nome del file

non la stringa da dove devo copiarlo...

mi spiego...

dovrebbe funzionare cosi

'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:

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.

'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 :-)