[VB.NET] Télécharger un fichier qui se trouve sous la racine

Version imprimable

Bonjour,

Qqn a-t-il une methode? J'ai ceci, mais cela génère des erreurs.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Put user code to initialize the page here
        DisplayDownloadDialog("D:\monfichier.xls")
    End Sub
 
    Sub DisplayDownloadDialog(ByVal strFileName As String)
        Dim objFileInfo As System.IO.FileInfo
 
        Try
            If Not System.IO.File.Exists(strFileName) Then Exit Sub
            objFileInfo = New System.IO.FileInfo(strFileName)
            Response.Clear()
            'Response.ClearHeaders()
            'Response.Buffer = True
            'Add Headers to enable dialog display 
            Response.AddHeader("Content-Disposition", "filename=" & objFileInfo.Name)
            Response.AddHeader("Content-Length", objFileInfo.Length.ToString())
            Response.ContentType = "application/octet-stream"
            Response.WriteFile(objFileInfo.FullName)
        Catch ex As Exception
 
        Finally
            Response.End()
        End Try
    End Sub

Merci

09/12/2005, 10h59
neguib

Peux-tu récupérer le ex.Message dans le catch et nous lister les messages complets d'exceptions levées stp :?:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
 
					string strFileLocation = "."+System.Configuration.ConfigurationSettings.AppSettings["HTTPFilesRoot"].ToString();
					strFileLocation += "/" + strName + " " + strFirstName + "/"  + strFileName;
 
					string fName = Server.MapPath(strFileLocation);
					FileStream stream = new FileStream(fName, FileMode.Open,	FileAccess.Read, FileShare.Read);
 
					FileInfo f = new FileInfo(fName);
 
					// doc : application/msword
					// pdf : application/pdf
 
					string mime = "application/pdf";
					if(f.Extension.IndexOf("doc")!=-1) mime = "application/msword";
 
					Response.ContentType = mime;
					Response.AppendHeader("Content-Disposition", "attachment;filename=" + Server.UrlEncode(f.Name));
 
					int bufSize = (int)stream.Length;
					byte[] buf = new byte[bufSize];
 
					int bytesRead = stream.Read(buf, 0, bufSize);
					stream.Close();
 
					Response.OutputStream.Write(buf, 0, bytesRead);

Dans l'exemple seul les pdf et les doc sont pris en compte

09/12/2005, 11h13
Immobilis

En fait, il n'y a pas d'erreur serveur. Simplement un popup comme quoi il ne peut télécharger le fichier.
Ceci dit, maintenant, il essaye de tout m'afficher. Les txt passent, mais les xls donnent:

Citation:

ÐÏà¡±á>þÿ ‰¼íArial1 íArial1 íArial1 íArial1È¼íArial"$"#,##0_);$"$"#,##0$!"$

Je donne ma langue au chat.
Merci

Citation:
Envoyé par Ditch
Code:

1 2 string strFileLocation = "."+System.Configuration.ConfigurationSettings.AppSettings["HTTPFilesRoot"].ToString(); strFileLocation += "/" + strName + " " + strFirstName + "/" + strFileName;
Dans l'exemple seul les pdf et les doc sont pris en compte
Si je ne me trompe, il s'agit de fichiers dans ton site, pas sous la racine, non?

A+

09/12/2005, 11h33
Ditch

Citation:

Envoyé par Immobilis

En fait, il n'y a pas d'erreur serveur. Simplement un popup comme quoi il ne peut télécharger le fichier.
Ceci dit, maintenant, il essaye de tout m'afficher. Les txt passent, mais les xls donnent:

Citation:

ÐÏà¡±á>þÿ ‰¼íArial1 íArial1 íArial1 íArial1È¼íArial"$"#,##0_);$"$"#,##0$!"$

Je donne ma langue au chat.
Merci

Un .xls c'est pas le meme content-type...

"HTTPFilesRoot" est un paramètre que j'ai dans le webconfig. Ca revient au meme quelque soit le répertoire. Tu mets MapPath("fichier.xls") et voilà.

Le résultat est le mm qd je mets ce type : application/vnd.ms-excel
Il trouve bien le fichier, mais j'ai pas la boite de download.
:?

Ditch, avec ta methode en VB ça me donne:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
    Sub DisplayDownloadDialog(ByVal strFileName As String)
        Dim objFileInfo As System.IO.FileInfo
        Dim objStream As System.IO.FileStream
 
        Try
            If Not System.IO.File.Exists(strFileName) Then Exit Sub
            objFileInfo = New System.IO.FileInfo(strFileName)
            objStream = New System.IO.FileStream(strFileName, IO.FileMode.Open, IO.FileAccess.Read, IO.FileShare.Read)
 
            'Response.Clear()
            Response.ClearHeaders()
            Response.Buffer = True
            'Add Headers to enable dialog display 
            Response.AddHeader("Content-Disposition", "attachment;filename=" & objFileInfo.Name)
            Response.AddHeader("Content-Length", objFileInfo.Length.ToString())
            Response.ContentType = "application/vnd.ms-excel"
 
            Dim bufsize As Integer = objStream.Length
            Dim buf(bufsize) As Byte
            Dim byteread As Integer = objStream.Read(buf, 0, bufsize)
            objStream.Close()
 
            Response.OutputStream.Write(buf, 0, byteread)
 
        Catch ex As Exception
            Response.Write(ex.Message & "<br><br>")
 
        Finally
            Response.End()
        End Try

Pourtant, j'ai encore

Citation:

ÐÏà¡±á>þÿ ‰

:(

J'ai eu ce pb en ASP. La raison était que du HTML etait inséré dans la page. Dans mon cas, j'ai fait une page aspx dans laquelle j'ai tout supprimé sauf les infos d'heritage of course. Mais est-ce la bonne méthode?

09/12/2005, 12h15
Ditch

Ce que je t'ai montré c'est simplement dans le Page_Load. Dans ma page, je n'ai rien.

http://webman.developpez.com/article.../aspnet2excel/ pourra t'aider...

Là il exporte un DataGrid, mais il "suffit" d'envoyer ton fichier à la place.

Bon, ben ça marche, je sais pas ce qu'il lui a pris. Peut-être un pb de cache.
:bravo:
Toutefois, il me met le nom de la page comme nom de fichier au lieu du nom du fichier. Sais-tu pourquoi?

Sinon, il faut aussi que je récupère dynamiquement le content-type. Je viens de constater que tu es l'auteur de l'article : Comment récupérer le content-type d'un fichier?
J'ai copié collé le code et il me met

Citation:

Variable 'Keyname' hides a variable in an enclosing block.

Apparement, il y a un pb de variables. Voici le code qui ne génère pas d'erreurs chez moi:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Public Shared Function GetMIMEType(ByVal filepath As String) As String Dim regPerm As RegistryPermission = New RegistryPermission(RegistryPermissionAccess.Read, "\HKEY_CLASSES_ROOT") Dim classesRoot As RegistryKey = Registry.ClassesRoot Dim fi As FileInfo = New FileInfo(filepath) Dim dotExt As String = fi.Extension.ToLower Dim typeKey As RegistryKey = classesRoot.OpenSubKey("MIME\Database\Content Type") Dim myContentType As String = "" For Each myKeyname As String In typeKey.GetSubKeyNames Dim curKey As RegistryKey = classesRoot.OpenSubKey("MIME\Database\Content Type\" + myKeyname) If CType(curKey.GetValue("Extension"), String) = dotExt Then myContentType = myKeyname End If Next Return myContentType
La declaration de variable

Code:

Dim Keyname As String = ""

est de trop. Il faut aussi utiliser celle-ci

Code:

Dim myContentType As String = ""

pour passer la valeur.
De plus, apparement, par défaut les type msg ne sont pas configurés dans les type MIME. J'ai essayé de l'ajouter en passant par les options des dossiers, mais ça marche pas. Sais-tu comment faire?

Merci de ton aide

09/12/2005, 13h39
Immobilis

Citation:

Envoyé par Immobilis

Toutefois, il me met le nom de la page comme nom de fichier au lieu du nom du fichier. Sais-tu pourquoi?

Il faut mettre le nom du fichier, pas le chemin:

Code:

Response.AddHeader("Content-Disposition", "attachment; filename=" & objFileInfo.Name.ToString())

Le chemin vers le fichier est déclaré à l'ouverture du "stream":

Code:

objStream = New System.IO.FileStream(strFilePath, IO.FileMode.Open, IO.FileAccess.Read, IO.FileShare.Read)