Dir 関数で複数条件を指定するには？

質問

Sub Sample()
Dim MyFileName As String
Dim MyFolderName As String

MyFolderName = "C:\Windows"

MyFileName = Dir(MyFolderName & "\*.exe" Or MyFolderName & "\*.dll")
Do While MyFileName <> ""
Debug.Print MyFileName
MyFileName = Dir()
Loop
End Sub

このような感じで、拡張子がexeとdllファイルを書き出すことは無理なのでしょうか？
このコードを実行すると、実行時エラー１３が発生します。

回答No.2

piroin654 · ベストアンサー

No1です。
確実に拡張子を設定するならば、

＞If Right(MyFileName, 3) = "exe" Or Right(MyFileName, 3) = "dll" Then

を

If Right(MyFileName, 4) = ".exe" Or Right(MyFileName, 4) = ".dll" Then

にしてください。まさか"hoge.hogeexe"だとか"hoge.hogedll"のような
まがいものは紛れ込まないとは思いますが。

お礼

そうします！
ご回答ありがとうございました。

回答No.1

piroin654

無理にDir関数をこじ開けるより、
素直に以下のようにする方法でどうですか？
Windows以下のファイルを検索し、ファイル名の
末尾がexeのものとdllのものを取り出す、という
仕様です。

Sub Sample()
　　Dim MyFileName As String

　　MyFileName = Dir("C:\Windows\", 0)
　　Do While MyFileName <> ""
　　　　If Right(MyFileName, 3) = "exe" Or Right(MyFileName, 3) = "dll" Then
　　　　　　Debug.Print MyFileName
　　　　End If
　　　　MyFileName = Dir()
　　Loop
End Sub

お礼

あ・・・そうですね。
dirを通過してからifしちゃえばいいですね。
ご回答ありがとうございました。