UC知道急问：VB 文件存储问题
来源：百度知道 编辑：UC知道 时间：2024/06/07 02:06:23
想知道VB中如果想要存储一个文件到系统，能用到哪些CLASS及涉及到的METHOD？还有saveFileDialog的用法能否解释一下？谢了
还有，如何用VB代码获取系统中一个盘（比如说C盘）的大小和已用空间的大小啊？因为存储文件的话就需要检查一下空间是否允许～
还有，如何用VB代码获取系统中一个盘（比如说C盘）的大小和已用空间的大小啊？因为存储文件的话就需要检查一下空间是否允许～
'通用-声明：
Public Declare Function GetDiskFreeSpace Lib "kernel32" Alias "GetDiskFreeSpaceA" (ByVal lpRootPathName As String, lpSectorsPerCluster As Long, lpBytesPerSector As Long, lpNumberOfFreeClusters As Long, lpTotalNumberOfClusters As Long) As Long
'过程：
Dim lpSectorsPerCluster As Long, lpBytesPerSector As Long, lpNumberOfFreeClusters As Long, lpTotalNumberOfClusters As Long
Dim retVal as long
retVal = GetDiskFreeSpace("C:\", lpSectorsPerCluster, lpBytesPerSector, lpNumberOfFreeClusters, lpTotalNumberOfClusters)
msgbox "Free space on drive c:" & str(lpSectorsPerCluster* lpBytesPerSector*lpNumberOfFreeClusters) & "bytes."
Open "c:\1.txt" For Append As #1
Print #1, "..."
Close #1