7487
社区成员
- 全部
计算磁盘剩余空间时溢出，怎么解决？
计算磁盘剩余空间时溢出，怎么解决？
Dim Sectors As Long, Bytes As Long, FreeC As Long, TotalC As Long, Total As Long, Freeb As Long
GetDiskFreeSpace left(App.path, 3), Sectors, Bytes, FreeC, TotalC
Freeb = FreeC * Sectors * Bytes
Dim Sectors As Long, Bytes As Long, FreeC As Long, TotalC As Long, Total As Long, Freeb As Long
GetDiskFreeSpace left(App.path, 3), Sectors, Bytes, FreeC, TotalC
Freeb = FreeC * Sectors * Bytes
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
suntt 2003-01-06
GetDiskFreeSpaceEx
VB声明
Declare Function GetDiskFreeSpaceEx Lib "kernel32" Alias "GetDiskFreeSpaceExA" (ByVal lpRootPathName As String, lpFreeBytesAvailableToCaller As LARGE_INTEGER, lpTotalNumberOfBytes As LARGE_INTEGER, lpTotalNumberOfFreeBytes As LARGE_INTEGER) As Long
说明
获取与一个磁盘的组织以及剩余空间容量有关的信息
返回值
Long，非零表示成功，零表示失败。会设置GetLastError
参数表
参数 类型及说明
lpRootPathName String，不包括卷名的磁盘根路径名
lpFreeBytesAvailableToCaller LARGE_INTEGER，指定一个变量，用于容纳调用者可用的字节数量
lpTotalNumberOfBytes LARGE_INTEGER，指定一个变量，用于容纳磁盘上的总字节数
lpTotalNumberOfFreeBytes LARGE_INTEGER，指定一个变量，用于容纳磁盘上可用的字节数
适用平台
Windows 95 OSR2，Windows NT 4.0
注解
LARGE_INTEGER结构与FILETIME结构在内部完全一致。正式调用前，用GetVersionEx判断函数是否得到了支持。在Windows 95 OSR2环境中，OSVERSIONINFO结构的dwBuildNumbe字段会大于1000
Top
VB声明
Declare Function GetDiskFreeSpaceEx Lib "kernel32" Alias "GetDiskFreeSpaceExA" (ByVal lpRootPathName As String, lpFreeBytesAvailableToCaller As LARGE_INTEGER, lpTotalNumberOfBytes As LARGE_INTEGER, lpTotalNumberOfFreeBytes As LARGE_INTEGER) As Long
说明
获取与一个磁盘的组织以及剩余空间容量有关的信息
返回值
Long，非零表示成功，零表示失败。会设置GetLastError
参数表
参数 类型及说明
lpRootPathName String，不包括卷名的磁盘根路径名
lpFreeBytesAvailableToCaller LARGE_INTEGER，指定一个变量，用于容纳调用者可用的字节数量
lpTotalNumberOfBytes LARGE_INTEGER，指定一个变量，用于容纳磁盘上的总字节数
lpTotalNumberOfFreeBytes LARGE_INTEGER，指定一个变量，用于容纳磁盘上可用的字节数
适用平台
Windows 95 OSR2，Windows NT 4.0
注解
LARGE_INTEGER结构与FILETIME结构在内部完全一致。正式调用前，用GetVersionEx判断函数是否得到了支持。在Windows 95 OSR2环境中，OSVERSIONINFO结构的dwBuildNumbe字段会大于1000
Top
of123 2003-01-03
计算容量超过2GB磁盘剩余空间:
Private Declare Function GetDiskFreeSpaceEx Lib "kernel32" Alias "GetDiskFreeSpaceExA" (ByVal lpRootPathName As String, lpFreeBytesAvailableToCaller As Currency, lpTotalNumberOfBytes As Currency, lpTotalNumberOfFreeBytes As Currency) As Long
Public Sub GetFreeSpace(strDrv As String)
Dim r As Long
Dim BytesFreeToCalller As Currency
Dim TotalBytes As Currency
Dim TotalFreeBytes As Currency
Dim TotalBytesUsed As Currency
Call GetDiskFreeSpaceEx(strDrv, BytesFreeToCalller, TotalBytes, TotalFreeBytes)
MsgBox "Total Number of Bytes: " & Format$(TotalBytes * 10000,"###,###,###,##0")
MsgBox "Total Free Bytes: " & Format$(TotalFreeBytes * 10000,"###,###,###,##0")
MsgBox "Free Bytes Available: " & Format$(BytesFreeToCalller * 10000,"###,###,###,##0")
MsgBox "Total Space Used: " & Format$((TotalBytes - TotalFreeBytes) * 10000, "###,###,###,##0")
End Sub
Private Declare Function GetDiskFreeSpaceEx Lib "kernel32" Alias "GetDiskFreeSpaceExA" (ByVal lpRootPathName As String, lpFreeBytesAvailableToCaller As Currency, lpTotalNumberOfBytes As Currency, lpTotalNumberOfFreeBytes As Currency) As Long
Public Sub GetFreeSpace(strDrv As String)
Dim r As Long
Dim BytesFreeToCalller As Currency
Dim TotalBytes As Currency
Dim TotalFreeBytes As Currency
Dim TotalBytesUsed As Currency
Call GetDiskFreeSpaceEx(strDrv, BytesFreeToCalller, TotalBytes, TotalFreeBytes)
MsgBox "Total Number of Bytes: " & Format$(TotalBytes * 10000,"###,###,###,##0")
MsgBox "Total Free Bytes: " & Format$(TotalFreeBytes * 10000,"###,###,###,##0")
MsgBox "Free Bytes Available: " & Format$(BytesFreeToCalller * 10000,"###,###,###,##0")
MsgBox "Total Space Used: " & Format$((TotalBytes - TotalFreeBytes) * 10000, "###,###,###,##0")
End Sub
microyzy 2003-01-03
212、如何求出磁盘大小及剩余空间大小 (含大于 2GB 的正确算法)；
在问题：如何求出磁盘大小及剩余空间大小
我们使用了 GetDiskFreeSpace API 来求出磁盘大小及剩余空间大小，
在问题：如何求出磁盘大小及剩余空间大小 (更简单的 VB6 新功能)
我们使用了 FileSystemObject 来求出磁盘大小及剩余空间大小，
如果网友自己曾经实际测试过这二个主题的程序码，而您的硬盘又大于 2GB 时，或许您会发现，只要大于 2GB 的部份都无法正确的显示！为什么会这样呢？这是因为目前 VB 只支持到 32 位的 Integer 资料型态，所以最大值就是 2GB！
要解决这个问题，您必须改用另一个 API GetDiskFreeSpaceEx，不过，在这个 API 中，有使用了一个新的 ULARGE_INTEGER Structure，所以在声明 GetDiskFreeSpaceEx API 之前，您也必须要先声明 ULARGE_INTEGER Type：
Type ULARGE_INTEGER
LowPart As Long
HighPart As Long
End Type
Declare Function GetDiskFreeSpaceEx Lib "kernel32.dll" _
Alias "GetDiskFreeSpaceExA" _
(ByVal lpDirectoryName As String, _ ´目录名称或磁盘代码
lpFreeBytesAvailableToCaller As ULARGE_INTEGER, _ ´剩余可用空间大小 (Bytes)
lpTotalNumberOfBytes As ULARGE_INTEGER, _ ´磁盘总空间大小 (Bytes)
lpTotalNumberOfFreeBytes As ULARGE_INTEGER) As Long ´剩余总空间大小 (Bytes)
ULARGE_INTEGER Structure 是一个 VB 预设中尚未支持的 64 位的 Integer，它的范围是从 &H0 到 &HFFFFFFFFFFFFFFFF (也就是 2 的 64 次方)，它可用于所有尚未支持 64 位的 Integer 的程序语言中。它将 64 位的值切割成二个 32 位的部份，也就是 LowPart 及 HighPart。如果那一天 VB 开始支持 64 位的 Integer 资料型态，ULARGE_INTEGER Structure 就用不到了，否则，您一定要记得声明！
在模组中声明了上面的 Type ULARGE_INTEGER 及 GetDiskFreeSpaceEx API 之后，我们来看看以下的范例程序：
Source Code 下载
Private Sub Command1_Click()
Dim userbytes As ULARGE_INTEGER ´ 目前 User 可用磁盘空间
Dim totalbytes As ULARGE_INTEGER ´ 磁盘总空间
Dim freebytes As ULARGE_INTEGER ´ 磁盘剩余总空间
Dim retval As Long ´ GetDiskFreeSpaceEx 的返回值
If Text1.Text = "" Then Text1.Text = "C"
retval = GetDiskFreeSpaceEx(Text1.Text & ":\", userbytes, totalbytes, freebytes)
´
If userbytes.LowPart 〈 0 Then
User 可用磁盘空间 = Format((userbytes.HighPart * (16 ^ 8)) + (userbytes.LowPart + (16 ^ 8)), "#,###")
Else
User 可用磁盘空间 = Format((userbytes.HighPart * (16 ^ 8)) + userbytes.LowPart, "#,###")
End If
´
If totalbytes.LowPart 〈 0 Then
磁盘总空间 = Format((totalbytes.HighPart * (16 ^ 8)) + (totalbytes.LowPart + (16 ^ 8)), "#,###")
Else
磁盘总空间 = Format((totalbytes.HighPart * (16 ^ 8)) + totalbytes.LowPart, "#,###")
End If
´
If freebytes.LowPart 〈 0 Then
磁盘剩余总空间 = Format((freebytes.HighPart * (16 ^ 8)) + (freebytes.LowPart + (16 ^ 8)), "#,###")
Else
磁盘剩余总空间 = Format((freebytes.HighPart * (16 ^ 8)) + freebytes.LowPart, "#,###")
End If
´
Text1.SelStart = 0
Text1.SelLength = Len(Text1)
End Sub
注意：以上的功能有以下 OS 本身的限制
Windows 95 必须在 OSR2 或以后的版本才行！
Windows NT 必须在 4.0 以后的版本才行！
在问题：如何求出磁盘大小及剩余空间大小
我们使用了 GetDiskFreeSpace API 来求出磁盘大小及剩余空间大小，
在问题：如何求出磁盘大小及剩余空间大小 (更简单的 VB6 新功能)
我们使用了 FileSystemObject 来求出磁盘大小及剩余空间大小，
如果网友自己曾经实际测试过这二个主题的程序码，而您的硬盘又大于 2GB 时，或许您会发现，只要大于 2GB 的部份都无法正确的显示！为什么会这样呢？这是因为目前 VB 只支持到 32 位的 Integer 资料型态，所以最大值就是 2GB！
要解决这个问题，您必须改用另一个 API GetDiskFreeSpaceEx，不过，在这个 API 中，有使用了一个新的 ULARGE_INTEGER Structure，所以在声明 GetDiskFreeSpaceEx API 之前，您也必须要先声明 ULARGE_INTEGER Type：
Type ULARGE_INTEGER
LowPart As Long
HighPart As Long
End Type
Declare Function GetDiskFreeSpaceEx Lib "kernel32.dll" _
Alias "GetDiskFreeSpaceExA" _
(ByVal lpDirectoryName As String, _ ´目录名称或磁盘代码
lpFreeBytesAvailableToCaller As ULARGE_INTEGER, _ ´剩余可用空间大小 (Bytes)
lpTotalNumberOfBytes As ULARGE_INTEGER, _ ´磁盘总空间大小 (Bytes)
lpTotalNumberOfFreeBytes As ULARGE_INTEGER) As Long ´剩余总空间大小 (Bytes)
ULARGE_INTEGER Structure 是一个 VB 预设中尚未支持的 64 位的 Integer，它的范围是从 &H0 到 &HFFFFFFFFFFFFFFFF (也就是 2 的 64 次方)，它可用于所有尚未支持 64 位的 Integer 的程序语言中。它将 64 位的值切割成二个 32 位的部份，也就是 LowPart 及 HighPart。如果那一天 VB 开始支持 64 位的 Integer 资料型态，ULARGE_INTEGER Structure 就用不到了，否则，您一定要记得声明！
在模组中声明了上面的 Type ULARGE_INTEGER 及 GetDiskFreeSpaceEx API 之后，我们来看看以下的范例程序：
Source Code 下载
Private Sub Command1_Click()
Dim userbytes As ULARGE_INTEGER ´ 目前 User 可用磁盘空间
Dim totalbytes As ULARGE_INTEGER ´ 磁盘总空间
Dim freebytes As ULARGE_INTEGER ´ 磁盘剩余总空间
Dim retval As Long ´ GetDiskFreeSpaceEx 的返回值
If Text1.Text = "" Then Text1.Text = "C"
retval = GetDiskFreeSpaceEx(Text1.Text & ":\", userbytes, totalbytes, freebytes)
´
If userbytes.LowPart 〈 0 Then
User 可用磁盘空间 = Format((userbytes.HighPart * (16 ^ 8)) + (userbytes.LowPart + (16 ^ 8)), "#,###")
Else
User 可用磁盘空间 = Format((userbytes.HighPart * (16 ^ 8)) + userbytes.LowPart, "#,###")
End If
´
If totalbytes.LowPart 〈 0 Then
磁盘总空间 = Format((totalbytes.HighPart * (16 ^ 8)) + (totalbytes.LowPart + (16 ^ 8)), "#,###")
Else
磁盘总空间 = Format((totalbytes.HighPart * (16 ^ 8)) + totalbytes.LowPart, "#,###")
End If
´
If freebytes.LowPart 〈 0 Then
磁盘剩余总空间 = Format((freebytes.HighPart * (16 ^ 8)) + (freebytes.LowPart + (16 ^ 8)), "#,###")
Else
磁盘剩余总空间 = Format((freebytes.HighPart * (16 ^ 8)) + freebytes.LowPart, "#,###")
End If
´
Text1.SelStart = 0
Text1.SelLength = Len(Text1)
End Sub
注意：以上的功能有以下 OS 本身的限制
Windows 95 必须在 OSR2 或以后的版本才行！
Windows NT 必须在 4.0 以后的版本才行！
microyzy 2003-01-03
看看这个
http://edu.yn.cninfo.net/T_examination/news/14/01-4-6/news_4751_0.shtml
http://edu.yn.cninfo.net/T_examination/news/14/01-4-6/news_4751_0.shtml
microyzy 2003-01-03
使用GetDiskFreeSpaceEx
suntt 2003-01-03
GetDiskFreeSpace
VB声明
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
说明
获取与一个磁盘的组织有关的信息，以及了解剩余空间的容量
返回值
Long，非零表示成功，零表示失败。会设置GetLastError
参数表
参数 类型及说明
lpRootPathName String，不包括卷名的一个磁盘根路径
lpSectorsPerCluster Long，用于装载一个簇内扇区数的变量
lpBytesPerSector Long，用于装载一个扇区内字节数的变量
lpNumberOfFreeClusters Long，用于装载磁盘上剩余簇数的变量
lpTtoalNumberOfClusters Long，用于装载磁盘上总簇数的变量
注解
在采用FAT16格式的windows95系统中，如一个驱动器（分区）的容量超过了2GB，则不应使用这个函数。此时，这个函数能识别的最大分区容量只有2GB
VB声明
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
说明
获取与一个磁盘的组织有关的信息，以及了解剩余空间的容量
返回值
Long，非零表示成功，零表示失败。会设置GetLastError
参数表
参数 类型及说明
lpRootPathName String，不包括卷名的一个磁盘根路径
lpSectorsPerCluster Long，用于装载一个簇内扇区数的变量
lpBytesPerSector Long，用于装载一个扇区内字节数的变量
lpNumberOfFreeClusters Long，用于装载磁盘上剩余簇数的变量
lpTtoalNumberOfClusters Long，用于装载磁盘上总簇数的变量
注解
在采用FAT16格式的windows95系统中，如一个驱动器（分区）的容量超过了2GB，则不应使用这个函数。此时，这个函数能识别的最大分区容量只有2GB
WPF开发教程 ------WPF开发教程 目录 WPF基础入门....... 1. WPF基础之体系结构......2. WPF基础之XAML....3. WPF基础之基元素......4. WPF基础之属性系统......5. WPF基础之路由事件......6. WPF基础之布局系统......7. WPF基础之样式设置和模板...
linux 获取磁盘空间大小 1.查看文件大小 查看当前文件夹下所有文件大小（包括子文件夹） du -sh # du -h 15M ./package 16K ./.fontconfig ...查看指定文件夹下所有文件大小（包括子文件夹） ...# du -h ftp
查询磁盘空间 statfs函数 因为要读取SD卡的大小和使用情况，所以用到statfs这个函数，功能类似于df命令。 需要的头文件：#include <sys/vfs.h> int statfs(const char *path, structstatfs*buf); ... /* 经过优化的传输块大...
android获取SD卡剩余空间及注意事项 获取SD卡剩余空间方法。 String storage = Environment.getExternalStorageDirectory().getAbsolutePath(); StatFs fs = new StatFs(storage); //可用的blocks的数量 long availableBolocks=fs.getAvailableBlocks...
基于内存计算的spark特点分析，及OOM问题解决 1、Spark简介 Spark是基于内存计算的通用大规模数据处理框架。Spark已经融入了Hadoop生态系统，可支持的作业类型和应用场景比MapReduce 更为广泛，并且具备了...多个MapReduce串联执行时，依赖于HDFS输出的中...
MySQL的磁盘存储 比如InnoDB、MyISAM、Memory啥的，不同的存储引擎一般是由不同的人为实现不同的特性而开发的，真实数据在不同存储引擎中存放的格式一般是不同的，甚至有的存储引擎比如Memory都不用磁盘来存储数据，也就是说关闭...
磁盘容量计算--溢出 Debug.Print Check If Check <> 0 Then DiskSpace = SectorsPerCluster * BytesPerSector * NumberOfFreeClusters '这是一个分区磁盘剩余空间的计算公式 DiskSpace = Format$(DiskSpace, "###,###") '以规定格式显示...
计算机四级网络工程师题库及详细知识点大全 计算机四级考点共有两个:操作系统和计算机网络,两项都是五十分,必须每项达到30分以上才能获得四级网络工程师的证书.每项都为选择题,又30个单项选择,10个多项选择.共计80个选择题. 以下资源来自互联网,其中有自己加的...
录屏显示计算机内存不足,电脑提示内存不足有哪些解决办法 现在电脑已经不是奢侈品，...win10电脑提示内存不足的解决方法一、设置win10虚拟内存当你的windows 10系统开启程序太多，几乎内存溢出的时候，会有提示：您的电脑虚拟内存不足或设置太低，影响电脑性能。这时候就需...
python语法基础汇总 python语法基础 文章目录python语法基础一、简介及运算符什么是计算机语言编译型语言和解释型语言Python的介绍Python开发环境搭建Python的交互界面Python和Sublime的整合几个概念基本语法字面量和变量变量和标识符...
win10运行程序计算机内存不足,win10电脑提示内存不足的解决方法 现在使用win10电脑的用户越来越多，但很多问题可能还不太懂怎么解决，例如像是内存不足的情况就让很多人苦恼，下面是学习啦小编整理的一些关于win10电脑提示内存不足的解决方法，供您参考。win10电脑提示内存不足的...
linux0.11磁盘映像制作及其剩余程序阅读注释笔记 粗略阅读linux0.11磁盘映像知错及其剩余程序build.c makefile 虽然Makefile已经比较老了,可以看看工程管理,其中的各Makefile编写的一致性风格也值得学习。 main.c malloc.c mktime.c stdarg.h ...
Metaspace元空间答疑解惑 我们都知道在Java8中用元空间取代了PermGen。 但有几个问题： MetaSpace默认是GC收集的吗？ 即使PermGen是通过添加-XX:+CMSClassUnloadingEnabled这样的参数进行GC收集的，那么有什么比PermGen更好的MetaSpace呢？ ...
解决内存溢出（OOM）的思考 java编程中经常容易被忽视，但本身又十分重要的一个问题就是内存使用的问题。Android应用主要使用Java语言编写，因此这个问题也同样会在Android开发中出现。为了能够使得Android应用程序安全且快速的运行，Android的...
计算机组成原理-错题本 时间单位：s ms μs ns ...算术左移的溢出 6.补码一位乘 7.主存&CM 8.地址题 9.浮点数 注：符号扩展 10.三个时间/周期 拓展： 11.五种I/O方式 12...
计算机常用英语术语词汇表 计算机常用英语术语词汇表 Computer Vocabulary In Common Use 一、硬件类(Hardware) 二、软件类(Software) 三、网络类(Network) 四、其它 CPU(Center Processor Unit)中央处理单元 ...ROM(Re
导出oracle awr分析报告，配置oracle内存参数，察看表空间使用率 cmd 命令生成awr报告: cmd 窗口 输入 -> Sqlplus sys/orcl@orcl as sysdba (sys登陆oracle) . 导出awr命令 @?/rdbms/admin/awrrpt.sql 3..输入导出的文件格式 为 html 回车 ...5.输入...
计算机组成原理：最详细笔记！ 前言 参考：《王道计算机组成原理》学习笔记总目录+思维导图 2019 王道考研 计算机组成原理 第一章 计算机系统概述 1.1 计算机发展历程 1.1.1 计算机硬件的发展 计算机系统=硬件+软件 计算机硬件的发展： ...
从磁盘到B树到B+树 第一节、B树、B+树、B*树 1.前言： 动态查找树主要有：二叉查找树（Binary Search Tree），平衡二叉查找树（Balanced Binary Search Tree），红黑树(Red-Black Tree )，B-tree/B+-tree/ B*-tree (B~Tree)。...
第2章 Java内存区域与内存溢出异常 第2章 Java内存区域与内存溢出异常 本章主要内容 概述 运行时数据区域 对象访问 实战：OutOfMemoryError异常 Java与C++之间有一堵由内存动态分配和垃圾收集技术所围成的高墙，墙外面的人想进去，...
支撑百万并发的“零拷贝”技术，你了解吗？ “ 零拷贝（Zero-copy）技术指在计算机执行操作时，CPU 不需要先将数据从一个内存区域复制到另一个内存区域，从而可以减少上下文切换以及 CPU 的拷贝时间。图片来...
2019年3月计算机等级四级——操作系统（网络工程师） 以下是操作系统历年试题考点精简摘要。 操作系统原理 一、操作系统概述 1.操作系统 （1）概念：是计算机系统的一个系统软件，能有效地组织和管理计算机系统中的硬件和软件资源，合理（公平对待不同用户程序，不发生...
MapReduce计算框架知识总结（一） 文章目录一.MapReduce简介1.1 MapReduce的三类进程二.MapReduce特点2.1 高容错性2.2 适用场景比较小三.MapReduce工作原理3.1 MapReduce编程规范MapperReducerDriver3.2 MapReduce程序示例四.MapReduce中的序列化4.1 ...
磁盘系统简介 一. 硬盘结构简介 1. 硬盘参数释疑到目前为止, 人们常说的硬盘参数还是古老的 CHS (Cylinder/Head/Sector)参数. 那么为什么要使用这些参数, 它们的意义是什么? 它们的取值范围是什么? 很久以前, 硬盘的容量还非常小...
java内存溢出优化 本文转自:http://www.importnew.com/11336.html另外付JVM参数介绍:http://www.cnblogs.com/langtianya/p/3898760.html高性能应用构成了现代网络的支柱。LinkedIn有许多内部高吞吐量服务来满足每秒数千次的用户请求。...
