1884.html

来自「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题」· HTML 代码 · 共 22 行

HTML

22 行

<html>  <head>    <title>Re: 如何得知磁碟剩余空间</title>  </head>  <BODY BACKGROUND="" BGCOLOR="white" TEXT="black" LINK="red" VLINK="#808080" ALINK="">    <center>      <h1>Re: 如何得知磁碟剩余空间</h1>    </center><HR><p>Posted by <a href="mailto:h_c_chan@hotmail.com">陈凯程</a> on February 08, 1998 at 04:41:29:<p>In Reply to: <a href="1883.html"><b>如何得知磁碟剩余空间</b></a> posted by VB菜鸟 on February 08, 1998 at 02:43:33:<p>: 各位VB高手:<p>: 要如何才能得知硬碟及软碟的剩余空间 ,希望不吝赐教 ! <p>用以下的程式码吧！<p>Private Declare Function DISKSPACEFREE Lib "stkit432.DLL" () As Long<p>Public Function DiskSpace(DriveName As String) As Long<br>    Dim CurrentDir As String<br>    Dim StartDrive As String<br>    StartDrive = Left(CurDir$, 2)<br>    On Error GoTo CheckDiskError<br>    CurrentDir = Dir$(DriveName + "\*.*")<br>    ChDrive DriveName<br>    DiskSpace = DISKSPACEFREE()<br>    On Error GoTo 0<br>    ChDrive DriveName<br>    Exit Function<br>CheckDiskError:<br>    DiskSpace = -Err<br>    On Error GoTo 0<br>    Err = 0<br>    Exit Function<br>End Function<p>希望能帮到您，若有错误的话，请多多指教！<br><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 1884--></ul><!--end: 1884--><br><HR><p></body></html>

1884.html - 源码说明

本页面展示了「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题.对一些VB初学者很用.」中的 1884.html 源码文件，采用 HTML 编程语言编写，共 22 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与VB相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?