Создание многопоточного приложения в VB.NET

Работа с директориями в VB.NET

В этой статья я расскажу Вам о базовых принципах работы с папками, используя .NET классы. Статья построена по принципу "How To" или "FAQ" - кому как удобней. И так начнём:

System.IO предоставляет доступ к классу Directory, в котором есть набор свойств и методов для манипуляции с директориями. Чтобы получить доступ к классу Directory - его нужно импортировать из System.IO.

Вы можете создать объект класса Directory следующим образом:

Imports System.IO
....
  Dim D As Directory
  D = New Directory("Some\Path")

Мы создали объект класса Directory и передали ему путь к папке

Класс Directory позволяет получить разнообразную информацию о папке. Смотрите пример:

Imports System
Imports System.IO

Public Class Properties
  Shared Sub Main()
    Dim D As Directory
    D = New Directory("C:\WinNT")
    Console.WriteLine("Доступ?                    : {0}", _
					D.Exists)
    Console.WriteLine("Дата Создания              : {0}", _
					D.Creationtime)
    Console.WriteLine("Дата Последнего Обращения  : {0}", _
					D.Lastaccesstime)
    Console.WriteLine("Дата Последней Модификации : {0}", _
					D.Lastwritetime)
    Console.WriteLine("Имя Папки                  : {0}", _
					D.Name)
    Console.WriteLine("Родительский Каталог       : {0}", _
					D.Parent.Fullname)
  End Sub
End Class

Этот примет позволит получить Вам представление о том как создавать каталоги и подкаталоги.

Imports System
Imports System.IO

Public Class CreateFolders
  Shared Sub Main()
    Dim D As Directory
    D = New Directory("C:\WinNT")

    D.CreateSubDirectory("Test1")
    D.CreateDirectory("C:\WinNT\Test2")
  End Sub
End Class

Обратите внимание что методы CreateDirectory и CreateSubDirectory различаются между собой. В методе CreateDirectory требуется указать полный путь, а в CreateSubDirectory - только имя создаваемого каталога.

Для получения списка под директорий содержащихся в указанной капке используется метод GetSubDirectories() класса Directory. Этот метод возвращает массив объектов Directory. Каждый элемент массива представляет собой подкаталог. Перебирая все элементы мы получим список подкаталогов.

Imports System
Imports System.IO

Public Class TreeDir
  Shared Sub Main()
    Dim D As Directory
    Dim Darr() As Directory
    Dim I As Integer

    D = New Directory("C:\WinNT")
    Darr = D.GetDirectories()
    For I = 0 To Darr.Length - 1
      Console.WriteLine((Darr(I)).FullName)
    Next
  End Sub
End Class

Для получения списка файлов предназначен метод GetFiles() класса Directory. Он возвращает массив объектов File. Перебор элементов массива позволит получить список всех файлов находящихся в указанной директории. Смотрите пример:

Imports System
Imports System.IO

Public Class TreeFile
  Shared Sub Main()
    Dim D As Directory
    Dim Farr() As File
    Dim I As Integer

    D = New Directory("C:\WinNT")
    Farr = D.GetFiles()
    For I = 0 To Farr.Length - 1
      Console.WriteLine((Farr(I)).FullName)
    Next
  End Sub
End Class

Время от времени Вам потребуется удалять каталоги. Метод Delete() класса Directory сделает это для Вас.

Imports System
Imports System.IO

Public Class Delete
  Shared Sub Main()
    Dim D As Directory
    D = New Directory("C:\Temp")
    D.Delete()
  End Sub
End Class

Чтобы перемещать папки из одного места в другое, вызовите статический метод Move класса Directory.

Directory.Move("source_dir,"dest_dir")

Для этой цели так же существует метод MoveTo, но работает не много по другому, Вы указываете только директорию назначения.

Dim D As Directory
D = New Directory("source_dir")
D.MoveTo("dest_path")

Статью прислал Сартин Вячеслав