Mega Code Archive

 

Categories / VB.Net by API / System IO

 

Directory GetFileSystemEntries

Imports System.IO public class Test    public Shared Sub Main         Dim aryItems() As String         Dim strPath As String = "C:\Program Files"         Dim strItem As String         aryItems = Directory.GetFileSystemEntries(strPath)         For Each strItem In aryItems             If Directory.Exists(strItem) Then                 Console.WriteLine("FOLDER " & strItem)             Else                 Console.WriteLine("FILE " & strItem)             End If         Next strItem    End Sub End class