下記のようなコードを記述したところ、エラーが表示されたとのことです。
Sub ドライブ数表示()
Dim MyFSO As New FileSystemObject
MsgBox MyFSO.Drives.Count
Set MyFSO = Nothing
End Sub
回避方法は以下の通りです。
１．VBEで「ツール」をクリックします。
２．「参照設定」をクリックします。
３．≪参照可能なライブラリファイル≫の一覧から[Microsoft Scripting Runtime]にチェックをつけ、「OK」をクリックします。
このあと、コードを記述すればエラーは回避できます。
フォルダやファイルを操作したり、テキストファイルへ入出力したりするためのオブジェクトが「FileSystemObject（ファイルシステムオブジェクト）」です。これを使うと、フォルダやファイルなどをオブジェクトとして取得し、メソッドやプロパティを使って操作できます。
また、FileSystemObjectはVBAとは独立したオブジェクトです。したがって、VBAからFileSystemObjectを利用するためには、ライブラリファイル[Microsoft Scripting Runtime]への参照を設定します。
参照設定の有効範囲は、参照を設定したブック内です。FileSystemObjectを利用するブックごとに[Microsoft Scripting Runtime]への参照を設定します。
よろしかったら・・・応援クリック・・・お願いします。励みになります。
