Tipp 0013 Special-Folders ermitteln
Autor/Einsender:
Datum:
  Michael Werner
24.04.2003
Entwicklungsumgebung:   VB.Net 2002
Framework:   1.0
Die Environment.SpecialFolder-Enumeration im System-Namespace gibt Enumerationskonstanten an, mit denen Verzeichnispfade für besondere Systemordner abgerufen werden. Besondere Systemordner (SpecialFolder) sind Ordner wie z. B. "Programme" (im Windows-Verzeichnis), "Programme" (im Startmenü), "System" oder "Autostart", die allgemeine Informationen enthalten. Besondere Ordner werden in der Standardeinstellung vom System festgelegt.
 
Public Class Form1
  Inherits System.Windows.Forms.Form
Vom Windows Form Designer generierter Code
  Dim oEnv As System.Environment
  Dim oItem As ListViewItem

  Private Sub Form1_Load(ByVal sender As System.Object, _
         ByVal e As System.EventArgs) Handles MyBase.Load
    lvwSpecial.View = View.Details
    lvwSpecial.Columns.Add("Special Folder", 140, _
          HorizontalAlignment.Left)
    lvwSpecial.Columns.Add("Pfad", 700, HorizontalAlignment.Left)
    FillSpecialFolders()
  End Sub

  Private Sub AddItems(ByVal lvw As ListView, ByVal _
        sProperty As String, ByVal sValue As String)
    oItem = New ListViewItem(sProperty)
    oItem.SubItems.Add(sValue)
    lvw.Items.Add(oItem)
  End Sub

  Private Sub FillSpecialFolders()
    Dim sFolders() As String
    Dim iValues() As Integer
    Dim i As Integer

    sFolders = System.Enum.GetNames( _
          GetType(Environment.SpecialFolder))
    iValues = System.Enum.GetValues( _
          GetType(Environment.SpecialFolder))

    For i = 0 To sFolders.Length - 1
      AddItems(lvwSpecial, sFolders(i), _
            oEnv.GetFolderPath(iValues(i)))
    Next
  End Sub

  Private Sub Button1_Click(ByVal sender As System.Object, _
         ByVal e As System.EventArgs) Handles Button1.Click
    Me.Close()
  End Sub
End Class
 
Links zum Thema
Betriebssystem ermitteln
Freien Laufwerksplatz ermitteln (WMI)
Laufwerkstypen ermitteln (WMI)

Windows-Version
98/SE
ME
NT
2000
XP
Vista
Win 7


Download  (5,8 kB) Downloads bisher: [ 875 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Tipps | Projekte | Tutorials | Bücherecke | VB-/VBA-Tipps | API-Referenz | Komponenten | VB.Net-Forum | VB/VBA-Forum | DirectX-Forum | Foren-Archiv | DirectX | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Samstag, 21. Januar 2012