codice:
  Dim DestinationPath, DestinationFileName
  DestinationPath = Server.mapPath("UploadFolder")
  DestinationFileName = DestinationPath & "\" & Form("SourceFile").FileName
Così determini la cartella dove caricare il file (UploadFolder) ed il nome del file (Form("SourceFile").FileName)