Private Sub Form_Load()
Dim strTemp As String
Set FS = CreateObject("Scripting.FileSystemObject")
 
strTemp = Dir("C:\Programme\*", vbDirectory + vbHidden + vbNormal)
 
    While strTemp <> ""
        If FS.FolderExists("C:\Programme\" & strTemp) And Trim(strTemp) <> _
          "." And Trim(strTemp) <> ".." Then List1.AddItem strTemp
        strTemp = Dir()
    Wend
End Sub