Dim userProfile As String = Environment.GetEnvironmentVariable( _
          "USERPROFILE")
        userProfile = userProfile.Substring(0, userProfile.LastIndexOf("\") + 1)
        Dim dInfo As DirectoryInfo = New DirectoryInfo(userProfile)
        For Each di As DirectoryInfo In dInfo.GetDirectories