![]() |
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
|
|
|
|
|
Windows-Version |
98/SE |
 |
|
ME |
 |
|
NT |
 |
|
2000 |
 |
|
XP |
 |
|
Vista |
 |
|
Win
7 |
 |
|
|
|
Download (5,8 kB)
|
Downloads bisher: [ 944 ]
|
|
|