cod download

Pessoa bom dia ,

Bom vamos lá gostaria de ajuda com codigo para download , eu quero listar os aquivos de uma pasta de upload e baixar usando um codigo asp para download.

Eu usei esse codigo aqui para donwloado postado nesse forum

<%
Response.Buffer = True
Response.Clear
' definir o diretório que contém os arquivos aqui
strFileName = Server.MapPath( "/set/path/here/" & Request.QueryString( "file" ) )
Set Sys = Server.CreateObject( "Scripting.FileSystemObject" )
Set Bin = Sys.OpenTextFile( strFileName, 1, False )
If Sys.FileExists( strFileName ) Then
' Defina o nome de arquivo para salvar como
Call Response.AddHeader( "Content-Disposition", "attachment; filename=" & trFileName )
' Certifique-se de downloads do navegador, em vez de executá-lo
Response.ContentType = "application/octet-stream"
' Enviar como um binário Byte Stream
While Not Bin.AtEndOfStream
Response.BinaryWrite( ChrB( Asc( Bin.Read( 1 ) ) ) )
Wend
Else
Response.Redirect( "erro.html" )
End If
Bin.Close : Set Bin = Nothing
Set Sys = Nothing
%>
mais estar aparencendo o seguinte erro

>
Server.MapPath() erro 'ASP 0172 : 80004005'

Caminho Inválido

/download.asp, line 13

O parâmetro Path do método MapPath deve ser um caminho virtual. Foi usado um caminho físico.