开发者社区> 技术小大人> 正文
阿里云
为了无法计算的价值
打开APP
阿里云APP内打开

VB中操作目录的Winodws API小结

简介:
+关注继续查看

VB中操作目录的Winodws API小结

2004-04-20 16:45 来源:yesky 作者:潇潇 责任编辑:方舟·yesky 评论(0)
下面是windows中提供的对于目录进行操作的API函数及其功能:

CreateDirectory,
CreateDirectoryEx
创建一个新目录
GetCurrentDirectory 在一个缓冲区中装载当前目录
GetDiskFreeSpace,GetDiskFreeSpaceEx 获取与一个磁盘的组织有关的信息,以及了解剩余空间的容量
GetDriveType 判断一个磁盘驱动器的类型
GetFullPathName 获取指定文件的完整路径名
GetLogicalDrives 判断系统中存在哪些逻辑驱动器字母
GetLogicalDriveStrings 获取一个字串,其中包含了当前所有逻辑驱动器的根驱动器路径
GetSystemDirectory 这个函数能取得Windows系统目录(System目录)的完整路径名。在这个目录中,包含了所有必要的系统文件。根据微软的标准,其他定制控件和一些共享组件也可放到这个目录。通常应避免在这个目录里创建文件。在网络环境中,往往需要管理员权限才可对这个目录进行写操作
GetTempPath 获取为临时文件指定的路径
GetVolumeInformation 获取与一个磁盘卷有关的信息
GetWindowsDirectory 这个函数能获取Windows目录的完整路径名。在这个目录里,保存了大多数windows应用程序文件及初始化文件
RemoveDirectory 删除指定目录
SetCurrentDirectory 设置当前目录
SetVolumeLabel 设置一个磁盘的卷标(Label)

让我们通过几个例子来详细的了解一下其中主要的几个函数及其用法:

1、GetLogicalDrives

作用:判断系统中存在哪些逻辑驱动器字母

声明形式:Declare Function GetLogicalDrives Lib "kernel32" Alias "GetLogicalDrives" () As Long

说明:此函数的返回值类型为Long,这个结构中的二进制位标志着存在哪些驱动器。其中,位0设为1表示驱动器A:存在于系统中;位1设为1表示存在B:驱动器;以次类推

2、GetDriveType

作用:判断一个磁盘驱动器的类型

声明形式:Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long

说明:此函数的返回值类型为Long,如驱动器不能识别,则返回零。如指定的目录不存在,则返回1。如执行成功,则用下述任何一个常数指定驱动器类型:DRIVE_REMOVABLE(表示磁盘可以从驱动器上移走,通常是软驱), DRIVE_FIXED(磁盘不能从驱动器上移走,通常为本地硬盘), DRIVE_REMOTE(驱动器是远程网络驱动器), DRIVE_CDROM(驱动器是CD-ROM驱动器) 或 DRIVE_RAMDISK(驱动器是RAM驱动器)

参数为String类型,包含了驱动器根目录路径的一个字串

下面是示例代码:

‘定义常数变量

Private Const DRIVE_CDROM = 5 ‘表示光盘驱动器
Private Const DRIVE_FIXED = 3 ‘表示硬盘驱动器
Private Const DRIVE_RAMDISK = 6 ‘表示RAM驱动器
Private Const DRIVE_REMOTE = 4 ‘表示网络驱动器
Private Const DRIVE_REMOVABLE = 2 ‘表示软盘驱动器

‘函数声明

Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long

Private Sub Form_Load()
Dim temp As Long
temp = GetDriveType("e:\") ‘取的e:盘驱动器类型
Select Case temp ‘比较
Case DRIVE_CDROM
MsgBox "DRIVE_CDROM: 光盘驱动器"
Case DRIVE_FIXED
MsgBox "DRIVE_FIXED: 硬盘驱动器"
Case DRIVE_RAMDISK
MsgBox "DRIVE_RAMDISK: RAM驱动器"
Case DRIVE_REMOTE
MsgBox "DRIVE_REMOTE: 网络驱动器"
Case DRIVE_REMOVABLE
MsgBox "DRIVE_REMOVABLE: 软盘驱动器"
End Select
End Sub

以上代码可以判断e:的类型。

3、GetDiskFreeSpaceEx

作用:获取与一个磁盘的组织以及剩余空间容量有关的信息

声明形式:

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.

在采用FAT16格式的windows95系统中,如一个驱动器(分区)的容量超过了2GB,则不应使用这个函数。此时,这个函数能识别的最大分区容量只有2GB

参数说明:

参数 类型及说明
lpRootPathName String,不包括卷名的磁盘根路径名
lpFreeBytesAvailableToCaller LARGE_INTEGER,指定一个变量,用于容纳调用者可用的字节数量
lpTotalNumberOfBytes LARGE_INTEGER,指定一个变量,用于容纳磁盘上的总字节数
lpTotalNumberOfFreeBytes LARGE_INTEGER,指定一个变量,用于容纳磁盘上可用的字节数

LARGE_INTEGER结构用来代表一个64位带符号的整数值,它的定义如下:

Type LARGE_INTEGER ' 8 Bytes
lowpart As Long
highpart As Long
End Type

其中lowpart为 Long,指定低32位

highpart 为 Long,指定高32位

LARGE_INTEGER结构与FILETIME结构内部完全一致。

请看下面示例:

Private Type LARGE_INTEGER ' 8 Bytes,定义一个LARGE_INTEGER结构
lowpart As Long
highpart As Long
End Type

‘函数声明

Private 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

‘定义变量

Dim RootPathName As String
Dim FreeBytesAvailabletoCaller As LARGE_INTEGER
Dim TotalNumberOfBytes As LARGE_INTEGER
Dim TotalNumberOfFreeBytes As LARGE_INTEGER

Private Sub Form_Load()
Dim temp As Long
Dim tempa, tempb, tempc
RootPathName = "c:"
‘取得磁盘空间
temp = GetDiskFreeSpaceEx(RootPathName, FreeBytesAvailabletoCaller, TotalNumberOfBytes, TotalNumberOfFreeBytes)

‘格式化文本,并显示在text控件

Text1.Text = Text1.Text + "磁盘容量:" + Chr(13) + Chr(10)
tempa = TotalNumberOfBytes.highpart * 65635 + TotalNumberOfBytes.lowpart ‘计算容量
tempa = 0 – tempa ‘我的驱动器大于2G,要得到正确的值,进行了调整
Text1.Text = Text1.Text + CStr(tempa) + "字节" + Chr(13) + Chr(10)
tempa = Format(tempa / 1024 / 1024 / 1024, "0.00")
Text1.Text = Text1.Text + tempa + "G" + Chr(13) + Chr(10)

‘取得磁盘可用空间

Text1.Text = Text1.Text + "磁盘可用空间:" + Chr(13) + Chr(10)
tempb = TotalNumberOfFreeBytes.highpart * 1000 + TotalNumberOfFreeBytes.lowpart ‘计算
Text1.Text = Text1.Text + CStr(tempb) + "字节" + Chr(13) + Chr(10) ’格式化文本并显示
tempb = Format(tempb / 1024 / 1024 / 1024, "0.00")
Text1.Text = Text1.Text + tempb + "G" + Chr(13) + Chr(10)

‘取得磁盘已用空间

Text1.Text = Text1.Text + "磁盘已用空间:" + Chr(13) + Chr(10)
tempa = 0 – tempa ‘调整
tempc = tempa – tempb ‘计算
tempc = 0 - tempc

Text1.Text = Text1.Text + CStr(tempc) + "G" + Chr(13) + Chr(10)’格式化文本,并显示

End Sub

以上代码显示了c:上的容量,可用空间和已用空间。

4、CreateDirectory, CreateDirectoryEx

作用:创建一个新目录

声明形式:

Declare Function CreateDirectory& Lib "kernel32" Alias "CreateDirectoryA" (ByVal lpNewDirectory As String, lpSecurityAttributes As SECURITY_ATTRIBUTES)

Declare Function CreateDirectoryEx& Lib "kernel32" Alias "CreateDirectoryExA" (ByVal lpTemplateDirectory As String, ByVal lpNewDirectory As String, lpSecurityAttributes As SECURITY_ATTRIBUTES)

说明:此函数的返回值类型为Long,非零表示成功,零表示失败。会设置GetLastError

参数说明:

参数 类型及说明
lpTemplateDirectory String,指定一个模板目录的名字,从中复制默认属性(比如目录中文件的默认压缩方式)。如设为vbNullString,则表示不使用模板
lpNewDirectory String,新目录的名字
lpSecurityAttributes SECURITY_ATTRIBUTES,这个结构定义了目录的安全特性——如果操作系统支持的话

示例程序代码如下:

‘定义结构

Private Type SECURITY_ATTRIBUTES
nLength As Long
lpSecurityDescriptor As Long
bInheritHandle As Long
End Type

‘函数声明

Private Declare Function CreateDirectory& Lib "kernel32" Alias "CreateDirectoryA" (ByVal lpNewDirectory As String, lpSecurityAttributes As SECURITY_ATTRIBUTES)

Private Declare Function CreateDirectoryEx& Lib "kernel32" Alias "CreateDirectoryExA" (ByVal lpTemplateDirectory As String, ByVal lpNewDirectory As String, lpSecurityAttributes As SECURITY_ATTRIBUTES)

Private Sub form_load()
Dim temp As SECURITY_ATTRIBUTES
CreateDirectory "c:\test", temp ‘创建文件夹
End Sub

以上代码在c:下创建一个名为test的文件夹

5、RemoveDirectory

作用:移除一个目录

声明形式:

Declare Function RemoveDirectory Lib "kernel32" Alias "RemoveDirectoryA" (ByVal lpPathName As String) As Long

说明:此函数的返回值类型为Long,非零表示成功,零表示失败。会设置GetLastError.

在调用这个函数前,目录必须为空

参数说明:

参数 类型及说明
lpPathName 为String类型,要删除的那个目录的名字

示例代码如下:

‘函数声明

Private Declare Function RemoveDirectory Lib "kernel32" Alias "RemoveDirectoryA" (ByVal lpPathName As String) As Long

Private Sub form_load()
Dim temp As String
temp= “c:\test”
RemoveDirectory temp ‘移除文件夹
End Sub

以上代码删除c:下一个名为test的文件夹。

6、SetCurrentDirectory

作用:设置当前目录

声明形式:

Declare Function SetCurrentDirectory Lib "kernel32" Alias "SetCurrentDirectoryA" (ByVal lpPathName As String) As Long

说明:此函数的返回值类型为Long,非零表示成功,零表示失败。会设置GetLastError

参数说明:

参数 类型及说明
LpPathName String,新当前目录的路径

示例代码如下:

‘函数声明

Private Declare Function SetCurrentDirectory Lib "kernel32" Alias "SetCurrentDirectoryA" (ByVal lpPathName As String) As Long

Private Sub form_load()
SetCurrentDirectory "c:\" ‘设置当前目录
End Sub

以上代码将c:设置为当前目录

7、GetSystemDirectory

作用:这个函数能取得Windows系统目录(System目录)的完整路径名。在这个目录中,包含了所有必要的系统文件。根据微软的标准,其他定制控件和一些共享组件也可放到这个目录。通常应避免在这个目录里创建文件。在网络环境中,往往需要管理员权限才可对这个目录进行写操作

声明形式:

Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

说明:此函数的返回值类型为Long,装载到lpBuffer缓冲区的字符数量。如lpBuffer不够大,不能容下文件名,则返回要求的缓冲区长度

参数说明:

参数 类型及说明
lpBuffer String,用于装载系统目录路径名的一个字串缓冲区。它应事先初始化成nSize+1个字符的长度。通常至少要为这个缓冲区分配MAX_PATH个字符的长度
nSize Long,lpBuffer字串的最大长度

示例代码如下:

‘函数声明

Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

Private Sub form_load()
Dim buffer As String
Dim size As Long
size = 255
buffer = size + 1
GetSystemDirectory buffer, size ‘将系统路径存放在buffer中
MsgBox buffer ‘显示路径

End Sub

以上代码获取了windows系统目录的完
网友评论(0条)
用户名: 密码: 找回密码 注册
本文转自 bilinyee博客,原文链接:  http://blog.51cto.com/215363/955736      如需转载请自行联系原作者      

版权声明:本文内容由阿里云实名注册用户自发贡献,版权归原作者所有,阿里云开发者社区不拥有其著作权,亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容,填写侵权投诉表单进行举报,一经查实,本社区将立刻删除涉嫌侵权内容。

相关文章
基于SVG的web页面图形绘制API介绍
一:什么是SVG SVG是1999由W3C发布的2D图形描述语言,纯基于XML格式的标记语言,SVG的 全称是可扩展的矢量图形跟传统的Raster方式的图形(JPG, PNG, GIF等)有很大的差 别。
849 0
ASP.NET Web API 简介
本周早些时候,我写过一篇关于 ASP. NET MVC 4 测试版的博文。ASP. NET MVC 4 是一个重大的更新,它带来了一堆出色的新功能。我最兴奋的改进之一是为创建"Web ApI"提供了支持。
738 0
ASP.NET Web API(二):安全验证之使用HTTP基本认证
在前一篇文章ASP.NET Web API(一):使用初探,GET和POST数据中,我们初步接触了微软的REST API: Web API。 我们在接触了Web API的后就立马发现了有安全验证的需求,所以这篇文章我们先来讨论下安全验证一个最简单的方法:使用HTTP基本认证。
882 0
ASP.NET Web API(一):使用初探,GET和POST数据
概述 REST(Representational State Transfer表述性状态转移)而产生的REST API的讨论越来越多,微软在ASP.NET中也添加了Web API的功能。 我们看dudu的文章HttpClient + ASP.NET Web API, WCF之外的另一个选择知道了博客园也开始使用了Web API,且在使用Web API Beta版本的时候遇到了这个问题:痴情意外:ASP.NET WebAPI RC 竟然不支持最常用的json传参。
889 0
【翻译】ASP.NET WEB API异常处理
当一个web api抛出一个异常后 此异常会被转化成一个HTTP响应 错误代码为500的服务错误 但是如果你不想让客户端看到500的错误码 你也可以自定义错误码 如下代码当用户输入的ID没有与之相关的数据 则返回了错误码为404的错误 (页面未找到) public Product ...
728 0
x3d
[转]选择Web API:REST 还是 SOAP
看起来在web API协议之争(如果曾经有过)中,潮流正稳步的转向REST,SOAP已经被逼退。Web开发者们选出了他们心目中的目标,他们要RESTful APIs。 下面的是2008年和2010年各种不同的API协议部署量的对比图,来源于ProgrammableWeb上的2000多个web API目录数据。
676 0
【翻译】ASP.NET Web API入门
简介 ASP.NET Web API是一个可以简化创建HTTP服务的框架 它支持包括浏览器和移动设备在内的各种客户端 ASP.NET Web API是在.NET Framework上创建RESTful应用程序的理想平台 译者注:关于RESTful web服务可以参见这里:http://zh.
974 0
网页中必不可少的十五大Web API
引文:http://news.csdn.net/n/20071024/109897.htmlAPI全称是application programming interface即应用编程接口,程序员可以编写应用和Widget跟页面的服务器实现交互,API提供了基于web的数据和功能访问接口。
988 0
文章
问答
文章排行榜
最热
最新
相关电子书
更多
阿里云 API 精选手册(Alibaba Cloud API Playbook)
立即下载
ACE 区域技术发展峰会:Flink Python Table API入门及实践
立即下载
API 平台的安全实践
立即下载