FileSystemInfo.Name
Imports System.IO public class Test public Shared Sub Main Dim strPath As String = "C:\Program Files" Dim objDI As New DirectoryInfo(strPath) Dim aryItemsInfo() As FileSystemInfo Dim objItem As FileSystemInfo aryItemsInfo = objDI.GetFileSystemInfos() For Each objItem In aryItemsInfo If objItem.Attributes And FileAttributes.Directory Then Console.WriteLine("FOLDER ") Else Console.WriteLine("FILE ") End If Console.WriteLine(objItem.Name) Next End Sub End class
1. | FileSystemInfo.Attributes |