Hola:
Creo que te refieres a esto:
Código:
Dim rutaFichero AsString = Server.MapPath("PONER_AQUÍ_TU_FICHERO")
Dim infFichero As FileInfo = New FileInfo(rutaFichero)
If infFichero.Exists Then
Response.ClearContent()
Response.AddHeader("Content-Disposition", "attachment; filename=" + infFichero.Name)
Response.AddHeader("Content-Length", infFichero.Length.ToString())
Response.ContentType = ".log"
Response.TransmitFile(infFichero.FullName)
Response.End()
EndIf
Espero que te sirva