「VB.NET」GetFilesメソッドで指定パスのファイル一覧を取得する

2022年2月2日

関数
Public Shared Function GetFiles(path As String, searchPattern As String,
searchOption As SearchOption) As String()
パラメーター
path:パスを指定
searchPattern:アスタリスク(*)とワイルドカード(?)に対応します,ファイル名の指定ができます。
searchOption:サブディレクトリを含めるかを指定
AllDirectories 現在のフォルダとサブフォルダも含める
TopDirectoryOnly 現在のフォルダのみ

使用例

Plain text
Copy to clipboard
Open code in new window
EnlighterJS 3 Syntax Highlighter
Public Sub Main()
Dim filePath As String = "C:\study\vb"
Dim fLst() As String
Try
'GetFilesメソッド 引数2は*.csv拡張子  引数3サブフォルダを含める
fLst = System.IO.Directory.GetFiles _
(filePath, "*.csv", System.IO.SearchOption.AllDirectories)
'ファイルの一覧を取得
For Each filename As String In fLst
Console.WriteLine(filename)
Next
Catch e As Exception
Console.WriteLine(e.Message)
End Try
Console.ReadKey()
End Sub
Public Sub Main() Dim filePath As String = "C:\study\vb" Dim fLst() As String Try 'GetFilesメソッド 引数2は*.csv拡張子  引数3サブフォルダを含める fLst = System.IO.Directory.GetFiles _ (filePath, "*.csv", System.IO.SearchOption.AllDirectories) 'ファイルの一覧を取得 For Each filename As String In fLst Console.WriteLine(filename) Next Catch e As Exception Console.WriteLine(e.Message) End Try Console.ReadKey() End Sub
Public Sub Main()

    Dim filePath As String = "C:\study\vb"
    Dim fLst() As String

    Try
        'GetFilesメソッド 引数2は*.csv拡張子  引数3サブフォルダを含める
        fLst = System.IO.Directory.GetFiles _
        (filePath, "*.csv", System.IO.SearchOption.AllDirectories)


        'ファイルの一覧を取得
        For Each filename As String In fLst
            Console.WriteLine(filename)
        Next
    Catch e As Exception
        Console.WriteLine(e.Message)
    End Try

    Console.ReadKey()
End Sub

実行結果
C:\study\vb\test01.csv
C:\study\vb\test04.csv

VB.net

Posted by arkgame