Új hozzászólás Aktív témák

• #1020 Gregorius őstag wwlaci #1019

  Új Válasz 2009-10-24 09:19:52 #1020

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Gregorius

  őstag

  válasz wwlaci #1019 üzenetére

  Ez már végigmegy hiba nélkül:

  Public Sub FindFiles(path As String, pattern As String, result As Collection(Of String))
  Try
  For Each s As String In Directory.GetDirectories(path, pattern)
  FindFiles(s, pattern, result)
  Next
  For Each s As String In Directory.GetFiles(path, pattern)
  result.Add(s)
  Next
  Catch ex As UnauthorizedException
  End Try
  End Sub
  
  Dim res As New Collection(Of String)
  FindFiles("C:\", "*.avi", res)
  For Each s As String In res
  listBox1.Items.Add(s)
  Next

  2. Csak arra hívod meg a fentit, amelyikre kell.

Új hozzászólás Aktív témák