Private Sub ZAFZAG_füllen(ByVal cmb As ComboBox, ByVal dir As String)
        Dim folder As New IO.DirectoryInfo(dir)
        If folder.Exists Then
            Dim lst As IO.FileInfo() = folder.GetFiles("*.txt", _
              IO.SearchOption.TopDirectoryOnly)
            cmb.DataSource = lst
            cmb.DisplayMember = "Name"
        End If
    End Sub
 
 
    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Dim cmb As ComboBox = TryCast(sender, ComboBox)
        If cmb IsNot Nothing AndAlso cmb.SelectedItem IsNot Nothing Then
            Dim file As IO.FileInfo = TryCast(cmb.SelectedItem, IO.FileInfo)
            Label1.Text = file.CreationTime.ToLongDateString
            Label2.Text = file.CreationTime.ToLongTimeString
        End If
    End Sub