HILFE OPENFILEDIALOG VB 2010

[.Sebbel]

Hey Com,

Ich hab das problem, dass ich eine .INI per OpenfileDialog in mein Programm laden will (Als Importfunktion für Einstellungen), es funktioniert aber nicht! Hier der Code:





Private Sub ExportierenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExportierenToolStripMenuItem.Click
SaveFileDialog1.ShowDialog()
End Sub

Private Sub ImportierenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ImportierenToolStripMenuItem.Click
OpenFileDialog1.ShowDialog()
End Sub

Private Sub WiedereinlesbareDateiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WiedereinlesbareDateiToolStripMenuItem.Click
SaveFileDialog1.ShowDialog()
End Sub

Private Sub TextdateiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextdateiToolStripMenuItem.Click
SaveFileDialog2.ShowDialog()
End Sub

Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
OpenFileDialog1.Filter = "Einstellungsdatei(*.INI)|*.INI"
If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
If IO.File.Exists("HIER DER DATEIPFAD AUS OPENFILEDIALOG1") Then
TextBox1.Text = INI_ReadValueFromFile("saveddata", "Text1", "", "HIER DER DATEIPFAD AUS OPENFILEDIALOG1")
End If
End If
End Sub
End Class


Wichtig ist eigentlich nur das farbige.

Hoffe, mir kann jemand helfen, aber nur wenns nix kostet!

[Demon-777]

Also ich würde es so machen:

Private Sub SaveINI()
        With OpenFileDialog1
            .Filter = "Einstellungsdatei (*.ini)|*.ini"

            If .ShowDialog = Windows.Forms.DialogResult.OK Then
                ' Read ini here.
                If IO.File.Exists(.FileName) Then
                    TextBox1.Text = INI_ReadValueFromFile("savedata", "text1", "", .FileName)
                End If
            Else
                ' Show error here.
                MessageBox.Show("User aborted!")
            End If
        End With
    End Sub

Und dann wo du es haben willst, einfach SaveINI() aufrufen.

[.Sebbel]

Danke, ich probiers mal

[SmackJew]

Da du ein Affensohn bist, möchte ich dir gerne diese Banane überreichen. Guten Appetit.

[.Sebbel]

Fail aber erster der die idee hatte

[Jay Niize]

ich würde es über die StreamReader Variante machen

PHP Code:

Dim inhalt as string

[B]PROZEDUR[/B]

OpenFileDialog1.Filter = "Einstellungsdatei(*.INI)|*.INI"
openfiledialog1.showdialog
inhalt = My.computer.FileSystem.ReadAllText(openfiledialog1.filename) 


Dann sollte es gehen