ハウツー解説: Visual Basic か Visual Basic の .net を使用して再帰的に検索のディレクトリ

文書翻訳 文書翻訳
文書番号: 306666 - 対象製品
この記事は、以前は次の ID で公開されていました: JP306666
Microsoft Visual C++ 2005年と Microsoft VisualC++ .net バージョンをこの資料の「を参照してください。 307009.
Microsoft Visual C# 2005年と Microsoft VisualC# .net バージョンをこの資料の「を参照してください。 303974.
すべて展開する | すべて折りたたむ

目次

概要

コードをここに示しますを再帰的にする方法サブディレクトリのファイルをルート ディレクトリから開始を参照してください。検索文字列を検索することができますように指定は、特定のファイル抽出条件。コードの各部分は、必要に応じて説明されています。実用コードサンプルは、この記事の最後にも用意されています。

ディレクトリ再帰は開発者にとって一般的な IO タスクです。ファイル システム オブジェクトがコンポーネント オブジェクト モデル (COM) はこのタスクを容易します。アプリケーションです。これ、このタスクを Microsoft .net にも簡単になりましたフレームワークです。FileSystemObjectと同様、 System.IO名前空間のクラスはオブジェクト指向の方法ファイルへのアクセスを提供し、ディレクトリ。

要件

、次のとおり、推奨されるハードウェア、ソフトウェア、ネットワークを概要します。インフラストラクチャ、および必要な service pack:
  • Microsoft Visual Studio 2005年や Microsoft Visual Studio.NET
マイクロソフトプログラミングの例だけ保証せず、提供します。明示的または暗黙に提供します。これを含むが、暗黙的には、制限はありません。商品性や特定目的への適合性を保証します。この資料で使用されているプログラミング言語に精通している前提としています。作成したり、デバッグすることができますツール、実証しプロシージャ。マイクロソフト サポート エンジニア支援の機能を説明します。特定のプロシージャが、それらも変更しませんこれらの例を追加お客様固有の要件を満たすために機能または構成の手順を指定します。

ディレクトリの再帰呼び出し

ファイルおよびディレクトリ操作クラス、 System.IO名前空間に存在しています。これらのクラスを使用する前に、インポートする必要があります。次の名前空間をプロジェクトにします。
using System.IO;
				
System.IO名前空間のクラス ファイルを操作するには、多くのオプションを提供してディレクトリ。System.IO名前空間にだけではなく、インスタンス化できるクラスが用意されていますがまたファイルおよびディレクトリのユーティリティ クラスを提供します。これらのクラスが含まれている共有その型の変数を宣言しなくても呼び出すことができる方法があります。たとえば、ディレクトリオブジェクトのサブディレクトリを取得するために使用を指定しました。ディレクトリです。

次のコード文字列の配列を取得するのには、ディレクトリオブジェクトの共有のGetDirectoriesメソッドを使用します。この配列が含まれています。ディレクトリのパス名が存在する場合が正しくありません:c:\ ディレクトリのサブディレクトリにします。
Dim directories() As String = Directory.GetDirectories("C:\")
				
ディレクトリのオブジェクトには、 GetFilesメソッドも含まれています。GetFilesメソッドは、一致するファイルの文字列配列を取得することができます、特定の条件。次のコード例では、ファイルオブジェクトを使用して、C:\ ディレクトリ内のファイルのすべてを取得.dll の拡張子を使用します。
Dim files() As String = Directory.GetFiles("C:\", "*.dll")
				
GetDirectoriesメソッドとGetFilesメソッド、ディレクトリオブジェクトのすべてのファイルを再帰的に検索する必要があるが、検索文字列に一致します。次のメソッドを使用して、再帰を実行します。
    Sub DirSearch(ByVal sDir As String)
        Dim d As String
        Dim f As String

        Try
            For Each d In Directory.GetDirectories(sDir)
                For Each f In Directory.GetFiles(d, txtFile.Text)
                    lstFilesFound.Items.Add(f)
                Next
                DirSearch(d)
            Next
        Catch excpt As System.Exception
            Debug.WriteLine(excpt.Message)
        End Try
    End Sub
				
上記のコードでは、ディレクトリを含む文字列を渡すこと、 DirSearchを対象とします。この文字列の値は、ディレクトリの完全パス名です。、GetDirectoriesメソッドを使用しているディレクトリのサブディレクトリを取得できます。プロシージャに渡されます。GetDirectoriesメソッドが配列を返すため、使用することができますには/各ステートメントに各サブディレクトリ上で反復処理します。各サブディレクトリでは、そのディレクトリ内のファイルを反復処理するのには、 GetFilesメソッドを使用します。値フォーム上のテキスト ボックスは、 GetFilesメソッドに渡されます。テキスト ボックスには、検索文字列が含まれています、GetFilesメソッドが返す結果。ファイル検索条件に一致する場合は、リスト ボックスに追加します。配置されているサブディレクトリごとにDirSearchを再度呼び出しし、サブディレクトリを渡します。このような再帰呼び出しを使用して、指定したルート ディレクトリのすべてのサブディレクトリを検索できます。

完全なコード サンプル

  1. 新しい Microsoft Visual Basic 2005年または Microsoft Visual を開始します。基本的な .net Windows アプリケーション プロジェクトです。既定では、Form1 という名前のフォーム作成されます。
  2. ソリューション エクスプ ローラーを表示するには、[表示] メニューをクリックします。
  3. ソリューション エクスプ ローラーでForm1を右クリックし、[コードの表示] をクリックします。
  4. Form1 のコード ウィンドウを強調表示し、[すべて削除、既存のコードです。
  5. 次のコードを Form1 のコード ウィンドウに貼り付けますフォームです。
    Imports System.IO
    
    Public Class Form1
        Inherits System.Windows.Forms.Form
    
    #Region " Windows Form Designer generated code "
    
        Public Sub New()
            MyBase.New()
    
            'This call is required by the Windows Form Designer.
            InitializeComponent()
    
            'Add any initialization after the InitializeComponent() call.
    
        End Sub
    
        'Form overrides dispose to clean up the component list.
        Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
            If disposing Then
                If Not (components Is Nothing) Then
                    components.Dispose()
                End If
            End If
            MyBase.Dispose(disposing)
        End Sub
            Friend WithEvents cboDirectory As System.Windows.Forms.ComboBox
        Friend WithEvents txtFile As System.Windows.Forms.TextBox
        Friend WithEvents lstFilesFound As System.Windows.Forms.ListBox
        Friend WithEvents lblDirectory As System.Windows.Forms.Label
        Friend WithEvents lblFile As System.Windows.Forms.Label
        Friend WithEvents btnSearch As System.Windows.Forms.Button
            Private components As System.ComponentModel.IContainer
    
        'NOTE: The following procedure is required by the Windows Form Designer.
        'You can use the Windows Form Designer to modify it; however, do not
        'use the code editor to modify it.
        <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
            Me.btnSearch = New System.Windows.Forms.Button()
            Me.lblFile = New System.Windows.Forms.Label()
            Me.cboDirectory = New System.Windows.Forms.ComboBox()
            Me.txtFile = New System.Windows.Forms.TextBox()
            Me.lstFilesFound = New System.Windows.Forms.ListBox()
            Me.lblDirectory = New System.Windows.Forms.Label()
            Me.SuspendLayout()
            '
            'btnSearch
            '
            Me.btnSearch.Location = New System.Drawing.Point(608, 248)
            Me.btnSearch.Name = "btnSearch"
            Me.btnSearch.TabIndex = 0
            Me.btnSearch.Text = "Search"
            '
            'lblFile
            '
            Me.lblFile.Location = New System.Drawing.Point(8, 16)
            Me.lblFile.Name = "lblFile"
            Me.lblFile.Size = New System.Drawing.Size(144, 16)
            Me.lblFile.TabIndex = 5
            Me.lblFile.Text = "Search for files containing:"
            '
            'cboDirectory
            '
            Me.cboDirectory.DropDownWidth = 112
            Me.cboDirectory.Location = New System.Drawing.Point(8, 128)
            Me.cboDirectory.Name = "cboDirectory"
            Me.cboDirectory.Size = New System.Drawing.Size(120, 21)
            Me.cboDirectory.TabIndex = 2
            Me.cboDirectory.Text = "ComboBox1"
            '
            'txtFile
            '
            Me.txtFile.Location = New System.Drawing.Point(8, 40)
            Me.txtFile.Name = "txtFile"
            Me.txtFile.Size = New System.Drawing.Size(120, 20)
            Me.txtFile.TabIndex = 4
            Me.txtFile.Text = "*.dll"
            '
            'lstFilesFound
            '
            Me.lstFilesFound.Location = New System.Drawing.Point(152, 8)
            Me.lstFilesFound.Name = "lstFilesFound"
            Me.lstFilesFound.Size = New System.Drawing.Size(528, 225)
            Me.lstFilesFound.TabIndex = 1
            '
            'lblDirectory
            '
            Me.lblDirectory.Location = New System.Drawing.Point(8, 96)
            Me.lblDirectory.Name = "lblDirectory"
            Me.lblDirectory.Size = New System.Drawing.Size(120, 23)
            Me.lblDirectory.TabIndex = 3
            Me.lblDirectory.Text = "Look In:"
            '
            'Form1
            '
            Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
            Me.ClientSize = New System.Drawing.Size(688, 273)
            Me.Controls.AddRange(New System.Windows.Forms.Control() _
                {Me.lblFile, Me.txtFile, Me.lblDirectory, Me.cboDirectory, _
                Me.lstFilesFound, Me.btnSearch})
            Me.Name = "Form1"
            Me.Text = "Form1"
            Me.ResumeLayout(False)
    
        End Sub
    
    #End Region
    
        Private Sub btnSearch_Click(ByVal sender As System.Object, _
                ByVal e As System.EventArgs) Handles btnSearch.Click
            lstFilesFound.Items.Clear()
            txtFile.Enabled = False
            cboDirectory.Enabled = False
            btnSearch.Text = "Searching..."
            Me.Cursor = Cursors.WaitCursor
            Application.DoEvents()
            DirSearch(cboDirectory.Text)
            btnSearch.Text = "Search"
            Me.Cursor = Cursors.Default
            txtFile.Enabled = True
            cboDirectory.Enabled = True
        End Sub
    
        Sub DirSearch(ByVal sDir As String)
            Dim d As String
            Dim f As String
    
            Try
                For Each d In Directory.GetDirectories(sDir)
                    For Each f In Directory.GetFiles(d, txtFile.Text)
                        lstFilesFound.Items.Add(f)
                    Next
                    DirSearch(d)
                Next
            Catch excpt As System.Exception
                Debug.WriteLine(excpt.Message)
            End Try
        End Sub
    
        Private Sub Form1_Load(ByVal sender As System.Object, _
                ByVal e As System.EventArgs) Handles MyBase.Load
            Dim s As String
            cboDirectory.Items.Clear()
            For Each s In Directory.GetLogicalDrives()
                cboDirectory.Items.Add(s)
            Next
            cboDirectory.Text = "C:\"
        End Sub
    End Class
    					
    Visual Basic 2005年でコードを変更する必要があります。既定では、視覚ではBasic は、Windows フォームを作成するとプロジェクトの 2 つのファイルを作成します。プロジェクトです。フォームが Form1 という名前の場合は、フォームを表す 2 つのファイルがあります。Form1.vb の名前付き、Form1.Designer.vb。Form1.vb ファイルにコードを記述します。Windows フォーム デザイナー、Form1.Designer.vb ファイルにコードを書き込みます。、Windows フォーム デザイナーの実装に分割するのに partial キーワードを使用します。Form1 に 2 つの独立したファイル。この現象、デザイナーで生成されたを防止します。コードがコードに混入しています。

    詳細については新しい Visual Basic 2005年の言語強化について、以下をご覧下さい。マイクロソフト開発ネットワーク (MSDN) Web サイト。
    .aspx の http://msdn.microsoft.com/en-us/library/ms379584 (VS.80)
    部分クラスおよび Windows フォームに関する詳細はデザイナーは、次の MSDN Web サイトを参照してください。
    http://msdn2.microsoft.com/en-us/library/ms171843.aspx
  6. ビルドして、サンプルを実行するには、F5 キーを押します。

関連情報

詳細については情報の資料を参照するには、次の資料番号をクリックして、マイクロソフト サポート技術情報:
302309Visual Basic 2005 または Visual Basic .net で System.IO を使用してテキスト ファイルを読み取る方法
Visual Basic のより一般的な情報.NET では、次の Usenet ニュースグループを参照してください。
Visual Basic

プロパティ

文書番号: 306666 - 最終更新日: 2012年7月24日 - リビジョン: 1.0
この資料は以下の製品について記述したものです。
  • Microsoft Visual Basic 2005
  • Microsoft Visual Basic .NET 2003 Standard Edition
  • Microsoft Visual Basic .NET 2002 Standard Edition
キーワード:?
kbvs2005swept kbvs2005applies kbhowtomaster kbmt KB306666 KbMtja
機械翻訳の免責
重要: このサポート技術情報 (以下「KB」) は、翻訳者による翻訳の代わりに、マイクロソフト機械翻訳システムによって翻訳されたものです。マイクロソフトは、お客様に、マイクロソフトが提供している全ての KB を日本語でご利用いただけるように、翻訳者による翻訳 KB に加え機械翻訳 KB も提供しています。しかしながら、機械翻訳の品質は翻訳者による翻訳ほど十分ではありません。誤訳や、文法、言葉使い、その他、たとえば日本語を母国語としない方が日本語を話すときに間違えるようなミスを含んでいる可能性があります。マイクロソフトは、機械翻訳の品質、及び KB の内容の誤訳やお客様が KB を利用されたことによって生じた直接または間接的な問題や損害については、いかなる責任も負わないものとします。マイクロソフトは、機械翻訳システムの改善を継続的に行っています。
英語版 KB:306666
Microsoft Knowledge Base の免責: Microsoft Knowledge Baseに含まれている情報は、いかなる保証もない現状ベースで提供されるものです。Microsoft Corporation及びその関連会社は、市場性および特定の目的への適合性を含めて、明示的にも黙示的にも、一切の保証をいたしません。さらに、Microsoft Corporation及びその関連会社は、本文書に含まれている情報の使用及び使用結果につき、正確性、真実性等、いかなる表明・保証も行ないません。Microsoft Corporation、その関連会社及びこれらの権限ある代理人による口頭または書面による一切の情報提供またはアドバイスは、保証を意味するものではなく、かつ上記免責条項の範囲を狭めるものではありません。Microsoft Corporation、その関連会社 及びこれらの者の供給者は、直接的、間接的、偶発的、結果的損害、逸失利益、懲罰的損害、または特別損害を含む全ての損害に対して、状況のいかんを問わず一切責任を負いません。(Microsoft Corporation、その関連会社 またはこれらの者の供給者がかかる損害の発生可能性を了知している場合を含みます。) 結果的損害または偶発的損害に対する責任の免除または制限を認めていない地域においては、上記制限が適用されない場合があります。なお、本文書においては、文書の体裁上の都合により製品名の表記において商標登録表示、その他の商標表示を省略している場合がありますので、予めご了解ください。

フィードバック

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com