التحكم بالمجلدات - نسخ ولصق ونقل - مكتبة أكواد VB.NET

Dim objDir As System.IO.Directory
' Creates a directory
objDir.CreateDirectory("c:\mydata")
' Delete a directory, recursively
objDir.Delete("c:\temp", True)
' Get current directory
Dim strCurDir As String = objDir.GetCurrentDirectory
' Check whether a directory exists
Dim blnExists As Boolean = objDir.Exists("c:\mydata")
' Get string array of all directories in a path
Dim strDirectories() As String = objDir.GetDirectories("c:\Program Files\")
' Get files in a directory
Dim strFiles1() As String = objDir.GetFiles("c:\winnt")
' Get all *.DOC files in a directory
Dim strFiles2() As String = objDir.GetFiles("c:\my documents", "*.doc")
' Move a directory
objDir.Move("c:\backup", "c:\original")