archivos con expresiones regulares

Dim rgx As Regex = New Regex("[^a-z]")

Dim archivosTxt() As String = Directory.GetFiles("carpeta_origen, "*.*").Where(Function(c) rgx.IsMatch(Path.GetFileName(c))).ToArray

Directorio de un archivo

archivo = "D:\programa\bin\archivos\test\archivo.xml"

Dim ruta As String = New FileInfo(archivo).Directory.FullName
Dim ruta As String = Path.GetDirectoryName(archivo)

Buscar todos los archivos en todos los directorios

Dim array() As String = Directory.GetFiles(ruta_carpeta, "*", SearchOption.AllDirectories)

Obtener el primer directorio después del directorio raíz

Dim dir As System.IO.FileInfo = New System.IO.FileInfo(nombre_archivo)
dir.Directory.Parent.FullName

Obtener todos los archivos txt de las carpetas y subcarpetas

Dim logtxt() As String = Directory.GetFiles(rutaempresa & "\" & "compra", "*.txt", SearchOption.AllDirectories)

Obtener archivos de un directorio con filtro-patrón de selección

Dim directorio As String = "D:\compra"
        Dim rgx As String = "2007-06*.*"
        Dim dirs As String() = Directory.GetFiles(directorio, rgx, SearchOption.TopDirectoryOnly).ToArray

fuente

Cantidad de directorios en un directorio

Dim nDir As Integer = Directory.GetDirectories(DirEmpresas).Length

Verificar si el directorio existe

If Directory.Exists(ruta) then
End If


' Si no existe
If Not Directory.Exists(ruta) then
End If

Crear directorio

Try
            Directory.CreateDirectory("nombreDirectorio")
        Catch ex As Exception
            MessageBox.Show(ex.ToString())
        End Try

Verificar si el archivo existe

If File.Exists(Directory.GetCurrentDirectory & "\" & archivo) Then
Dim sr As New StreamReader(Directory.GetCurrentDirectory & "\" & archivo)
sr.Close()
sr.Dispose()
Else
' El archivo no se encuentra
End If

Si el archivo no existe

If Not File.Exists() Then

End If