'Beispiel: VB .Net - Systemdateien eines bestimmten Ordners auflisten. 1 ' ' Imports System Imports System.Drawing Imports System.Windows.Forms Imports System.IO Imports System.Collections Namespace VBDotNet_SystemdateienAuflisten Public Class MainForm Inherits System.Windows.Forms.Form Private button1 As System.Windows.Forms.Button Private listBox1 As System.Windows.Forms.ListBox Public Shared Sub Main Dim fMainForm As New MainForm fMainForm.ShowDialog() End Sub Public Sub New() MyBase.New Me.InitializeComponent End Sub #Region " Windows Forms Designer generated code " Private Sub InitializeComponent() Me.listBox1 = New System.Windows.Forms.ListBox Me.button1 = New System.Windows.Forms.Button Me.SuspendLayout ' 'listBox1 ' Me.listBox1.Location = New System.Drawing.Point(8, 48) Me.listBox1.Name = "listBox1" Me.listBox1.Size = New System.Drawing.Size(280, 212) Me.listBox1.TabIndex = 1 ' 'button1 ' Me.button1.Location = New System.Drawing.Point(8, 8) Me.button1.Name = "button1" Me.button1.Size = New System.Drawing.Size(280, 32) Me.button1.TabIndex = 0 Me.button1.Text = "&Get System files" AddHandler Me.button1.Click, AddressOf Me.Button1Click ' 'MainForm ' Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(292, 266) Me.Controls.Add(Me.listBox1) Me.Controls.Add(Me.button1) Me.Name = "MainForm" Me.Text = "Testform <Systemdateien eines bestimmten Ordners auflisten>" Me.ResumeLayout(false) End Sub #End Region Private Sub Button1Click(sender As System.Object, e As System.EventArgs) listBox1.Items.Clear() Try Dim Enumerator As IEnumerator = EnumSystemFiles("c:").GetEnumerator() While Enumerator.MoveNext() listBox1.Items.Add(Enumerator.Current) End While Catch '/// End Try End Sub Private Function EnumSystemFiles(ByVal Root As String) As ArrayList Dim TList As New ArrayList TList.Clear() Try If (Not Root.EndsWith(Path.DirectorySeparatorChar.ToString())) Then Root &= Path.DirectorySeparatorChar End If Dim di As New DirectoryInfo(Root) Dim fi As FileInfo For Each fi In di.GetFiles If fi.Attributes And FileAttributes.System Then TList.Add(fi.FullName) End If Next Return TList Catch ex As Exception MessageBox.Show(ex.Message.ToString(), "Error...") End Try End Function End Class End Namespace