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
|