Dim var1 As New Dictionary(Of String, String) For Each E As DictionaryEntry In Environment.GetEnvironmentVariables If IO.Directory.Exists(E.Value.ToString) Then var1.Add(E.Key.ToString, E.Value.ToString) Next ' Type de var2: IEnumerable(Of <type anonyme>) Dim var2 = From entry In Environment.GetEnvironmentVariables. Cast(Of DictionaryEntry)() Where IO.Directory.Exists(entry.Value.ToString) Select Key = entry.Key.ToString, Value = entry.Value.ToString ' Ici j'aurais pu aussi écrire var2.ToDictionary(...) Dim var2Bis As Dictionary(Of String, String) = ( From entry In Environment.GetEnvironmentVariables. Cast(Of DictionaryEntry)() Where IO.Directory.Exists(entry.Value.ToString) ).ToDictionary(Function(entry) entry.Key.ToString, Function(entry) entry.Value.ToString) ' Type de var3: IEnumerable(Of <type anonyme>) Dim var3 = Environment.GetEnvironmentVariables. Cast(Of DictionaryEntry). Where(Function(entry) IO.Directory.Exists(entry.Value.ToString)). Select(Function(entry) New With { .Key = entry.Key.ToString, .Value = entry.Value.ToString }) ' Ici j'aurais pu aussi écrire var3.ToDictionary(...) Dim var3Bis As Dictionary(Of String, String) = ( Environment.GetEnvironmentVariables. Cast(Of DictionaryEntry). Where(Function(entry) IO.Directory.Exists(entry.Value.ToString)) ).ToDictionary(Function(entry) entry.Key.ToString, Function(entry) entry.Value.ToString)
Dim var1 As New Dictionary(Of String, String) For Each E As DictionaryEntry In Environment.GetEnvironmentVariables If IO.Directory.Exists(E.Value.ToString) Then var1.Add(E.Key.ToString, E.Value.ToString) Next ' Type de var2: IEnumerable(Of KeyValuePair(Of String, String)) Dim var2 = From kvp In Environment.GetEnvironmentVariables. Cast(Of KeyValuePair(Of String, String))() Where IO.Directory.Exists(kvp.Value) ' Ici j'aurais pu aussi écrire var2.ToDictionary(...) Dim var2Bis As Dictionary(Of String, String) = ( From kvp In Environment.GetEnvironmentVariables. Cast(Of KeyValuePair(Of String, String))() Where IO.Directory.Exists(kvp.Value) ).ToDictionary(Function(kvp) kvp.Key, Function(kvp) kvp.Value) ' Type de var3: IEnumerable(Of KeyValuePair(Of String, String)) Dim var3 = Environment.GetEnvironmentVariables. Cast(Of KeyValuePair(Of String, String)). Where(Function(kvp) IO.Directory.Exists(kvp.Value)) ' Ici j'aurais pu aussi écrire var3.ToDictionary(...) Dim var3Bis As Dictionary(Of String, String) = ( Environment.GetEnvironmentVariables. Cast(Of KeyValuePair(Of String, String)). Where(Function(kvp) IO.Directory.Exists(kvp.Value)) ).ToDictionary(Function(kvp) kvp.Key, Function(kvp) kvp.Value) Dim var1Bis As New Dictionary(Of String, String) For Each kvp In Environment.GetEnvironmentVariables.Cast(Of KeyValuePair(Of String, String))() If IO.Directory.Exists(kvp.Value) Then var1Bis.Add(kvp.Key, kvp.Value) Next
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question