Open "file" uit listbox

[creative]

hallo mede forummers ,

Weet ook iemand hoe ik bijvoorbeeld
xxxx.txt
1234.txt
creative.txt
5678.txt

creative.txt moet selectren en kan openen in een text box ?

Mvg Ramon Smit

p.s. ik gebruik vb2008

 

[Pizara]

Ja hoor, is nog redelijk simpel.

Maar ik zou je adviseren om een RichTextBox te gebruiken in plaats van een normale multiline textbox. De reden is omdat een richtextbox een loadfile functie heeft, en bij een normale textbox je textfile lijn-voor-lijn moet inlezen met de open() functie.

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        If ListBox1.SelectedIndex > 0 And ListBox1.SelectedIndex < ListBox1.Items.Count Then
            RichTextBox1.LoadFile(ListBox1.SelectedItem.ToString())
        End If
    End Sub

 

[creative]

Oké Dankje :thumb:

hoe krijg ik de naamen van de bestanden er in ?
dus de bestanden uit c:/gebruikers inporteren in de listbox?

 

[Pizara]

here you go.

Public Class Form1

    Dim Dir As New IO.DirectoryInfo("c:\gebruikers")

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim Files As IO.FileInfo() = Dir.GetFiles()
        Dim File As IO.FileInfo

        For Each File In Files
            ListBox1.Items.Add(File.Name)
        Next

    End Sub



    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        If ListBox1.SelectedIndex > 0 And ListBox1.SelectedIndex < ListBox1.Items.Count Then
            RichTextBox1.LoadFile(Dir.ToString() & "\" & ListBox1.SelectedItem.ToString(), RichTextBoxStreamType.PlainText)

        End If
    End Sub
End Class

 

[creative]

Woo Hoo ! jee , Het is gelukt precies wat ik moest Hebben Dankje WEL ! :thumb:

weer een 14jaarig knulletje blij !!

 

[creative]

Nouw hé , laatste keer ,

hoe krijg ik het voor elkaar dat ik aleen in de ritchtextbox de naam van de file krijg zonder .txt krijg ?

 

[Pizara]

Ik neem aan dat je de listbox ipv richtextbox bedoelt.

ListBox1.Items.Add(File.Name)

vervangen door :

ListBox1.Items.Add(File.Name.Replace(File.Extension, ""))

edit :
sorry, je moet nog iets toevoegen :

RichTextBox1.LoadFile(Dir.ToString() & "\" & ListBox1.SelectedItem.ToString() [B]& ".txt"[/B], RichTextBoxStreamType.PlainText)

Gebruik je alleen .txt bestanden??? anders moet ik het even herschrijven ...

 

[creative]

nee het moet voor de Richtextbox zijn
als ik in de listbox op mijn file klik komt her heleverhaal in de richtextbox te staan
maar daar moet aleen de filename staan zonder extentie

aleen voor de het is text bestanden maar het word opgeslagen als .sdts (SecureDaTaSystem)

 

[Pizara]

Ooh , ik dacht dat je de inhoud van de textfile wou laten zien ...
dan is het helemaal simpel :

richtextbox weggooien en textbox1 neerzetten

Public Class Form1

    Dim Dir As New IO.DirectoryInfo("c:\gebruikers")
    Dim File As IO.FileInfo

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim Files As IO.FileInfo() = Dir.GetFiles()

        For Each Me.File In Files
            ListBox1.Items.Add(File.Name)
        Next

    End Sub



    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged

        If ListBox1.SelectedIndex > -1 And ListBox1.SelectedIndex < ListBox1.Items.Count Then
            TextBox1.Text = ListBox1.SelectedItem.ToString().Remove(ListBox1.SelectedItem.ToString().Length - 4, 4)
        End If

    End Sub

End Class

 

[creative]

perfect :thumb:

 

[creative]

nog 1 stom dingetje ..

als ik nu een bestand verwijder dan blijft die nog in de listbox staan, nu heb ik een refresh knop maar

listbox1.refresh()

werkt niet wat moet ik hebben ?