[ExcelVBA] Dir関数

>Blog Top Page >[ExcelVBA] Top Page >[ExcelVBA] 関数一覧

■構文
Dir[(pathname[, attributes])]

■説明
指定したパターンやファイル属性と一致するファイル・フォルダの名前を返します。
第一引数：(省略可能)ファイル名を表す文字列を指定。フォルダ名・ドライブ名も含めて指定できます。 ファイル名を表す文字列には、"*","?"を使うことができます 第二引数：(省略可能)取得するファイルの属性を指定。省略時は“標準ファイル”になります。

定数	値	内容
vbNormal	0	標準ファイル
vbReadOnly	1	読み取り専用ファイル
vbHidden	2	隠しファイル
vbSystem	4	システムファイル。
vbVolumne	8	ボリュームラベル。
vbDirectory	16	フォルダ
vbAlias	64	エイリアスファイル

■サンプルコード-ファイル・フォルダが存在するか確認-

view plainprint?

1. Option Explicit  
2.   
3. 'ファイルが存在するか確認する  
4. Sub SampleCode()  
5.     Dim TestFile As String  
6.     TestFile = "C:\test.xls" '調べたいファイルのフルパス  
7.     If Dir(TestFile) <> "" Then  
8.         Debug.Print "あるよ"  
9.     Else  
10.         Debug.Print "ないよ"  
11.     End If  
12. End Sub  
13.   
14.   
15. 'フォルダが存在するか確認する  
16. Sub SampleCode2()  
17.     Dim TestDirectory As String  
18.     TestDirectory = "C:\test"  
19.     If Dir(TestDirectory, vbDirectory) <> "" Then  
20.         Debug.Print "あるよ"  
21.     Else  
22.         Debug.Print "ないよ"  
23.     End If  
24. End Sub  

Option Explicit

'ファイルが存在するか確認する
Sub SampleCode()
    Dim TestFile As String
    TestFile = "C:\test.xls" '調べたいファイルのフルパス
    If Dir(TestFile) <> "" Then
        Debug.Print "あるよ"
    Else
        Debug.Print "ないよ"
    End If
End Sub


'フォルダが存在するか確認する
Sub SampleCode2()
    Dim TestDirectory As String
    TestDirectory = "C:\test"
    If Dir(TestDirectory, vbDirectory) <> "" Then
        Debug.Print "あるよ"
    Else
        Debug.Print "ないよ"
    End If
End Sub

■サンプルコード-指定フォルダにあるファイルリストアップ-

view plainprint?

1. Option Explicit  
2.   
3. '.htmlで終わるファイルの一覧をリストアップする  
4. Sub SampleCode()  
5.     Dim MatchFile As String  
6.     MatchFile = Dir("C:\test\*.html") '.htmlで終わるファイルということでアスタリスクを使って表現  
7.       
8.     Do While MatchFile <> ""  
9.         Debug.Print MatchFile  
10.         MatchFile = Dir() '次にマッチするのを探す  
11.     Loop  
12. End Sub  

Option Explicit

'.htmlで終わるファイルの一覧をリストアップする
Sub SampleCode()
    Dim MatchFile As String
    MatchFile = Dir("C:\test\*.html") '.htmlで終わるファイルということでアスタリスクを使って表現
    
    Do While MatchFile <> ""
        Debug.Print MatchFile
        MatchFile = Dir() '次にマッチするのを探す
    Loop
End Sub

>Blog Top Page >[ExcelVBA] Top Page >[ExcelVBA] 関数一覧