Posted 10 Aug 2010 Link to this post
sSettingname = "XMLLayout" Dim
objScope
As
IObjectScope = ObjectScopeProviderMC.GetNewObjectScope()
Dim
sUsername
String
= System.Environment.UserName
Settings = (From Sets
In
objScope.Extent(Of EnvSettings)() _
Where Sets.User = sUsername.ToLower _
Select
(
"new("
& sSettingname &
" AS MyValue)"
))
Posted 11 Aug 2010 Link to this post
For
Each
item
var
Settings
t
Type = item.
GetType
()
name
Object
= t.GetProperty(
"MyValue"
).GetValue(item,
Nothing
)
Console.WriteLine(name)
Next