当我默默黯然回首:Excel-VBA操作文件四大方法之四(1)
来源:百度文库 编辑:中财网 时间:2024/04/29 07:20:10
四、利用API函数来处理文件
通过前面三种方法的介绍,你是否已经觉得足够了?是的,前面的方法完全可以应付几乎所有的文件操作。但是为了普及一下API,展示一下API的魅力,最后向大家介绍一下如何利用API函数来处理文件。另一方面也是本人对API情有独钟,为她做一下广告,呵呵。
大家对API的强大也是有所耳闻了,在文件操作方面,API自然毫不逊色。
说明:为了文章简洁,我们先给出API函数的名称及功能,其完整的声明及常数就不再一一细诉,只在示例中给出其完整用法。
(一)处理驱动器及目录
下面是windows中提供的对于目录进行操作的API函数及其功能:
CreateDirectory,CreateDirectoryEx
GetCurrentDirectory
GetDiskFreeSpace,GetDiskFreeSpaceEx
GetDriveType
GetFullPathName
GetLogicalDrives
GetLogicalDriveStrings
GetSystemDirectory
GetTempPath
GetVolumeInformation
GetWindowsDirectory
RemoveDirectory
SetCurrentDirectory
SetVolumeLabel
下面通过几个例子来详细的了解一下其中主要的几个函数及其用法:
1、GetLogicalDrives
作用:判断系统中存在哪些逻辑驱动器字母
声明:Declare Function GetLogicalDrives Lib "kernel32" Alias "GetLogicalDrives" () As Long
说明:此函数的返回值类型为Long,这个结构中的二进制位标志着存在哪些驱动器。其中,位0设为1表示驱动器A:存在于系统中;位1设为1表示存在B:驱动器;以次类推
示例:
Public Sub Get_LogicalDrives()
Dim LDs As Long, Cnt As Long, sDrives As String
MsgBox sDrives
End Sub
上面的示例中,我们通过二进制运算,将返回值转换成字符。如果你的机上有C,D,E,F,G,H这几个驱动器,那么LDs的值就是252,转成二进制为11111100,从右往左,依次代表A,B,C,D,...,为0的说明没有此驱动器字母。大家可以自己试一试。
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类型,包含了驱动器根目录路径的一个字串
此函数的功能与FSO的Drive对象的DriveType属性是一样的。
示例:
'定义常数变量
Private Const DRIVE_CDROM = 5
Private Const DRIVE_FIXED = 3
Private Const DRIVE_RAMDISK = 6
Private Const DRIVE_REMOTE = 4
Private Const DRIVE_REMOVABLE = 2
Private Sub Get_DriveType()
End Sub
3、GetDiskFreeSpaceEx
作用:获取与一个磁盘的组织以及剩余空间容量有关的信息
声明:Declare Function GetDiskFreeSpaceEx Lib "kernel32" Alias "GetDiskFreeSpaceExA" (ByVal lpRootPathName As String, lpFreeBytesAvailableToCa
说明:此函数的返回值类型为Long,非零表示成功,零表示失败。会设置GetLastError.
在采用FAT16格式的windows95系统中,如一个驱动器(分区)的容量超过了2GB,则不应使用这个函数。此时,这个函数能识别的最大分区容量只有2GB
参数说明:
lpRootPathName String,不包括卷名的磁盘根路径名
lpFreeBytesAvailableToCa
lpTotalNumberOfBytes LARGE_INTEGER,指定一个变量,用于容纳磁盘上的总字节数
lpTotalNumberOfFreeBytes
LARGE_INTEGER结构用来代表一个64位带符号的整数值,它的定义如下:
Type LARGE_INTEGER ' 8 Bytes
lowpart As Long
highpart As Long
End Type
其中lowpart为 Long,指定低32位,highpart 为 Long,指定高32位。
示例:虽然此函数能识别的最大分区容量只有2GB,但通过调整,对大于2G的仍然能得出正确容量。以下的调整公式是本人通过逆向推算出来的,至于其中的原理也不是很清楚,大家可一测试一下。
Private Sub Get_DiskFreeSpaceEx()
'取得磁盘空间
'取得磁盘可用空间
'取得磁盘已用空间
End Sub
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 Sub Create_Directory()
End Sub
5、RemoveDirectory
作用:移除一个目录
声明:Declare Function RemoveDirectory Lib "kernel32" Alias "RemoveDirectoryA" (ByVal lpPathName As String) As Long
说明:此函数的返回值类型为Long,非零表示成功,零表示失败。会设置GetLastError.
在调用这个函数前,目录必须为空
参数说明:
lpPathName 为String类型,要删除的那个目录的名字
示例:
Private Sub Remove_Directory()
End Sub
6、SetCurrentDirectory
作用:设置当前目录,与VBA语句ChDir类似。
声明:Declare Function SetCurrentDirectory Lib "kernel32" Alias "SetCurrentDirectoryA" (ByVal lpPathName As String) As Long
说明:此函数的返回值类型为Long,非零表示成功,零表示失败。会设置GetLastError
参数说明:
LpPathName String,新当前目录的路径
示例:
SetCurrentDirectory "d:\"
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 Sub Get_SystemDirectory()
End Sub 原文链接:http://blog.sina.com.cn/s/blog_499676d8010008z8.html~type=v5_one&label=rela_nextarticle