none
No se guarda un archivo RRS feed

  • Pregunta

  • Tengo este código:

    Private Sub GuardarToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles GuardarToolStripMenuItem.Click
            SaveFileDialog1.ShowDialog()
            Dim location = SaveFileDialog1.FileName
            Dim ls As String = ""
            For Each item As String In ListBox1.Items
                ls = ls & item & vbNewLine
            Next
    
            My.Computer.FileSystem.WriteAllText(location, ls, False)
        End Sub
    Pero no se guarda el archivo :(

    martes, 11 de julio de 2017 2:53

Respuestas

  • ¿Obtienes alguna excepción?. 

    Intenta con el siguiente código:

    Using sfd As New SaveFileDialog
    	If sfd.ShowDialog = DialogResult.OK Then
    		System.IO.File.WriteAllLines(sfd.FileName, ListBox1.Items.Cast(Of String).ToArray)
    	End If
    End Using


    Espero que la información proporcionada te haya sido de utilidad, quedo atento a tus comentarios.
    martes, 11 de julio de 2017 5:53

Todas las respuestas

  • ¿Obtienes alguna excepción?. 

    Intenta con el siguiente código:

    Using sfd As New SaveFileDialog
    	If sfd.ShowDialog = DialogResult.OK Then
    		System.IO.File.WriteAllLines(sfd.FileName, ListBox1.Items.Cast(Of String).ToArray)
    	End If
    End Using


    Espero que la información proporcionada te haya sido de utilidad, quedo atento a tus comentarios.
    martes, 11 de julio de 2017 5:53
  • ¿No se llega a crear el fichero?

    Comprueba si en la carpeta en la que quieres guardar el archivo te deja crear un fichero desde el explorador de archivos de Windows.


    Saludos, Javier J

    martes, 11 de julio de 2017 6:23