Соррю (тобеш извиняюсь) я обилие моих тем, но наболело!
есть дирректория, надо оттуда вырвать названия всех файлов с нужным расширением.
апишка?
какая?
Imports System
Imports System.IO
Public Class Test
Public Shared Sub Main()
Try
Dim di As DirectoryInfo = New DirectoryInfo("c:\")
'Get only subdirectories that contain the letter "p."
Dim dirs As DirectoryInfo() = di.GetDirectories("*p*")
Console.WriteLine("Number of directories with a p: {0}", dirs.Length)
Dim diNext As DirectoryInfo
' Count all files in each subdirectory that contain the letter "e."
For Each diNext In dirs
Console.WriteLine("The number of files in {0} with an e is {1}", _
diNext, diNext.GetFiles("*e*").Length)
Next
Catch e As Exception
Console.WriteLine("The process failed: {0}", e.ToString())
End Try
End Sub
End Class
Dim sFiles As String()
sFiles = System.IO.Directory.GetFiles("d:\temp\", "*.xls")
Сейчас этот форум просматривают: SemrushBot, Yandex-бот и гости: 97