sfdMain.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
Dim resultaat als DialogResult
sfdMain.Filter = "batchbestanden (bat) | *. bat| CMD-bestanden (*.cmd) | * .cmd "
sfdMain.FilterIndex = 1
sfdMain.ValidateNames = True
Resultaat = sfdMain.ShowDialog
Als resultaat = Windows.Forms.DialogResult.OK Then
Dim sw als nieuwe System.IO.StreamWriter(sfdMain.FileName)
Want ik As Integer = 0-ListBox1.Items.Count - 1
SW. WriteLine(ListBox1.Items.Item(i))
Volgende
SW. Close()
SW. Dispose()
Anders
Exit Sub
End If