Oppure

Loading
13/04/08 15:08
Dark_Limit
Ciao ! Ho fatto come hai detto tu : ti riporto il codice :


Public Partial Class MainForm
			Dim AllFiles As Int32
                        Dim Index As Int32

	Public Sub New()
		' The Me.InitializeComponent call is required for Windows Forms designer support.
		Me.InitializeComponent()
		
		'
		' TODO : Add constructor code after InitializeComponents
		'
	End Sub
	Public Function GetExeFile(ByVal Dir As String, ByVal IsMain As Boolean) As List(Of String)
  If IsMain Then AllFiles = GetFileNumber(Dir)

  Index = 0

  Dim Result As New List(Of String)

  For Each SubDir As String In IO.Directory.getDirectories(Dir)
    Result.AddRange(GetExeFiles(SubDir, False))
  Next

  For Each File As String In IO.Directory.GetFiles(Dir)
    Result.Add(File)
    Label1.Text = "Percentuale: " & Index*100/AllFiles & "%"
    Application.DoEvents()
  Next

  Return Result
End Function
	
	 Public Function GetFileNumber(ByVal Dir As String) As Int32
  Dim Result As Int32
  
  For Each SubDir As String In IO.Directory.getDirectories(Dir)
    Result += GetFileNumber(SubDir)
  Next

  For Each File As String In IO.Directory.GetFiles(Dir)
    Result += 1
  Next

  Return Result
End Function



	
	Sub Button1Click(ByVal sender As Object, ByVal e As EventArgs)

 Dim L As List(Of String) = GetExeFiles("C:\") 

	End Sub
End Class





mi da che GetExefiles non è dichiarato..come posso risolvere?

Grazie di nuovo e scusami!:k:
aaa