MyLib.mdaに登録されているクラスモジュール（MyDir）の使い方を解説します。
- Access97を起動して新規データベース（MyDB)を作成します。
- データベースウインドウが表示されたら、モジュールタブをクリックして新規作成のボタンをクリックします。
- ツールメニューから参照設定をクリックしてMyLib.mdaを登録します。
- モジュールウインドウに使用例のMyDir_EXをコピー＆ペーストします。
- デバッグウインドウを表示させてMyDir_EXを実行させます。
|
使用例：MyDir_EX
Sub MyDir_EX()
Dim objMyDir As Object
Dim lngI As Long
Set objMyDir = OpenMyDir_FS
With objMyDir
.fillfiles "C:"
Debug.Print "File Count:" & .FileCount
For lngI = 1 To .FileCount
Debug.Print .FileName(lngI)
Next
Debug.Print "============================="
.fillfolders "C:"
Debug.Print "Dir Count:" & .DirCount
For lngI = 1 To .DirCount
Debug.Print .DirName(lngI)
Next
End With
CloseMyDir_FS objMyDir
End Sub |