Télécharger un fichier après ouverture de la boite de dialogue SaveAs

Commenter

Contenu du snippet 

Private Declare Function DoFileDownload Lib "shdocvw.dll" (ByVal lpszFile() As Int16) As Integer
Public Sub DisplayDownloadBox(ByVal sPath As String)
    Dim abUnicode(sPath.Length) As Int16
    For i As Integer = 0 To sPath.Length - 1
        abUnicode(i) = Microsoft.VisualBasic.Strings.AscW(sPath.Substring(i,  1))
    Next i
    Call DoFileDownload(abUnicode)
    Erase abUnicode
End Sub

    ' passer par  ASCW est apparemment la seule manière pour traiter l'unicode.
    ' différents tests effectués avec System.Text.Encoding (ascii,  unicode, utf-16, utf-32, etc...)
    ' affiche  alors une alerte  : "Les paramètres de sécurité actuels ne vous permettent pas  de télécharger ce fichier."

Compatibilité : VB 2005, VB 2008

Disponible dans d'autres langages :

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (PCPT)