Access Knowhow Modules

クラスモジュールの作り方

Access 97のDir関数を利用したクラスモジュールの作り方を紹介します。アプリケーションを開発するとき、クラスモジュールを利用することにより生産性を飛躍的に向上させることができます。

Dir関数を利用したクラスモジュールの作り方：

Access97を起動して新規データベース（MyDB)を作成します。
データベースウインドウが表示されたら、モジュールタブをクリックします。
挿入メニューからクラスモジュールをクリックします。
クラスモジュールのウインドウが表示されたらクラスモジュールｃｌｓMyDirをコピー＆ペーストします。
クラスモジュールをｃｌｓMyDirの名称で保存します。
挿入メニューから標準モジュールをクリックします。
標準モジュールのウインドウが表示されたら、使用例MyDir_EXをコピー＆ペーストします。
デバッグウインドウを表示してMyDir_EXを実行します。
C:ドライブのルートに格納されているファイルが表示されます。

クラスモジュール：　clsMyDir

Public FileList As New Collection

Public Sub FillFiles(strDir As String)
  Dim strFileName As String
   
  On Error Resume Next
  strFileName = Dir(strDir & "\*.*")
  Do While strFileName <> ""
      If (GetAttr(strDir & strFileName) And vbDirectory) <> vbDirectory Then 
          If strFileName <> "." Or strFileName <> ".." Then
              FileList.Add Item:=(strFileName)
          End If
      End If
      strFileName = Dir
  Loop
End Sub

Public Property Get FileCount() As Integer
    FileCount = FileList.Count
End Property

Public Property Get FileName(intItem As Integer) As String
    FileName = FileList.Item(intItem)
End Property

使用例：MyDir_EX

Public Sub MyDir_EX()

  Dim objDir As clsMyDir  
  Dim intI As Integer
  
  Set objDir = New clsMyDir

  With objDir
      .FillFiles "C:\"
      Debug.Print "File Count:" & .FileCount
      For intI = 1 To .FileCount
          Debug.Print .FileName(intI)
      Next
  End With
  
  Set objDir = Nothing

End Sub