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