Move System.IO VB snippets to new organization

Copilot · gewarren · Copilot · commit a05695ff7b37 · 2025-06-20T08:08:31.000Z
Co-authored-by: gewarren &lt;24882762+gewarren@users.noreply.github.com&gt;
diff --git a/snippets/visualbasic/System.IO/DirectoryInfo/CreateSubdirectory/Project.vbproj b/snippets/visualbasic/System.IO/DirectoryInfo/CreateSubdirectory/Project.vbproj
@@ -0,0 +1,8 @@
+<Project Sdk="Microsoft.NET.Sdk">
+
+  <PropertyGroup>
+    <OutputType>Library</OutputType>
+    <TargetFramework>net6.0</TargetFramework>
+  </PropertyGroup>
+   
+</Project>
diff --git a/snippets/visualbasic/System.IO/DirectoryInfo/CreateSubdirectory/directoryinfocreatesub.vb b/snippets/visualbasic/System.IO/DirectoryInfo/CreateSubdirectory/directoryinfocreatesub.vb
@@ -0,0 +1,28 @@
+﻿' <snippet1>
+Imports System.IO
+
+Public Class CreateSubTest
+
+    Public Shared Sub Main()
+        ' Make a reference to a directory.
+        Dim di As New DirectoryInfo("TempDir")
+
+        ' Create the directory only if it does not already exist.
+        If di.Exists = False Then
+            di.Create()
+        End If
+
+        ' Create a subdirectory in the directory just created.
+        Dim dis As DirectoryInfo = di.CreateSubdirectory("SubDir")
+
+        ' Process that directory as required.
+        ' ...
+
+        ' Delete the subdirectory.
+        dis.Delete(True)
+
+        ' Delete the directory.
+        di.Delete(True)
+    End Sub
+End Class
+' </snippet1>
diff --git a/snippets/visualbasic/System.IO/DirectoryInfo/Delete/Project.vbproj b/snippets/visualbasic/System.IO/DirectoryInfo/Delete/Project.vbproj
@@ -0,0 +1,8 @@
+<Project Sdk="Microsoft.NET.Sdk">
+
+  <PropertyGroup>
+    <OutputType>Library</OutputType>
+    <TargetFramework>net6.0</TargetFramework>
+  </PropertyGroup>
+   
+</Project>
diff --git a/snippets/visualbasic/System.IO/DirectoryInfo/Delete/directoryinfodelete.vb b/snippets/visualbasic/System.IO/DirectoryInfo/Delete/directoryinfodelete.vb
@@ -0,0 +1,29 @@
+﻿' <snippet1>
+Imports System.IO
+
+Public Class DeleteTest
+
+    Public Shared Sub Main()
+        ' Make a reference to a directory.
+        Dim di As New DirectoryInfo("TempDir")
+
+        ' Create the directory only if it does not already exist.
+        If di.Exists = False Then
+            di.Create()
+        End If
+
+        Dim dis As DirectoryInfo = di.CreateSubdirectory("SubDir")
+        ' Create a subdirectory in the directory just created.
+
+        ' Process that directory as required.
+        ' ...
+
+        ' Delete the subdirectory. The true indicates that if subdirectories
+        ' or files are in this directory, they are to be deleted as well.
+        dis.Delete(True)
+
+        ' Delete the directory.
+        di.Delete(True)
+    End Sub
+End Class
+' </snippet1>
diff --git a/snippets/visualbasic/System.IO/DirectoryInfo/GetDirectories/Project.vbproj b/snippets/visualbasic/System.IO/DirectoryInfo/GetDirectories/Project.vbproj
@@ -0,0 +1,8 @@
+<Project Sdk="Microsoft.NET.Sdk">
+
+  <PropertyGroup>
+    <OutputType>Library</OutputType>
+    <TargetFramework>net6.0</TargetFramework>
+  </PropertyGroup>
+   
+</Project>
diff --git a/snippets/visualbasic/System.IO/DirectoryInfo/GetDirectories/directoryinfogetdirectories.vb b/snippets/visualbasic/System.IO/DirectoryInfo/GetDirectories/directoryinfogetdirectories.vb
@@ -0,0 +1,18 @@
+﻿' <snippet1>
+Imports System.IO
+
+Public Class GetDirectoriesTest
+
+    Public Shared Sub Main()
+        ' Make a reference to a directory.
+        Dim di As New DirectoryInfo("c:\")
+        ' Get a reference to each directory in that directory.
+        Dim diArr As DirectoryInfo() = di.GetDirectories()
+        ' Display the names of the directories.
+        Dim dri As DirectoryInfo
+        For Each dri In diArr
+            Console.WriteLine(dri.Name)
+        Next dri
+    End Sub
+End Class
+' </snippet1>
diff --git a/snippets/visualbasic/System.IO/DirectoryInfo/MoveTo/Project.vbproj b/snippets/visualbasic/System.IO/DirectoryInfo/MoveTo/Project.vbproj
@@ -0,0 +1,8 @@
+<Project Sdk="Microsoft.NET.Sdk">
+
+  <PropertyGroup>
+    <OutputType>Library</OutputType>
+    <TargetFramework>net6.0</TargetFramework>
+  </PropertyGroup>
+   
+</Project>
diff --git a/snippets/visualbasic/System.IO/DirectoryInfo/MoveTo/directoryinfomoveto.vb b/snippets/visualbasic/System.IO/DirectoryInfo/MoveTo/directoryinfomoveto.vb
@@ -0,0 +1,35 @@
+﻿'<snippet1>
+Imports System.IO
+
+Public Class MoveToTest
+
+    Public Shared Sub Main()
+        ' Make a reference to a directory.
+        Dim di As New DirectoryInfo("TempDir")
+        ' Create the directory only if it does not already exist.
+        If di.Exists = False Then
+            di.Create()
+        End If
+
+        ' Create a subdirectory in the directory just created.
+        Dim dis As DirectoryInfo = di.CreateSubdirectory("SubDir")
+        If Directory.Exists("NewTempDir") = False Then
+            ' Move the main directory. Note that the contents move with the directory.
+            di.MoveTo("NewTempDir")
+        End If
+        Try
+            ' Attempt to delete the subdirectory. Note that because it has been
+            ' moved, an exception is thrown.
+            dis.Delete(True)
+        Catch
+            ' Handle this exception in some way, such as with the following code:
+            ' Console.WriteLine("That directory does not exist.");
+            ' Point the DirectoryInfo reference to the new directory.
+            ' di = New DirectoryInfo("NewTempDir")
+            ' Delete the directory.
+            ' di.Delete(True)        
+        End Try
+
+    End Sub
+End Class
+'</snippet1>
diff --git a/snippets/visualbasic/System.IO/DirectoryInfo/Parent/Project.vbproj b/snippets/visualbasic/System.IO/DirectoryInfo/Parent/Project.vbproj
@@ -0,0 +1,8 @@
+<Project Sdk="Microsoft.NET.Sdk">
+
+  <PropertyGroup>
+    <OutputType>Library</OutputType>
+    <TargetFramework>net6.0</TargetFramework>
+  </PropertyGroup>
+   
+</Project>
diff --git a/snippets/visualbasic/System.IO/DirectoryInfo/Parent/directoryinfoparent.vb b/snippets/visualbasic/System.IO/DirectoryInfo/Parent/directoryinfoparent.vb
@@ -0,0 +1,25 @@
+﻿'<snippet1>
+Imports System.IO
+
+Public Class MoveToTest
+
+    Public Shared Sub Main()
+        ' Make a reference to a directory.
+        Dim di As New DirectoryInfo("TempDir")
+        ' Create the directory only if it does not already exist.
+        If di.Exists = False Then
+            di.Create()
+        End If
+
+        ' Create a subdirectory in the directory just created.
+        Dim dis As DirectoryInfo = di.CreateSubdirectory("SubDir")
+
+        ' Get a reference to the parent directory of the subdirectory you just made.
+        Dim parentDir As DirectoryInfo = dis.Parent
+        Console.WriteLine("The parent directory of '{0}' is '{1}'", dis.Name, parentDir.Name)
+
+        ' Delete the parent directory.
+        di.Delete(True)
+    End Sub
+End Class
+'</snippet1>
diff --git a/snippets/visualbasic/System.IO/FileInfo/CopyTo/Project.vbproj b/snippets/visualbasic/System.IO/FileInfo/CopyTo/Project.vbproj
@@ -0,0 +1,8 @@
+<Project Sdk="Microsoft.NET.Sdk">
+
+  <PropertyGroup>
+    <OutputType>Library</OutputType>
+    <TargetFramework>net6.0</TargetFramework>
+  </PropertyGroup>
+   
+</Project>
diff --git a/snippets/visualbasic/System.IO/FileInfo/CopyTo/fileinfocopyto1.vb b/snippets/visualbasic/System.IO/FileInfo/CopyTo/fileinfocopyto1.vb
@@ -0,0 +1,45 @@
+﻿' <snippet1>
+Imports System.IO
+
+Public Class CopyToTest
+    Public Shared Sub Main()
+        Try
+            ' Create a reference to a file, which might or might not exist.
+            ' If it does not exist, it is not yet created.
+            Dim fi As New FileInfo("temp.txt")
+            ' Create a writer, ready to add entries to the file.
+            Dim sw As StreamWriter = fi.AppendText()
+            sw.WriteLine("Add as many lines as you like...")
+            sw.WriteLine("Add another line to the output...")
+            sw.Flush()
+            sw.Close()
+            ' Get the information out of the file and display it.
+            Dim sr As New StreamReader(fi.OpenRead())
+            Console.WriteLine("This is the information in the first file:")
+            While sr.Peek() <> -1
+                Console.WriteLine(sr.ReadLine())
+            End While
+            ' Copy this file to another file.
+            Dim newfi As FileInfo = fi.CopyTo("newTemp.txt")
+            ' Get the information out of the new file and display it.
+            sr = New StreamReader(newfi.OpenRead())
+            Console.WriteLine("{0}This is the information in the second file:", Environment.NewLine)
+            While sr.Peek() <> -1
+                Console.WriteLine(sr.ReadLine())
+            End While
+        Catch e As Exception
+            Console.WriteLine(e.Message)
+        End Try
+    End Sub
+End Class
+'This code produces output similar to the following; 
+'results may vary based on the computer/file structure/etc.:
+'
+'This is the information in the first file:
+'Add as many lines as you like...
+'Add another line to the output...
+'
+'This is the information in the second file:
+'Add as many lines as you like...
+'Add another line to the output...
+' </snippet1>
diff --git a/snippets/visualbasic/System.IO/FileInfo/GetAccessControl/Project.vbproj b/snippets/visualbasic/System.IO/FileInfo/GetAccessControl/Project.vbproj
@@ -0,0 +1,8 @@
+<Project Sdk="Microsoft.NET.Sdk">
+
+  <PropertyGroup>
+    <OutputType>Library</OutputType>
+    <TargetFramework>net6.0</TargetFramework>
+  </PropertyGroup>
+   
+</Project>
diff --git a/snippets/visualbasic/System.IO/FileInfo/GetAccessControl/sample.vb b/snippets/visualbasic/System.IO/FileInfo/GetAccessControl/sample.vb
@@ -0,0 +1,79 @@
+﻿'<SNIPPET1>
+Imports System.IO
+Imports System.Security.AccessControl
+
+
+
+Module FileExample
+
+    Sub Main()
+        Try
+            Dim FileName As String = "c:\test.xml"
+
+            Console.WriteLine("Adding access control entry for " & FileName)
+
+            ' Add the access control entry to the file.
+            ' Before compiling this snippet, change MyDomain to your 
+            ' domain name and MyAccessAccount to the name 
+            ' you use to access your domain.
+            AddFileSecurity(FileName, "MyDomain\\MyAccessAccount", FileSystemRights.ReadData, AccessControlType.Allow)
+
+            Console.WriteLine("Removing access control entry from " & FileName)
+
+            ' Remove the access control entry from the file.
+            ' Before compiling this snippet, change MyDomain to your 
+            ' domain name and MyAccessAccount to the name 
+            ' you use to access your domain.
+            RemoveFileSecurity(FileName, "MyDomain\\MyAccessAccount", FileSystemRights.ReadData, AccessControlType.Allow)
+
+            Console.WriteLine("Done.")
+        Catch e As Exception
+            Console.WriteLine(e)
+        End Try
+
+    End Sub
+
+
+    ' Adds an ACL entry on the specified file for the specified account.
+    Sub AddFileSecurity(ByVal FileName As String, ByVal Account As String, ByVal Rights As FileSystemRights, ByVal ControlType As AccessControlType)
+        ' Create a new FileInfo object.
+        Dim fInfo As New FileInfo(FileName)
+
+        ' Get a FileSecurity object that represents the 
+        ' current security settings.
+        Dim fSecurity As FileSecurity = fInfo.GetAccessControl()
+
+        ' Add the FileSystemAccessRule to the security settings. 
+        fSecurity.AddAccessRule(New FileSystemAccessRule(Account, Rights, ControlType))
+
+        ' Set the new access settings.
+        fInfo.SetAccessControl(fSecurity)
+
+    End Sub
+
+
+    ' Removes an ACL entry on the specified file for the specified account.
+    Sub RemoveFileSecurity(ByVal FileName As String, ByVal Account As String, ByVal Rights As FileSystemRights, ByVal ControlType As AccessControlType)
+        ' Create a new FileInfo object.
+        Dim fInfo As New FileInfo(FileName)
+
+        ' Get a FileSecurity object that represents the 
+        ' current security settings.
+        Dim fSecurity As FileSecurity = fInfo.GetAccessControl()
+
+        ' Add the FileSystemAccessRule to the security settings. 
+        fSecurity.RemoveAccessRule(New FileSystemAccessRule(Account, Rights, ControlType))
+
+        ' Set the new access settings.
+        fInfo.SetAccessControl(fSecurity)
+
+    End Sub
+End Module
+'This code produces output similar to the following; 
+'results may vary based on the computer/file structure/etc.:
+'
+'Adding access control entry for c:\test.xml
+'Removing access control entry from c:\test.xml
+'Done.
+'
+'</SNIPPET1>
diff --git a/snippets/visualbasic/System.IO/FileInfo/IsReadOnly/Project.vbproj b/snippets/visualbasic/System.IO/FileInfo/IsReadOnly/Project.vbproj
@@ -0,0 +1,8 @@
+<Project Sdk="Microsoft.NET.Sdk">
+
+  <PropertyGroup>
+    <OutputType>Library</OutputType>
+    <TargetFramework>net6.0</TargetFramework>
+  </PropertyGroup>
+   
+</Project>
diff --git a/snippets/visualbasic/System.IO/FileInfo/IsReadOnly/sample.vb b/snippets/visualbasic/System.IO/FileInfo/IsReadOnly/sample.vb
@@ -0,0 +1,48 @@
+﻿'<SNIPPET1>
+Imports System.IO
+
+Module FileExample
+
+    Sub Main()
+
+        ' Create a temporary file.
+        Dim filePath As String = Path.GetTempFileName()
+        Console.WriteLine($"Created a temp file at '{filePath}'.")
+
+        ' Create a new FileInfo object.
+        Dim fInfo As New FileInfo(filePath)
+
+        ' Get the read-only value for a file.
+        Dim isReadOnly As Boolean = fInfo.IsReadOnly
+
+        ' Display whether the file is read-only.
+        Console.WriteLine($"The file read-only value for '{fInfo.Name}' is {isReadOnly}.")
+
+        ' Set the file to read-only.
+        Console.WriteLine($"Setting the read-only value for '{fInfo.Name}' to true.")
+        fInfo.IsReadOnly = True
+
+        ' Get the read-only value for a file.
+        isReadOnly = fInfo.IsReadOnly
+
+        ' Display that the file is now read-only.
+        Console.WriteLine($"The file read-only value for '{fInfo.Name}' is {isReadOnly}.")
+
+        ' Make the file mutable again so it can be deleted.
+        fInfo.IsReadOnly = False
+
+        ' Delete the temporary file.
+        fInfo.Delete()
+    End Sub
+
+End Module
+
+' This code produces output similar to the following,
+' though results may vary based on the computer, file structure, etc.:
+'
+' Created a temp file at 'C:\Users\UserName\AppData\Local\Temp\tmpB438.tmp'.
+' The file read-only value for 'tmpB438.tmp' is False.
+' Setting the read-only value for 'tmpB438.tmp' to true.
+' The file read-only value for 'tmpB438.tmp' is True.
+'
+' </SNIPPET1>
diff --git a/snippets/visualbasic/System.IO/Path/Combine/Project.vbproj b/snippets/visualbasic/System.IO/Path/Combine/Project.vbproj
diff --git a/snippets/visualbasic/System.IO/Path/Combine/pathcombine.vb b/snippets/visualbasic/System.IO/Path/Combine/pathcombine.vb
diff --git a/xml/System.IO/DirectoryInfo.xml b/xml/System.IO/DirectoryInfo.xml
diff --git a/xml/System.IO/FileInfo.xml b/xml/System.IO/FileInfo.xml
diff --git a/xml/System.IO/Path.xml b/xml/System.IO/Path.xml
