VB.NET Program to get File Names in a Folder / Directory

Posted on: 07/09/2013 07/09/2013
Categories: VB.Net Console Programs

In this post we will see a VB.Net Program to retrieve list of file names in a given folder/directory.

Imports System.IO
Module Module1

Sub Main()
Try
Dim FolderPath As String
Dim Files As String() 'declaring string array
            Console.WriteLine("www.ProgrammingPosts.blogspot.com")
            Console.WriteLine(vbLf & ">>>VB.NET PROGRAM To PRINT FILES NAMES IN A Given Directory  <<<")
            Console.WriteLine(" Enter the Directory Path to get File Names in it : ")
            FolderPath = Console.ReadLine()
            Files = Directory.GetFiles(FolderPath)
            Console.WriteLine(vbLf & " The FileNames with extension in given Directory are : " & vbLf & vbLf)

For Each FileName As String In Files
' Creating the FileInfo object
Dim fi As System.IO.FileInfo = Nothing
Try
                    fi = New System.IO.FileInfo(FileName)
Catch ex As System.IO.FileNotFoundException
' To inform the user and continue
                    Console.WriteLine(ex.Message)
                    Continue For
End Try
' Console.WriteLine("{0}", fi.Directory);  //prints filepath
' Console.WriteLine("{0}", fi.DirectoryName); // prints directorypath
                Console.WriteLine("{0}", fi.Name)
Next
            Console.ReadLine()
Catch ex As DirectoryNotFoundException
            Console.BackgroundColor = ConsoleColor.Red
            Console.WriteLine(vbLf & vbLf & " Directory Not Found..Press any key to exit...")
            Console.ReadKey()
End Try
End Sub

Imports System.IO

Module Module1

Sub Main()

Try

Dim FolderPath As String

Dim Files As String() 'declaring string array

Console.WriteLine("www.ProgrammingPosts.blogspot.com")

Console.WriteLine(vbLf & ">>>VB.NET PROGRAM To PRINT FILES NAMES IN A Given Directory <<<")

Console.WriteLine(" Enter the Directory Path to get File Names in it : ")

FolderPath = Console.ReadLine()

Files = Directory.GetFiles(FolderPath)

Console.WriteLine(vbLf & " The FileNames with extension in given Directory are : " & vbLf & vbLf)

For Each FileName As String In Files

' Creating the FileInfo object

Dim fi As System.IO.FileInfo = Nothing

Try

fi = New System.IO.FileInfo(FileName)

Catch ex As System.IO.FileNotFoundException

' To inform the user and continue

Console.WriteLine(ex.Message)

Continue For

End Try

' Console.WriteLine("{0}", fi.Directory); //prints filepath

' Console.WriteLine("{0}", fi.DirectoryName); // prints directorypath

Console.WriteLine("{0}", fi.Name)

Console.ReadLine()

Catch ex As DirectoryNotFoundException

Console.BackgroundColor = ConsoleColor.Red

Console.WriteLine(vbLf & vbLf & " Directory Not Found..Press any key to exit...")

Console.ReadKey()

End Try

End Sub

Sample Output :

Sameer Shaik

184