MyLib.madに登録されているクラス（MyComputer)を使用するには

MyLib.mdaに登録されているクラスモジュール（MyComputer）の使い方を解説します。

  1. Access97を起動して新規データベース（MyDB)を作成します。

  2. データベースウインドウが表示されたら、モジュールタブをクリックして新規作成のボタンをクリックします。

  3. ツールメニューから参照設定をクリックしてMyLib.mdaを登録します。


  4. モジュールウインドウに使用例のMyComputer_EXをコピー＆ペーストします。

  5. デバッグウインドウを表示させてMyComputer_EXを実行させます。

使用例：MyComputer_EX

Sub MyComputer_EX()
 
  Dim objDrive As Object
  Dim objMyComputer As Object
 
  Set objMyComputer = OpenMyComputer_FS
  With objMyComputer
      Debug.Print .OSName & " " & .OSVersion
      Debug.Print .ComputerName
      Debug.Print .UserName
      Debug.Print .CPUArchitecture
      Debug.Print .CPULevel
      Debug.Print .OSName
      Debug.Print .OSVersion
      Debug.Print .OSBuild
      Debug.Print .WinStarted
      Debug.Print .ScreenResolution
      For Each objDrive In .Drives
           With objDrive
              Debug.Print .Root, "Total: " & _
               .TotalSpace & " bytes" _
                ,"Free: " & .FreeSpace & " bytes"
           End With
      Next
  End With
  CloseMyComputer_FS objMyComputer
   
End Sub