' findfile2.vb Imports System Imports System.IO Public Class FildFile Shared Sub Search(ByVal dir As String, ByVal file As String) Dim files As String() = Directory.GetFiles( _ dir, file, SearchOption.AllDirectories) For Each s As String in files Console.WriteLine(s) Next End Sub Shared Sub Main(ByVal args As String()) If args.Length <> 2 Then Return Search(args(0), args(1)) End Sub End Class ' コンパイル方法:vbc findfile2.vb '     実行例:findfile2 c:\ *.vb