✔ Ordner Rekursiv durchsuchen

[Thalin]

Hat sich erledigt, danke

 

[Konstantin Denerz]

Hallo,

hier etwas Code, der zeigt wie man nach Dateien (auch in Unterverzeichnissen) mit einer bestimmten Erweiterung sucht.

Class Program
		Public Shared Sub Main(ByVal args As String())
			Dim directory As New DirectoryInfo("c:\MyPath\")
			SearchFileByExtension(directory, "bubu")
		End Sub
		
		Private Shared Sub SearchFileByExtension(ByVal aDirectory As DirectoryInfo, ByVal anExtension As String)
			Dim foundedFiles As FileInfo() = aDirectory.GetFiles("*." + anExtension)
			'
			' to do something with founded files ...
			'
			For Each directory As DirectoryInfo In aDirectory.GetDirectories()
				SearchFileByExtension(directory, anExtension)
			Next
		End Sub
	End Class

Gruß Konstantin