Hallo liebe MSDN-Community,
ich habe folgendes Problem bzw. habe folgende Hürde.
Ich möchte eine richtig schön stylische Liste (egal ob TreeView, ListView oder sonstiges), aller Programmeinträge die unter Start -> Alle Programme zu finden sind gestalten.
Die Umgebung in der ich die Anwendung entwickle ist Visual Basic 2012 unter Windows Forms.
Mit folgendem Code habe ich bereits realisiert bekommen das ich eine Liste aller Dateien in allen Unterordnern des Startmenüs zurückgeliefert bekomme:
Private Sub frmAllPrograms_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim sStartupFolder As String = Environment.GetFolderPath(Environment.SpecialFolder.CommonStartMenu) & "\Programs"
Dim lFiles As List(Of String) = GetFileList(sStartupFolder, True)
End Sub
Public Shared Function GetFileList(ByVal Root As String, Optional ByVal SubFolders As Boolean = True) As List(Of String)
Dim FileList As New List(Of String)
SeekFiles(Root, FileList, SubFolders)
Return FileList
End Function
Private Shared Sub SeekFiles(ByVal Root As String, ByRef FileArray As List(Of String), ByVal SubFolders As Boolean)
Try
Dim Files() As String = System.IO.Directory.GetFiles(Root)
Dim Folders() As String = System.IO.Directory.GetDirectories(Root)
For i As Integer = 0 To UBound(Files)
FileArray.Add(Files(i).ToString)
Next
If SubFolders = True Then
For i As Integer = 0 To UBound(Folders)
SeekFiles(Folders(i), FileArray, SubFolders)
Next
End If
Catch Ex As Exception
End Try
End Sub
Naja ich hoffe ihr könnt mir helfen, ich bin für jede noch so kleine Hilfe dankbar.
MfG ASkuN