VB.NET-Quellcode
- ''' <summary>
- ''' Gibt die Summe aller Zeilen der Dateien in dem angegebenen Verzeichnis zurück.
- ''' </summary>
- ''' <remarks>wirft natürlich haufenweise Exceptions, wenn ungeeignete Directories oder Files vorliegen</remarks>
- Public Shared Function countLines(path As String, Optional searchPattern As String = "*", Optional searchOption As SearchOption = IO.SearchOption.TopDirectoryOnly) As Integer
- Return Directory.GetFiles(path, searchPattern, searchOption).SelectMany(AddressOf File.ReadAllLines).Count()
- End Function