13/04/08 15:08
Dark_Limit
Ciao ! Ho fatto come hai detto tu : ti riporto il codice :
mi da che GetExefiles non è dichiarato..come posso risolvere?
Grazie di nuovo e scusami!
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!
aaa