CD-RWの空き要領を取得するには？ (ID:108813)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 > CD-ROMドライブのみ生じる現象です。 仕様という事で。(^_^;) > ＣＤ−ＲなのかＣＤ−ＲＷなのか判別 IMAPIを使えば取得できるかも。(未確認) > 空き要領を取得 FolderオブジェクトのGetDetailsOfメソッドで取得できるかも。 以下、手抜きコード。 Option Explicit Private Sub Form_Load() 'CD-RWドライブを指定 MsgBox GetFreeArea("E:\") End Sub Private Function GetFreeArea(ByVal Drive As String) As String Dim S As Object Dim F As Object Dim FI As Object If Len(Drive) = 1 Then Drive = Drive & ":" End If If Right(Drive, 1) <> "\" Then Drive = Drive & "\" End If On Error Resume Next Set S = CreateObject("Shell.Application") Set F = S.NameSpace(CVar(Drive)) Set FI = F.Items().Item() GetFreeArea = F.ParentFolder.GetDetailsOf(FI, 3) On Error GoTo 0 Set FI = Nothing Set F = Nothing Set S = Nothing End Function