sfdMain.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
Dim resultado como DialogResult
sfdMain.Filter = "archivos por lotes (*.bat) | *. bat| Archivos CMD (*.cmd) | * .cmd "
sfdMain.FilterIndex = 1
sfdMain.ValidateNames = True
Resultado = sfdMain.ShowDialog
Si resultado = Windows.Forms.DialogResult.OK entonces
Dim sw como nuevo System.IO.StreamWriter(sfdMain.FileName)
I como entero = 0 To ListBox1.Items.Count - 1
SW. WriteLine(ListBox1.Items.Item(i))
Siguiente
SW. Close()
SW. Dispose()
Otra cosa
Salida Sub
End If