allora, la proprietà fileName ti restituisce il percors fisico del file che stai cecando di caricare, se vuoi salvare il file con il suo nome originario nella cartella report scrivi:

Dim strFilePath As String
Dim fname As String = file1.PostedFile.FileName
fname = file1.Value.Substring(InStrRev(file1.Value, "\"))
strFilePath = "\Report" & fname
strFilePath = ServerMapPath(strFilePath)
file1.PostedFile.SaveAs(strFilePath)

un suggerimento: quando fai gli inserimenti stampa a video il percorso in cui vanno inseriti i file prima di effettuare l'inserimento.

ciao