Bonjour à tous,
Je souhaite sauvegarder un fichier sélectionné sur mon bureau dans un répertoire préfini. Si vous saviez comment prédéfinir l'emplacement...
Merci d'avance
Voilà mon code
--------
Private Sub ButtonOuvrir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonOuvrir.Click
Dim myStream1 As Stream = Nothing
strDirectoryAnnexe = "C:\Users\Touti\Desktop\"
Dim saveFileDialog1 As New SaveFileDialog()
saveFileDialog1.Filter = "txt files (*.txt)|*.txt|All files *.*)|*.*"
saveFileDialog1.FilterIndex = 2
saveFileDialog1.Title = "Sauvegarder une annexe"
saveFileDialog1.InitialDirectory = strDirectoryAnnexe
' If the file name is not an empty string open it for saving.
If saveFileDialog1.ShowDialog() = DialogResult.OK Then
myStream1 = saveFileDialog1.OpenFile()
End If
End Sub
Partager