Programmverzeichnisse ermitteln / Systemverzeichnisse

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36

  Public Enum SpecialFolders
        Windows = 0
        Programme
        Desktop
        Startmenue
        EigeneDateien
        Schnellstart
    End Enum

    Public Function GetSpecialFolders(ByVal SF As SpecialFolders) As String
        GetSpecialFolders = ""

        Select Case SF
            Case SpecialFolders.Desktop
                GetSpecialFolders = My.Computer.FileSystem.SpecialDirectories.Desktop
            Case SpecialFolders.Programme
                GetSpecialFolders = My.Computer.FileSystem.SpecialDirectories.Programs
            Case SpecialFolders.Startmenue
                GetSpecialFolders = System.Environment.GetEnvironmentVariable("HOMEDRIVE")
                GetSpecialFolders += System.Environment.GetEnvironmentVariable("HOMEPATH")
                GetSpecialFolders += "\Startmenü\Programme"
            Case SpecialFolders.Schnellstart
                GetSpecialFolders = System.Environment.GetEnvironmentVariable("HOMEDRIVE")
                GetSpecialFolders += System.Environment.GetEnvironmentVariable("HOMEPATH")
                GetSpecialFolders += "\Anwendungsdaten\Microsoft\Internet Explorer\Quick Launch"

            Case SpecialFolders.EigeneDateien
                GetSpecialFolders = My.Computer.FileSystem.SpecialDirectories.MyDocuments
            Case SpecialFolders.Windows
                GetSpecialFolders = System.Environment.GetEnvironmentVariable("SystemRoot")
        End Select

        If My.Computer.FileSystem.DirectoryExists(GetSpecialFolders) = False Then Return ""

        Return GetSpecialFolders
    End Function