文件名称:
VB精华 API controls database
开发工具:
文件大小: 762kb
下载次数: 0
上传时间: 2011-02-26
详细说明： Private Declare Function GetVolumeInformation Lib "kernel32" _ Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, _ ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, _ lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, _ lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, _ ByVal nFileSystemNameSize As Long) As Long Const FILE_VOLUME_IS_COMPRESSED = &H8000 Public Sub GetVolInfo(Byval Path as String) Dim aa As Long Dim VolName A s String Dim fsysName As String Dim path As String Dim VolSeri As Long, compress As Long Dim Sysflag As Long, Maxlen As Long VolName = String(255, 0) fsysName = String(255, 0) aa = GetVolumeInformation(path, VolName, 256, VolSeri, Maxlen, _ Sysflag, fsysName, 256) VolName = Left(VolName, InStr(1, VolName, Chr(0)) - 1) fsysName = Left(fsysName, InStr(1, fsysName, Chr(0)) - 1) compress = Sysflag And FILE_VOLUME_IS_COMPRESSED If compress = 0 Then Debug.Print "非Compress之Volume" Else Debug.Print "Compress之Volume" End If Debug.Print "Volume Name :", VolName Debug.Print "Volume Serical# : ", Hex(VolSeri) Debug.Print "Name of the file system (such as FAT, HPFS, or NTFS)", fsysName Debug.Print "Max Length of File Name ", Maxlen End Sub Private Sub Command1_Click() Call GetVolInfo("c:\") End sub ...展开收缩
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台，提供交流渠道，下载内容来自于网络，除下载问题外，其它问题请自行百度。
- 本站已设置防盗链，请勿用迅雷、QQ旋风等多线程下载软件下载资源，下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载，请稍后再次尝试；或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎，请到消费记录里找到下载记录反馈给我们，经确认后退回积分.
- 如下载前有疑问，可以通过点击"提供者"的名字，查看对方的联系方式，联系对方咨询.
