Intégrer un SaveFileDialog Filter et titre

Résolu
Myname -  
 Myname -
Bonjour,
j'ai cette ligne de code :
web.DownloadFile("domaine/fichier.jar", save.FileName)
Et je voudrai savoir comment on fais pour intégrer le save.title = "nomfichier" sur cette ligne de code, pareil pour le filter
Merci

3 réponses

yg_be Messages postés 24281 Statut Contributeur Ambassadeur 1 584
 
bonjour, moi je ferais un SaveFileDialog avant cette ligne de code, et ensuite j'utiliserais le résultat à la place de save.FileName.
0
Myname
 
Bonjour, merci pour cette réponse, mais j'ai oublié de donner la ligne de code en entier

Dim web As New WebClient
Dim save As New SaveFileDialog

If save.ShowDialog = Windows.Forms.DialogResult.OK Then

Web.DownloadFile("liendufichier", save.FileName)

End If
0
yg_be Messages postés 24281 Statut Contributeur 1 584
 
et ce code ne fonctionne pas? message d'erreur?
0
Myname
 
Le code fonctionne très bien mais j'aimerai qu'il y ai automatiquement le type du fichier au lieu de le mettre manuellement ce qui peut donner à des fichiers corrompu (si on écris jarr par exemple)
0
yg_be Messages postés 24281 Statut Contributeur 1 584 > Myname
 
tu peux faire alors comme suggéré par cs_Le Pivert:
save.Filter = "JPeg Files (*.jpg,*.jpeg)|*.jpg;*.jpeg|Document Word (*.docx)|*.docx|Bitmap Files (*.bmp)|*.bmp|Gif Files (*.gif)|*.gif|Png Files (*.png)|*.png" 
0
cs_Le Pivert Messages postés 8437 Statut Contributeur 729
 
Bonjour,

Tu as oublié de préciser que c'était du VB.Net!

Voici un exemple d'une boite de dialogue d'enregistrement en VB.Net:

 Dim save As New SaveFileDialog
        With save
            .Title = "ma boite d'enregistrement"
            .Filter = "JPeg Files (*.jpg,*.jpeg)|*.jpg;*.jpeg|Document Word (*.docx)|*.docx|Bitmap Files (*.bmp)|*.bmp|Gif Files (*.gif)|*.gif|Png Files (*.png)|*.png"   'choisir extension image ou Word
            .FilterIndex = 1
            .FileName = "mon enregistrement"
            If .ShowDialog = Windows.Forms.DialogResult.OK Then
                MessageBox.Show(.FileName)
            Else
                MessageBox.Show("Opération annulée par l'utilisateur.", "ma boite d'enregistrement", MessageBoxButtons.OK, MessageBoxIcon.Information)
                Exit Sub
            End If
        End With

0
Myname
 
Merci je viens juste de voir ton message, et ça ma bien aidé
Je met en résolu
0