VB.NET || How To Get A List Of Files At A Given Path Directory Using VB.NET

November 30, 2020 admin No comments

The following is a module with functions which demonstrates how to get a list of files at a given directory path using VB.NET.

The function demonstrated on this page returns a list of System.IO.FileInfo, which contains information about the files in the given directory.

1. Get Files In Directory

The example below demonstrates the use of ‘Utils.GetFilesInDirectory‘ to get a list of files at a given path directory.

The optional function parameter lets you specify the search option. This lets you specify whether to limit the search to just the current directory, or expand the search to the current directory and all subdirectories when searching for files.





		
		
			1. Get Files In Directory
			
Visual Basic .NET
			
			' Get Files In Directory

' Declare directory path
Dim directory = "C:\Users\Name\Desktop"

' Get files at the specified directory
Dim files = Utils.GetFilesInDirectory(directory)

' Display info about the files
For Each file In files
    Debug.Print($"File: {file.FullName} - Last Modified: {file.LastWriteTime}")
Next

' example output:
'    File: C:\Users\Name\Desktop\text.txt - Last Modified: 10/7/2020 12:47:56 PM
'    File: C:\Users\Name\Desktop\image.png - Last Modified: 9/4/2020 8:36:25 PM
'    File: C:\Users\Name\Desktop\document.docx - Last Modified: 3/7/2018 9:26:19 PM
			
				
					
				
					1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
				
						' Get Files In Directory
 
' Declare directory path
Dim directory = "C:\Users\Name\Desktop"
 
' Get files at the specified directory
Dim files = Utils.GetFilesInDirectory(directory)
 
' Display info about the files
For Each file In files
    Debug.Print($"File: {file.FullName} - Last Modified: {file.LastWriteTime}")
Next
 
' example output:
'    File: C:\Users\Name\Desktop\text.txt - Last Modified: 10/7/2020 12:47:56 PM
'    File: C:\Users\Name\Desktop\image.png - Last Modified: 9/4/2020 8:36:25 PM
'    File: C:\Users\Name\Desktop\document.docx - Last Modified: 3/7/2018 9:26:19 PM

2. Utils Namespace

The following is the Utils Namespace. Include this in your project to start using!





		
		
			Utils Namespace
			
Visual Basic .NET
			
			' ============================================================================
'    Author: Kenneth Perkins
'    Date:   Nov 30, 2020
'    Taken From: http://programmingnotes.org/
'    File: Utils.vb
'    Description: Handles general utility functions
' ============================================================================
Option Strict On
Option Explicit On

Namespace Global.Utils
    Public Module modUtils
        ''' <summary>
        ''' Returns a list of <see cref="System.IO.FileInfo"/> of the files 
        ''' in the given directory
        ''' </summary>
        ''' <param name="directory">The relative or absolute path to the directory to search</param> 
        ''' <param name="searchOption">The file search option</param>
        ''' <returns>A list of <see cref="System.IO.FileInfo"/> in the given directory</returns>
        Public Function GetFilesInDirectory(directory As String _
                , Optional searchOption As System.IO.SearchOption = System.IO.SearchOption.TopDirectoryOnly) As List(Of System.IO.FileInfo)
            Return System.IO.Directory.GetFiles(directory, "*", searchOption) _
                .Select(Function(fileName) New System.IO.FileInfo(fileName)).ToList
        End Function
    End Module
End Namespace ' http://programmingnotes.org/
			
				
					
				
					1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
				
						' ============================================================================
'    Author: Kenneth Perkins
'    Date:   Nov 30, 2020
'    Taken From: http://programmingnotes.org/
'    File: Utils.vb
'    Description: Handles general utility functions
' ============================================================================
Option Strict On
Option Explicit On
 
Namespace Global.Utils
    Public Module modUtils
        ''' <summary>
        ''' Returns a list of <see cref="System.IO.FileInfo"/> of the files 
        ''' in the given directory
        ''' </summary>
        ''' <param name="directory">The relative or absolute path to the directory to search</param> 
        ''' <param name="searchOption">The file search option</param>
        ''' <returns>A list of <see cref="System.IO.FileInfo"/> in the given directory</returns>
        Public Function GetFilesInDirectory(directory As String _
                , Optional searchOption As System.IO.SearchOption = System.IO.SearchOption.TopDirectoryOnly) As List(Of System.IO.FileInfo)
            Return System.IO.Directory.GetFiles(directory, "*", searchOption) _
                .Select(Function(fileName) New System.IO.FileInfo(fileName)).ToList
        End Function
    End Module
End Namespace ' http://programmingnotes.org/

3. More Examples

Below are more examples demonstrating the use of the ‘Utils‘ Namespace. Don’t forget to include the module when running the examples!





		
		
			More Examples
			
Visual Basic .NET
			
			' ============================================================================
'    Author: Kenneth Perkins
'    Date:   Nov 30, 2020
'    Taken From: http://programmingnotes.org/
'    File: Program.vb
'    Description: The following demonstrates the use of the Utils Namespace
' ============================================================================
Option Strict On
Option Explicit On
Imports System

Public Module Program
    Sub Main(args As String())
        Try
            ' Declare directory path
            Dim directory = "C:\path\to\directory"

            ' Get files at the specified directory
            Dim files = Utils.GetFilesInDirectory(directory)

            ' Display info about the files
            For Each file In files
                Display($"File: {file.FullName} - Last Modified: {file.LastWriteTime}")
            Next
        Catch ex As Exception
            Display(ex.ToString)
        Finally
            Console.ReadLine()
        End Try
    End Sub

    Public Sub Display(message As String)
        Console.WriteLine(message)
        Debug.Print(message)
    End Sub
End Module ' http://programmingnotes.org/
			
				
					
				
					1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
				
						' ============================================================================
'    Author: Kenneth Perkins
'    Date:   Nov 30, 2020
'    Taken From: http://programmingnotes.org/
'    File: Program.vb
'    Description: The following demonstrates the use of the Utils Namespace
' ============================================================================
Option Strict On
Option Explicit On
Imports System
 
Public Module Program
    Sub Main(args As String())
        Try
            ' Declare directory path
            Dim directory = "C:\path\to\directory"
 
            ' Get files at the specified directory
            Dim files = Utils.GetFilesInDirectory(directory)
 
            ' Display info about the files
            For Each file In files
                Display($"File: {file.FullName} - Last Modified: {file.LastWriteTime}")
            Next
        Catch ex As Exception
            Display(ex.ToString)
        Finally
            Console.ReadLine()
        End Try
    End Sub
 
    Public Sub Display(message As String)
        Console.WriteLine(message)
        Debug.Print(message)
    End Sub
End Module ' http://programmingnotes.org/

QUICK NOTES:
The highlighted lines are sections of interest to look out for.

The code is heavily commented, so no further insight is necessary. If you have any questions, feel free to leave a comment below.

Was this article helpful?

👍 YesNo

Posted in: Console, VB.NET Tags: get files, vb.net

VB.NET || How To Get A List Of Files At A Given Path Directory Using VB.NET

Related

Leave a ReplyCancel reply

Search

Compile Your Code Now

Translate Page

Popular Pages

Recent

Archives

Categories