не один человек на форуме не называет чужой код г****м, только по тому, что алгоритм расходиться с его личными убеждениями.

я тебе предлагал, лично, выслать библиотеку

верить на слово, я бы тоже не стал. если не веришь моей порядочности, можешь написать сам, используя api, если конечно сможешь))))

уверяю тебя, результат тебя порадует

ну по крайней мере научишься пользоваться иными функциями

Всем желающим посмотреть его исходник, могу выслать на почту!

чувак, я так понял что для тебя скорость критична.

использование API дает двойной прирост производительности.

а ты говоришь, все это лажа.

вместо 10 минут, твой код будет работать 20 минут.

ты просто не знаешь, как это делать и пытаешься съехать!
Вот оно поколение программистов, взращенное на обертках

Imports System.Runtime.InteropServices

Public Class ReadFiles
    ' Methods
    <llImport("kernel32", CharSet:=CharSet.Ansi, SetLastError:=True, ExactSpelling:=True)> _
    Private Shared Function FindClose(ByVal hFindFile As Integer) As Long
    End Function

    <llImport("kernel32", EntryPoint:="FindFirstFileA", CharSet:=CharSet.Ansi, SetLastError:=True, ExactSpelling:=True)> _
    Private Shared Function FindFirstFile(<MarshalAs(UnmanagedType.VBByRefStr)> ByRef lpFileName As String, ByRef lpFindFileData As WIN32_FIND_DATA) As Integer
    End Function

    <llImport("kernel32", EntryPoint:="FindNextFileA", CharSet:=CharSet.Ansi, SetLastError:=True, ExactSpelling:=True)> _
    Private Shared Function FindNextFile(ByVal hFindFile As Integer, ByRef lpFindFileData As WIN32_FIND_DATA) As Integer
    End Function

    <llImport("kernel32", EntryPoint:="GetFileAttributesA", CharSet:=CharSet.Ansi, SetLastError:=True, ExactSpelling:=True)> _
    Private Shared Function GetFileAttributes(<MarshalAs(UnmanagedType.VBByRefStr)> ByRef lpFileName As String) As Integer
    End Function

    Public Sub Read(ByVal Path As String)
        Me.SearchForFiles(Path)
    End Sub

    Private Sub SearchForFiles(ByVal Folder As String)
        im lpFindFileData As New WIN32_FIND_DATA
        If (Strings.Right(Folder, 1) <> "\" Then
            Folder = (Folder & "\"
        End If
        im hFindFile As Integer = ReadFiles.FindFirstFile(((Folder & "*.*"), (lpFindFileData))
        If (hFindFile <> -1) Then
            o While (ReadFiles.FindNextFile(hFindFile, (lpFindFileData)) > 0)
                im name As String
                If (Strings.InStr(lpFindFileData.Name, ChrW(0), CompareMethod.Binary) > 0) Then
                    name = Strings.Left(lpFindFileData.Name, (Strings.InStr(lpFindFileData.Name, ChrW(0), CompareMethod.Binary) - 1))
                Else
                    name = lpFindFileData.Name
                End If
                If Not ((name = "." Or (name = "..") Then
                    If ((lpFindFileData.Attributes And &H10) > 0) Then
                        Me.SearchForFiles((Folder & name))
                    Else
                        Me.Files.Add((Folder & name))
                    End If
                End If
            Loop
            ReadFiles.FindClose(hFindFile)
        End If
    End Sub


    ' Fields
    Private Const FILE_ATTRIBUTE_ARCHIVE As Short = &H20
    Private Const FILE_ATTRIBUTE_DIRECTORY As Short = &H10
    Private Const FILE_ATTRIBUTE_HIDDEN As Short = 2
    Private Const FILE_ATTRIBUTE_NORMAL As Short = &H80
    Private Const FILE_ATTRIBUTE_READONLY As Short = 1
    Private Const FILE_ATTRIBUTE_SYSTEM As Short = 4
    Private Const FILE_ATTRIBUTE_TEMPORARY As Short = &H100
    Public Files As List(Of String) = New List(Of String)
    Private Const INVALID_HANDLE_VALUE As Short = -1
    Private Const MAX_PATH As Short = 260
    Private Const MAXDWORD As Short = -1

    ' Nested Types
    <StructLayout(LayoutKind.Sequential)> _
    Private Structure FILETIME
        Public dwLowDateTime As Integer
        Public dwHighDateTime As Integer
    End Structure

    <StructLayout(LayoutKind.Sequential)> _
    Private Structure WIN32_FIND_DATA
        Public Attributes As Integer
        Public CreationTime As FILETIME
        Public LastAccessTime As FILETIME
        Public LastWriteTime As FILETIME
        Public SizeHigh As Integer
        Public SizeLow As Integer
        Public Reserved0 As Integer
        Public Reserved1 As Integer
        <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=260)> _
        Public Name As String
        <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=14)> _
        Public Alternate As String
    End Structure
End Class

        Dim start = Now
        Dim Files = LoadAllFiles()

        Console.WriteLine(Now.Subtract(start))
        Console.WriteLine("Найдено файлов: {0}", Files.Count)
        Console.ReadLine()

00:00:08.6420000
Найдено файлов: 312712

        Dim start = Now
        Dim ReadFiles As New ReadFiles
        For Each Drive In DriveInfo.GetDrives
            If Drive.DriveType = DriveType.Fixed Then
                ReadFiles.Read(Drive.RootDirectory.FullName)
            End If
        Next
        Dim Files = ReadFiles.Files


        Console.WriteLine(Now.Subtract(start))
        Console.WriteLine("Найдено файлов: {0}", Files.Count)

        Console.ReadLine()

00:00:00.0090000
Найдено файлов: 110

C:\1.xml
C:\autoexec.bat
C:\bootmgr
C:\BOOTSECT.BAK
C:\config.sys
C:\inVHDDrvLog.dat
C:\IO.SYS
C:\msdia80.dll
C:\MSDOS.SYS
C:\pagefile.sys
C:\~$2.txt
C:\~$akarov.txt
C:\$Recycle.Bin\S-1-5-21-1613133395-4278240515-1316546919-500\$IRXVXXH.xlsb
C:\$Recycle.Bin\S-1-5-21-1613133395-4278240515-1316546919-500\$RRXVXXH.xlsb
C:\$Recycle.Bin\S-1-5-21-1613133395-4278240515-1316546919-500\desktop.ini
C:\$Recycle.Bin\S-1-5-21-2088595665-3436651255-2992290667-500\desktop.ini
C:\ATI\SUPPORT\8-2_vista64_dd_ccc_wdm_enu_58134\Driver\mfc80u.dll
C:\ATI\SUPPORT\8-2_vista64_dd_ccc_wdm_enu_58134\Driver\Microsoft.VC80.ATL.manife
st
C:\ATI\SUPPORT\8-2_vista64_dd_ccc_wdm_enu_58134\Driver\Microsoft.VC80.CRT.manife
st
C:\ATI\SUPPORT\8-2_vista64_dd_ccc_wdm_enu_58134\Driver\Microsoft.VC80.MFC.manife
st
..............
и тпт

C:\
C:\
C:\
C:\
C:\
C:\
C:\
C:\
C:\
C:\
C:\
C:\
C:\
C:\
C:\
C:\
C:\
C:\
C:\
C:\
C:\
C:\
C:\
C:\
C:\
C:\
D:\
D:\
D:\
D:\
D:\
D:\
D:\
D:\
D:\
D:\
D:\
D:\
D:\
D:\
D:\
D:\
D:\
D:\
D:\
D:\
D:\
D:\
D:\
D:\
D:\
D:\
D:\
D:\
D:\
D:\
D:\
D:\
D:\
D:\
D:\
D:\
D:\
D:\
D:\
D:\
D:\
D:\
E:\
E:\
E:\
E:\
E:\
E:\
E:\
E:\
E:\
E:\
E:\
E:\
E:\
E:\
E:\
E:\
E:\
E:\
E:\
E:\
E:\
E:\
E:\
E:\
E:\
E:\
E:\
E:\
E:\
E:\
E:\
E:\
E:\
E:\
E:\
E:\
E:\
E:\
E:\
E:\
E:\
E:\