• Dir

FilenameArray = Dir ( Directory AS String [ , Pattern AS String , Filter AS Integer ] ) AS String[]

パターンとフィルタに一致したディレクトリにあるファイルの名前を含む文字列配列を返します。
パターンには、 LIKE 演算子と同じ総称文字を含めることができます。 パターンが指定されていない場合は、任意のファイル名が返されます。

フィルタはどの種類のファイルが返されるかを指定します。
フィルタは、次のいずれかの値になります。

1. ファイルのみを返すためのgb.File 。
2. ディレクトリだけを返すためのgb.Directory。
3. 両方を返すためのgb.File + gb.Directory。

Filterが指定されていない場合は、すべてのファイルとディレクトリが返されます。

返されるファイル名は検索されたディレクトリからの相対パスです。 検索されたディレクトリへのパスは含まれていません。

Examples

'png画像ファイルをディレクトリのアルファベット順に印刷します。

Sub PrintDirectory(Directory As String)

Dim File As String

 For Each File In Dir(Directory, "*.png").Sort()
Print File
Next

End

' Print all non-hidden files in the user home directory.

Dim fileName As String

For Each fileName In Dir(User.Home, "[^.]*")
Print fileName
Next

'ユーザのホームディレクトリにある隠されていないファイルをすべて印刷します。

Dim Directory As String
Dim Files As String[]
Dim FileName As String

Directory = System.User.Home
Files = Dir(Directory, "*.png")
Files.Insert(Dir(Directory, "*.jpg"))
Files.Insert(Dir(Directory, "*.jpeg"))

For Each FileName In Files
Print FileName
Next

'ユーザーのホームディレクトリにあるファイルのみを印刷します。

Dim fileName As String

For Each fileName In Dir(User.Home, "*", gb.File)
Print fileName
Next

'ユーザーのホームディレクトリ内のサブディレクトリのみを印刷します。

Dim directoryName As String

For Each directoryName In Dir(User.Home, "*", gb.Directory)
Print directoryName
Next

'ユーザのホームディレクトリに隠されていないサブディレクトリを表示します。

Dim directoryName As String

For Each directoryName In Dir(User.Home, "[^.]*", gb.Directory)
Print directoryName
Next

See also

• File & Directory Functions

• File & Directory Paths