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

• #1021 wwlaci csendes tag Gregorius #1020

  Új Válasz 2009-10-24 10:32:03 #1021

  Ú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

  

  wwlaci

  csendes tag

  válasz Gregorius #1020 üzenetére

  Szia.
  az alábbi kódot bemásoltam egy modulba:
  Public Sub FindFiles(ByVal path As String, ByVal pattern As String, ByVal result As Collection(Of String))
  Try
  For Each s As String In System.IO.Directory.GetDirectories(path, pattern)
  FindFiles(s, pattern, result)
  Next
  For Each s As String In System.IO.Directory.GetFiles(path, pattern)
  result.Add(s)
  Next
  Catch ex As UnauthorizedAccessException
  End Try
  End Sub

  Az alábbit, pedig egy button-click-be

  Dim res As New Collection()
  FindFiles("C:\", "*.avi", res)
  For Each s As String In res
  ListBox1.Items.Add(s)
  Next

  a modulban lévő (of string)-re azt mondja:
  Microsoft.VisualBasic.Collection has no type parameters and so cannot have type arguments.

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