Jaruzel.com

Add All Special-Folders to Listbox


Dim sFolder As Environment.SpecialFolder
For sFolder = 0 To 43
If Not Char.IsNumber(sFolder.ToString) Then
lst.Items.Add(sFolder.ToString)
End If
Next