Move DirectoryInfo.Root and List.IndexOf VB snippets to new organization

Co-authored-by: gewarren <[email protected]>

Author: Copilot

snippets/visualbasic/System.Collections.Generic/ListT/IndexOf/Project.vbproj

@@ -0,0 +1,8 @@
+<Project Sdk="Microsoft.NET.Sdk">
+
+  <PropertyGroup>
+    <OutputType>Library</OutputType>
+    <TargetFramework>net6.0</TargetFramework>
+  </PropertyGroup>
+   
+</Project>

snippets/visualbasic/System.Collections.Generic/ListT/IndexOf/source.vb

@@ -0,0 +1,53 @@
+' <Snippet1>
+Imports System.Collections.Generic
+
+Public Class Example
+
+    Public Shared Sub Main()
+
+        Dim dinosaurs As New List(Of String)
+
+        dinosaurs.Add("Tyrannosaurus")
+        dinosaurs.Add("Amargasaurus")
+        dinosaurs.Add("Mamenchisaurus")
+        dinosaurs.Add("Brachiosaurus")
+        dinosaurs.Add("Deinonychus")
+        dinosaurs.Add("Tyrannosaurus")
+        dinosaurs.Add("Compsognathus")
+
+        Console.WriteLine()
+        For Each dinosaur As String In dinosaurs
+            Console.WriteLine(dinosaur)
+        Next
+
+        Console.WriteLine(vbLf & _
+            "IndexOf(""Tyrannosaurus""): {0}", _
+            dinosaurs.IndexOf("Tyrannosaurus"))
+
+        Console.WriteLine(vbLf & _
+            "IndexOf(""Tyrannosaurus"", 3): {0}", _
+            dinosaurs.IndexOf("Tyrannosaurus", 3))
+
+        Console.WriteLine(vbLf & _
+            "IndexOf(""Tyrannosaurus"", 2, 2): {0}", _
+            dinosaurs.IndexOf("Tyrannosaurus", 2, 2))
+
+    End Sub
+End Class
+
+' This code example produces the following output:
+'
+'Tyrannosaurus
+'Amargasaurus
+'Mamenchisaurus
+'Brachiosaurus
+'Deinonychus
+'Tyrannosaurus
+'Compsognathus
+'
+'IndexOf("Tyrannosaurus"): 0
+'
+'IndexOf("Tyrannosaurus", 3): 5
+'
+'IndexOf("Tyrannosaurus", 2, 2): -1
+' </Snippet1>

snippets/visualbasic/System.IO/DirectoryInfo/Root/Project.vbproj

@@ -0,0 +1,8 @@
+<Project Sdk="Microsoft.NET.Sdk">
+
+  <PropertyGroup>
+    <OutputType>Library</OutputType>
+    <TargetFramework>net6.0</TargetFramework>
+  </PropertyGroup>
+   
+</Project>

snippets/visualbasic/System.IO/DirectoryInfo/Root/directoryinforoot2.vb

@@ -0,0 +1,28 @@
+' <snippet2>
+Imports System.IO
+
+Module Module1
+
+    Sub Main()
+        Dim di1 As DirectoryInfo = New DirectoryInfo("\\tempshare\tempdir")
+        Dim di2 As DirectoryInfo = New DirectoryInfo("tempdir")
+        Dim di3 As DirectoryInfo = New DirectoryInfo("x:\tempdir")
+        Dim di4 As DirectoryInfo = New DirectoryInfo("c:\")
+
+        Console.WriteLine("The root path of '{0}' is '{1}'", di1.FullName, di1.Root)
+        Console.WriteLine("The root path of '{0}' is '{1}'", di2.FullName, di2.Root)
+        Console.WriteLine("The root path of '{0}' is '{1}'", di3.FullName, di3.Root)
+        Console.WriteLine("The root path of '{0}' is '{1}'", di4.FullName, di4.Root)
+    End Sub
+
+End Module
+
+' This code produces output similar to the following:
+
+' The root path of '\\tempshare\tempdir' is '\\tempshare\tempdir'
+' The root path of 'c:\Projects\ConsoleApplication1\ConsoleApplication1\bin\Debug\tempdir' is 'c:\'
+' The root path of 'x:\tempdir' is 'x:\'
+' The root path of 'c:\' is 'c:\'
+' Press any key to continue . . .
+
+' </snippet2>

xml/System.Collections.Generic/List`1.xml

@@ -2622,7 +2622,7 @@ Public Function StartsWith(e As Employee) As Boolean
  The following example demonstrates all three overloads of the <xref:System.Collections.Generic.List%601.IndexOf%2A> method. A <xref:System.Collections.Generic.List%601> of strings is created, with one entry that appears twice, at index location 0 and index location 5. The <xref:System.Collections.Generic.List%601.IndexOf%28%600%29> method overload searches the list from the beginning, and finds the first occurrence of the string. The <xref:System.Collections.Generic.List%601.IndexOf%28%600%2CSystem.Int32%29> method overload is used to search the list beginning with index location 3 and continuing to the end of the list, and finds the second occurrence of the string. Finally, the <xref:System.Collections.Generic.List%601.IndexOf%28%600%2CSystem.Int32%2CSystem.Int32%29> method overload is used to search a range of two entries, beginning at index location two; it returns -1 because there are no instances of the search string in that range.
 
  :::code language="csharp" source="~/snippets/csharp/System.Collections.Generic/ListT/IndexOf/source.cs" interactive="try-dotnet" id="Snippet1":::
- :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_CLR/List`1_IndexOf/vb/source.vb" id="Snippet1":::
+ :::code language="vb" source="~/snippets/visualbasic/System.Collections.Generic/ListT/IndexOf/source.vb" id="Snippet1":::
 
  ]]></format>
         </remarks>

xml/System.IO/DirectoryInfo.xml

@@ -3752,7 +3752,7 @@ The following example refers to the parent directory of a specified directory.
 
  :::code language="csharp" source="~/snippets/csharp/System.IO/DirectoryInfo/Root/directoryinforoot2.cs" id="Snippet2":::
  :::code language="fsharp" source="~/snippets/fsharp/System.IO/DirectoryInfo/Root/directoryinforoot2.fs" id="Snippet2":::
- :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_CLR/directoryinforoot/VB/directoryinforoot2.vb" id="Snippet2":::
+ :::code language="vb" source="~/snippets/visualbasic/System.IO/DirectoryInfo/Root/directoryinforoot2.vb" id="Snippet2":::
 
  ]]></format>
         </remarks>