高手给看一下！给改一下！

Question

Private Declare Function GetDiskFreeSpace Lib "kernel32" Alias " GetDiskFreeSpace" (ByVal lprootpathname As String, ByRef lpsecisPercluster As Integer, ByRef lpBytesPerSector As Integer, ByRef lpNumbeOfFreeClusters As Integer, ByRef lpTtoalNumberOfFreeClusters As Integer) As Integer
Public Function DiskSpace(ByRef DrivePath As String) As Double
Dim drive As String
Dim sectorspercluster, bytespersector As Integer
Dim totalclusters, numberoffreecluters, s As Integer
Dim dapace As Object
drive = VB.Left(Trim(DrivePath), 1) & ":\"
s = GetDiskFreeSpace(drive, sectorspercluster, bytespersector, NumberOfFreeClusters, tootalclusters)
If s <> O Then
DiskSpace = sectorspecluster * bytspersector * NumberOfFreeClusters
dspace = Vb6.Format(DiskSpace, "###,###")
Label1.Text = dspace & "bytes"
End If
End FunctionPrivate Sub Button1_Click(byval eventSender as systen.object,byvalenentArga as System.Evevtargs）Handles button1.clickh                        Handles编译错误。 
Dim i As Object
i = Diskspsce((Drive1.drive))
End Sub

Answer 1

Public Function DiskSpace(ByRef DrivePath As String) As DoubleDiskspsce((Drive1.drive))