visual basic 2008 bestanden laden

Status
Niet open voor verdere reacties.
leuthrick

leuthrick

Gebruiker
Lid geworden
17 sep 2008
Berichten
454
hallo,

weet iemand hoe ik bestanden laad en krijg te zien in een scherm zoals b.v. windows verkenner of hoe je de bestand namen in een combobox krijgt


mvg rick
 
Je wilt alle bestanden in een directory laten weergeven in een combobox?

Probeer dit:
Code: 
        Dim Bestanden As New IO.DirectoryInfo("C:\")                'De te bekijken directory
        For Each Bestand As IO.FileInfo In Bestanden.GetFiles       'Stop het eerst gevonden bestand in een variable (Bestand)
            ComboBox1.Items.Add(Bestand)                            'Plaats de inhoud van Bestand in de combobox
        Next                                                        'Herhaal het hele process todat alle bestand geweest zijn
        ComboBox1.SelectedIndex = 0                                 'Selecteert het eerste item van de combobox
 
The Mighty Atom zei:
Je wilt alle bestanden in een directory laten weergeven in een combobox?

Probeer dit:
Code: 
        Dim Bestanden As New IO.DirectoryInfo("C:\")                'De te bekijken directory
        For Each Bestand As IO.FileInfo In Bestanden.GetFiles       'Stop het eerst gevonden bestand in een variable (Bestand)
            ComboBox1.Items.Add(Bestand)                            'Plaats de inhoud van Bestand in de combobox
        Next                                                        'Herhaal het hele process todat alle bestand geweest zijn
        ComboBox1.SelectedIndex = 0                                 'Selecteert het eerste item van de combobox
Klik om te vergroten...



oke ik zal het eens proberen
 
het werkt maar nu wil ik nog dat hij in de combox alleen txt bestanden laad en als je op de button klikt dat bestand opent/laad
 
Code: 
    Private Sub ComboBox_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        System.Diagnostics.Process.Start(sender.SelectedItem)
    End Sub

dit misschien?
 
Pizara zei:
Code: 
    Private Sub ComboBox_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        System.Diagnostics.Process.Start(sender.SelectedItem)
    End Sub

dit misschien?
Klik om te vergroten...

waar kun jij aan zien dat het txt bestanden zijn?


wat zou de code worden als het mp3 bestanden waren?
 
Nou zoiets ...

Code: 
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim Bestanden As New IO.DirectoryInfo("C:\")                'De te bekijken directory
        For Each Bestand As IO.FileInfo In Bestanden.GetFiles       'Stop het eerst gevonden bestand in een variable (Bestand)
            ComboBox1.Items.Add(Bestand)                            'Plaats de inhoud van Bestand in de combobox
        Next                                                        'Herhaal het hele process todat alle bestand geweest zijn

    End Sub


    Private Sub ComboBox_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged


        Dim Bestandsnaam As String = sender.SelectedItem.FullName.ToString
        Bestandsnaam = Chr(34) & Bestandsnaam & Chr(34)

        Select Case sender.SelectedItem.ToString.Substring(sender.selectedItem.Name.Length - 3, 3).ToUpper
            Case "TXT"
                System.Diagnostics.Process.Start("c:\windows\system32\notepad.exe", Bestandsnaam)
            Case "MP3"
                System.Diagnostics.Process.Start("C:\Program Files\Windows Media Player\wmplayer.exe", Bestandsnaam)
            Case Else
        End Select

    End Sub

End Class


hou er wel rekening mee dat bestandsnamen met spaties erin voorzien moeten worden van extra double-quotes ( Bestandsnaam = Chr(34) & Bestandsnaam & Chr(34) ) omdat vb anders deze alleen het eerste woord ziet. En daarom het bestand niet kan vinden.
 
Pizara zei:
Nou zoiets ...

Code: 
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim Bestanden As New IO.DirectoryInfo("C:\")                'De te bekijken directory
        For Each Bestand As IO.FileInfo In Bestanden.GetFiles       'Stop het eerst gevonden bestand in een variable (Bestand)
            ComboBox1.Items.Add(Bestand)                            'Plaats de inhoud van Bestand in de combobox
        Next                                                        'Herhaal het hele process todat alle bestand geweest zijn

    End Sub


    Private Sub ComboBox_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged


        Dim Bestandsnaam As String = sender.SelectedItem.FullName.ToString
        Bestandsnaam = Chr(34) & Bestandsnaam & Chr(34)

        Select Case sender.SelectedItem.ToString.Substring(sender.selectedItem.Name.Length - 3, 3).ToUpper
            Case "TXT"
                [COLOR="red"]System.Diagnostics.Process.Start("c:\windows\system32\notepad.exe", Bestandsnaam)[/COLOR]            Case "MP3"
                [COLOR="Red"]System.Diagnostics.Process.Start("C:\Program Files\Windows Media Player\wmplayer.exe", Bestandsnaam)[/COLOR]            Case Else
        End Select

    End Sub

End Class




dus de rode dingen die zorgen er voor dat hij het bestand opent
Klik om te vergroten...
 
Code: 
Select Case sender.SelectedItem.ToString.Substring(sender.selectedItem.Name.Length - 3, 3).ToUpper

Hier zet ie de 'case' op de laatste 3 characters (extention) van de filenaam die je selecteerd in de betreffende combobox in hoofdletters.

dus als de Case "TXT" is open dan de txt met notepad.
Code: 
 System.Diagnostics.Process.Start("c:\windows\system32\notepad.exe", Bestandsnaam)

Is de Case "MP3" dan opent ie m met windows media player
Code: 
System.Diagnostics.Process.Start("C:\Program Files\Windows Media Player\wmplayer.exe", Bestandsnaam)

en ieder ander (Case Else) doe niets ...
 
hallo

en als een txt bestand niet in kladblok moet worden geopend maar in de webbrowser in het form?

nu had ik dit:
Code: 
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Dim Bestandsnaam As String = sender.SelectedItem.FullName.ToString
        Bestandsnaam = Chr(34) & Bestandsnaam & Chr(34)

        Select Case sender.SelectedItem.ToString.Substring(sender.selectedItem.Name.Length - 3, 3).ToUpper
            Case "TXT"
                WebBrowser1.Navigate(Bestandsnaam)
            Case Else
        End Select

    End Sub

de pagina gaat hij laden maar dan geeft hij aan : Navigatie naar de webpagina is geannuleerd

dit is mijn hele code:
Code: 
Public Class Form1
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        WebBrowser1.GoBack()
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        WebBrowser1.GoForward()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        WebBrowser1.Navigate(TextBox1.Text)
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Form2.Show()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim Bestanden As New IO.DirectoryInfo("C:\")
        For Each Bestand As IO.FileInfo In Bestanden.GetFiles
            ComboBox1.Items.Add(Bestand)
        Next
        ComboBox1.Visible = True
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If My.Computer.FileSystem.DirectoryExists("C:\") = True Then

        Else

            MkDir("C:\")
        End If

        ComboBox1.Visible = False
    End Sub
    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Dim Bestandsnaam As String = sender.SelectedItem.FullName.ToString
        Bestandsnaam = Chr(34) & Bestandsnaam & Chr(34)
                WebBrowser1.Navigate(Bestandsnaam)



    End Sub
 
Wat staat er dan in TextBox1?Ik zie aan de code alleen dat je het in een combobox stopt..

Dit is trouwens een kortere code voor Form1_Load (en dan zet je in de propertygrid de value visible bij de combobox op false):

Code: 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
        If Not My.Computer.FileSystem.DirectoryExists("C:\") = True Then MkDir("C:\")
    End Sub
 
C Windows zei:
Wat staat er dan in TextBox1?Ik zie aan de code alleen dat je het in een combobox stopt..

Dit is trouwens een kortere code voor Form1_Load (en dan zet je in de propertygrid de value visible bij de combobox op false):
Klik om te vergroten...


in de textbox staat de url

Code: 
webbrowser1.navigate(textbox1.text)
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan