sfdMain.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
Dim Result As DialogResult
sfdMain.Filter = "fichiers de commandes (*.bat) | *. bat| Fichiers CMD (*.cmd) | * .cmd "
sfdMain.FilterIndex = 1
sfdMain.ValidateNames = True
Résultat = sfdMain.ShowDialog
Si résultat = Windows.Forms.DialogResult.OK Then
Dim sw As New System.IO.StreamWriter(sfdMain.FileName)
For i As Integer = 0 To ListBox1.Items.Count - 1
SW. WriteLine(ListBox1.Items.Item(i))
Prochaine
SW. Close()
SW. Dispose()
D’autre
Exit Sub
End If