Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
Public Function Bestanden(ByVal initial As String) As List(Of String)
Dim result As New List(Of String)
Dim stack As New Stack(Of String)
stack.Push(initial)
Do While (stack.Count > 0)
Dim dir As String = stack.Pop
Try
result.AddRange(IO.Directory.GetFiles(dir, "*.mp3"))
For Each directoryName As String In IO.Directory.GetDirectories(dir)
stack.Push(directoryName)
Next
Catch
End Try
Loop
Return result
End Function
Dim list As List(Of String) = Bestanden("C:\")
For Each path In list
ListBox1.Items.Add(path)
Next
Code:For Each mp3 As String In IO.Directory.GetFiles("C:\", "*.mp3", IO.SearchOption.AllDirectories) Try ListBox1.Items.Add(mp3) Catch ex As Exception 'Wat moet er gebeuren als het fout gaat? End Try Next
Misschien het Try-Catch Blok in het For-Each Statement zetten? Dan kijkt-ie voor elk item afzonderlijk of er geen fouten ontstaan.
Public Function Bestanden(ByVal initial As String) As List(Of String)
Dim result As New List(Of String)
Dim stack As New Stack(Of String)
stack.Push(initial)
Do While (stack.Count > 0)
Dim dir As String = stack.Pop
If Not dir.Contains("C:\Windows") Then
Try
result.AddRange(IO.Directory.GetFiles(dir, "*.mp3"))
For Each directoryName As String In IO.Directory.GetDirectories(dir)
stack.Push(directoryName)
Next
Catch
End Try
End If
Loop
Return result
End Function
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.