ExcelVBA操作文件四大方法之四.docx
- 文档编号:18076299
- 上传时间:2023-08-13
- 格式:DOCX
- 页数:19
- 大小:25.09KB
ExcelVBA操作文件四大方法之四.docx
《ExcelVBA操作文件四大方法之四.docx》由会员分享,可在线阅读,更多相关《ExcelVBA操作文件四大方法之四.docx(19页珍藏版)》请在冰点文库上搜索。
ExcelVBA操作文件四大方法之四
Excel-VBA操作文件四大方法之四
四、利用API函数来处理文件
通过前面三种方法的介绍,你是否已经觉得足够了?
是的,前面的方法完全可以应付几乎所有的文件操作。
但是为了普及一下API,展示一下API的魅力,最后向大家介绍一下如何利用API函数来处理文件。
另一方面也是本人对API情有独钟,为她做一下广告,呵呵。
大家对API的强大也是有所耳闻了,在文件操作方面,API自然毫不逊色。
说明:
为了文章简洁,我们先给出API函数的名称及功能,其完整的声明及常数就不再一一细诉,只在示例中给出其完整用法。
(一)处理驱动器及目录
下面是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
作用:
判断系统中存在哪些逻辑驱动器字母
声明:
DeclareFunctionGetLogicalDrivesLib"kernel32"Alias"GetLogicalDrives"()AsLong
说明:
此函数的返回值类型为Long,这个结构中的二进制位标志着存在哪些驱动器。
其中,位0设为1表示驱动器A:
存在于系统中;位1设为1表示存在B:
驱动器;以次类推
示例:
PublicSubGet_LogicalDrives()
DimLDsAsLong,CntAsLong,sDrivesAsString
LDs=GetLogicalDrives
sDrives="Availabledrives:
"
ForCnt=0To25
If(LDsAnd2^Cnt)<>0Then
sDrives=sDrives+""+Chr$(65+Cnt)
EndIf
NextCnt
MsgBoxsDrives
EndSub
上面的示例中,我们通过二进制运算,将返回值转换成字符。
如果你的机上有C,D,E,F,G,H这几个驱动器,那么LDs的值就是252,转成二进制为11111100,从右往左,依次代表A,B,C,D,...,为0的说明没有此驱动器字母。
大家可以自己试一试。
2、GetDriveType
作用:
判断一个磁盘驱动器的类型
声明:
DeclareFunctionGetDriveTypeLib"kernel32"Alias"GetDriveTypeA"(ByValnDriveAsString)AsLong
说明:
此函数的返回值类型为Long,如驱动器不能识别,则返回零。
如指定的目录不存在,则返回1。
如执行成功,则用下述任何一个常数指定驱动器类型:
DRIVE_REMOVABLE(表示磁盘可以从驱动器上移走,通常是软驱),DRIVE_FIXED(磁盘不能从驱动器上移走,通常为本地硬盘),DRIVE_REMOTE(驱动器是远程网络驱动器),DRIVE_CDROM(驱动器是CD-ROM驱动器)或DRIVE_RAMDISK(驱动器是RAM驱动器)
参数为String类型,包含了驱动器根目录路径的一个字串
此函数的功能与FSO的Drive对象的DriveType属性是一样的。
示例:
'定义常数变量
PrivateConstDRIVE_CDROM=5'表示光盘驱动器
PrivateConstDRIVE_FIXED=3'表示硬盘驱动器
PrivateConstDRIVE_RAMDISK=6'表示RAM驱动器
PrivateConstDRIVE_REMOTE=4'表示网络驱动器
PrivateConstDRIVE_REMOVABLE=2'表示软盘驱动器
PrivateSubGet_DriveType()
DimtempAsLong
temp=GetDriveType("d:
\")'取的d:
盘驱动器类型
SelectCasetemp
CaseDRIVE_CDROM
MsgBox"DRIVE_CDROM:
光盘驱动器"
CaseDRIVE_FIXED
MsgBox"DRIVE_FIXED:
硬盘驱动器"
CaseDRIVE_RAMDISK
MsgBox"DRIVE_RAMDISK:
RAM驱动器"
CaseDRIVE_REMOTE
MsgBox"DRIVE_REMOTE:
网络驱动器"
CaseDRIVE_REMOVABLE
MsgBox"DRIVE_REMOVABLE:
软盘驱动器"
EndSelect
EndSub
3、GetDiskFreeSpaceEx
作用:
获取与一个磁盘的组织以及剩余空间容量有关的信息
声明:
DeclareFunctionGetDiskFreeSpaceExLib"kernel32"Alias"GetDiskFreeSpaceExA"(ByVallpRootPathNameAsString,lpFreeBytesAvailableToCallerAsLARGE_INTEGER,lpTotalNumberOfBytesAsLARGE_INTEGER,lpTotalNumberOfFreeBytesAsLARGE_INTEGER)AsLong
说明:
此函数的返回值类型为Long,非零表示成功,零表示失败。
会设置GetLastError.
在采用FAT16格式的windows95系统中,如一个驱动器(分区)的容量超过了2GB,则不应使用这个函数。
此时,这个函数能识别的最大分区容量只有2GB
参数说明:
lpRootPathNameString,不包括卷名的磁盘根路径名
lpFreeBytesAvailableToCallerLARGE_INTEGER,指定一个变量,用于容纳调用者可用的字节数量
lpTotalNumberOfBytesLARGE_INTEGER,指定一个变量,用于容纳磁盘上的总字节数
lpTotalNumberOfFreeBytesLARGE_INTEGER,指定一个变量,用于容纳磁盘上可用的字节数
LARGE_INTEGER结构用来代表一个64位带符号的整数值,它的定义如下:
TypeLARGE_INTEGER'8Bytes
lowpartAsLong
highpartAsLong
EndType
其中lowpart为Long,指定低32位,highpart为Long,指定高32位。
示例:
虽然此函数能识别的最大分区容量只有2GB,但通过调整,对大于2G的仍然能得出正确容量。
以下的调整公式是本人通过逆向推算出来的,至于其中的原理也不是很清楚,大家可一测试一下。
PrivateSubGet_DiskFreeSpaceEx()
DimtempAsLong,Dms$
Dimtempa,tempb,tempc
DimRootPathNameAsString
DimFreeBytesAvailabletoCallerAsLARGE_INTEGER
DimTotalNumberOfBytesAsLARGE_INTEGER
DimTotalNumberOfFreeBytesAsLARGE_INTEGER
RootPathName="d:
"
'取得磁盘空间
temp=GetDiskFreeSpaceEx(RootPathName,FreeBytesAvailabletoCaller,TotalNumberOfBytes,TotalNumberOfFreeBytes)
Dms=Dms+"磁盘容量:
"+vbCrLf
tempa=TotalNumberOfBytes.highpart*2^32+IIf(TotalNumberOfBytes.lowpart>0,TotalNumberOfBytes.lowpart,TotalNumberOfBytes.lowpart+2^32)'计算容量
Dms=Dms+CStr(tempa)+"字节"+vbCrLf
tempa=Format(tempa/1024/1024/1024,"0.00")
Dms=Dms+tempa+"G"+vbCrLf
'取得磁盘可用空间
Dms=Dms+"磁盘可用空间:
"+vbCrLf
tempb=TotalNumberOfFreeBytes.highpart*2^32+IIf(TotalNumberOfFreeBytes.lowpart>0,TotalNumberOfFreeBytes.lowpart,TotalNumberOfFreeBytes.lowpart+2^32)'计算
Dms=Dms+CStr(tempb)+"字节"+vbCrLf
tempb=Format(tempb/1024/1024/1024,"0.00")
Dms=Dms+tempb+"G"+vbCrLf
'取得磁盘已用空间
Dms=Dms+"磁盘已用空间:
"+vbCrLf
tempc=tempa-tempb
Dms=Dms+CStr(tempc)+"G"+vbCrLf
MsgBoxDms
EndSub
4、CreateDirectory,CreateDirectoryEx
作用:
创建一个新目录
声明:
DeclareFunctionCreateDirectory&Lib"kernel32"Alias"CreateDirectoryA"(ByVallpNewDirectoryAsString,lpSecurityAttributesAsSECURITY_ATTRIBUTES)
DeclareFunctionCreateDirectoryEx&Lib"kernel32"Alias"CreateDirectoryExA"(ByVallpTemplateDirectoryAsString,ByVallpNewDirectoryAsString,lpSecurityAttributesAsSECURITY_ATTRIBUTES)
说明:
此函数的返回值类型为Long,非零表示成功,零表示失败。
会设置GetLastError
参数说明:
lpTemplateDirectoryString,指定一个模板目录的名字,从中复制默认属性(比如目录中文件的默认压缩方式)。
如设为vbNullString,则表示不使用模板
lpNewDirectoryString,新目录的名字
lpSecurityAttributesSECURITY_ATTRIBUTES,这个结构定义了目录的安全特性——如果操作系统支持的话
示例:
PrivateSubCreate_Directory()
DimSecurityAsSECURITY_ATTRIBUTES
'创建目录
Ret&=CreateDirectory("C:
\Directory",Security)
'若返回0,则失败。
IfRet&=0ThenMsgBox"Error:
创建失败!
",vbCritical+vbOKOnly
EndSub
5、RemoveDirectory
作用:
移除一个目录
声明:
DeclareFunctionRemoveDirectoryLib"kernel32"Alias"RemoveDirectoryA"(ByVallpPathNameAsString)AsLong
说明:
此函数的返回值类型为Long,非零表示成功,零表示失败。
会设置GetLastError.
在调用这个函数前,目录必须为空
参数说明:
lpPathName为String类型,要删除的那个目录的名字
示例:
PrivateSubRemove_Directory()
DimSecurityAsSECURITY_ATTRIBUTES
CreateDirectoryEx"C:
\Windows","C:
\Temp",Security
'移除目录
RemoveDirectory"C:
\Temp"
EndSub
6、SetCurrentDirectory
作用:
设置当前目录,与VBA语句ChDir类似。
声明:
DeclareFunctionSetCurrentDirectoryLib"kernel32"Alias"SetCurrentDirectoryA"(ByVallpPathNameAsString)AsLong
说明:
此函数的返回值类型为Long,非零表示成功,零表示失败。
会设置GetLastError
参数说明:
LpPathNameString,新当前目录的路径
示例:
SetCurrentDirectory"d:
\"'设置D:
为当前目录
7、GetSystemDirectory
作用:
这个函数能取得Windows系统目录(System目录)的完整路径名。
在这个目录中,包含了所有必要的系统文件。
根据微软的标准,其他定制控件和一些共享组件也可放到这个目录。
通常应避免在这个目录里创建文件。
在网络环境中,往往需要管理员权限才可对这个目录进行写操作
声明:
DeclareFunctionGetSystemDirectoryLib"kernel32"Alias"GetSystemDirectoryA"(ByVallpBufferAsString,ByValnSizeAsLong)AsLong
说明:
此函数的返回值类型为Long,装载到lpBuffer缓冲区的字符数量。
如lpBuffer不够大,不能容下文件名,则返回要求的缓冲区长度
参数说明:
lpBufferString,用于装载系统目录路径名的一个字串缓冲区。
它应事先初始化成nSize+1个字符的长度。
通常至少要为这个缓冲区分配MAX_PATH个字符的长度
nSizeLong,lpBuffer字串的最大长度
示例:
PrivateSubGet_SystemDirectory()
DimsSaveAsString,RetAsLong
'创建缓冲区
sSave=Space(255)
'获取系统目录
Ret=GetSystemDirectory(sSave,255)
'移除多余的0
sSave=Left$(sSave,Ret)
'显示路径
MsgBox"系统目录:
"+sSave
EndSub
(二)处理文件
下面是windows中提供的对于文件进行操作的API函数及其功能:
CloseHandle关闭一个内核对象。
其中包括文件、文件映射、进程、线程、安全和同步对象等。
CompareFileTime根据FILETIME结构的信息,对比两个文件的时间
CopyFile复制文件。
注意:
只能复制文件,而不能复制目录
CreateFile这是一个全功能的函数,可打开和创建文件、管道、邮槽、通信服务、设备以及控制台
DeleteFile删除指定文件
FindClose关闭由FindFirstFile函数创建的一个搜索句柄
FindFirstFile根据文件名查找文件
FindNextFile根据调用FindFirstFile函数时指定的一个文件名查找下一个文件
FlushFileBuffers针对指定的文件句柄,刷新内部文件缓冲区
GetBinaryType判断文件是否可以执行
GetFileAttributes判断指定文件的属性
GetFileInformationByHandle该函数能够获取上面所有函数所能够获取的信息,如大小、属性等,同时还包括一些其他地方无法获取的信息,比如:
文件卷标、索引和链接信息。
GetFileSize判断文件长度
GetFileTime取得指定文件的时间信息,有三个文件时间:
创建时间、最后访问时间、最后写时间。
GetFileType在给出文件句柄的前提下,判断文件类型
GetFileVersionInfo从支持版本标记的一个模块里获取文件版本信息
GetFileVersionInfoSize针对包含了版本资源的一个文件,判断容纳文件版本信息需要一个多大的缓冲区
GetFullPathName获取文件路径,该函数获取文件的完整路径名。
注意:
只有当该文件在当前目录下,
结果才正确。
如果要得到真正的路径。
应该用GetModuleFileName函数。
GetShortPathName获取指定文件的短路径名
GetTempFileName这个函数包含了一个临时文件的名字,它可由应用程序使用
GetTempPath获取Windows临时目录路径
lclose关闭指定的文件,请参考CloseHandle函数,了解进一步的情况
lcreat创建一个文件。
如文件已经存在,就会将其缩短成零长度,并将其打开,以便读写
llseek设置文件中进行读写的当前位置。
该函数与vba的seek语句类似。
LockFile在windows中,文件可用共享模式打开——在这种情况下,多个进程可同时访问该文件。
利用这个函数,要对文件进行读写的一个应用程序可将文件的某一部分锁定起来,使其
不能由其他应用程序访问。
这样便避免了同时读写时发生的冲突
LockFileEx与LockFile相似,只是它提供了更多的功能
lopen以二进制模式打开指定的文件
lread将文件中的数据读入内存缓冲区
lwrite将数据从内存缓冲区写入一个文件
MoveFile,MoveFileEx移动文件。
如dwFlags设为零,则MoveFile完全等价于MoveFileEx
OpenFile这个函数能执行大量不同的文件操作。
和这个函数相比,请优先考虑CreateFile函数
(它能打开命名管道和控制Unicode文件名,同时不受128个字符的路径名称的限制)
ReadFile从文件中读出数据。
与lread函数相比,这个函数要明显灵活的多。
该函数能够操作
通信设备、管道、套接字以及邮槽
ReadFileEx与ReadFile相似,只是它只能用于异步读操作,并包含了一个完整的回调
SearchPath查找指定文件
SetEndOfFile针对一个打开的文件,将当前文件位置设为文件末尾
SetFileAttributes设置文件属性
SetFilePointer在一个文件中设置当前的读写位置
SetFileTime设置文件的创建、访问及上次修改时间
UnlockFile解除对一个文件的锁定
UnlockFileEx解除对一个文件的锁定
WriteFile将数据写入一个文件。
该函数比lwrite函数要灵活的多。
也可将这个函数应用于对
通信设备、管道、套接字以及邮槽的处理
WriteFileEx与WriteFile类似,只是它只能用于异步写操作,并包括了一个完整的回调
文件的压缩和解压缩
LZOpenFile打开压缩文件以读取
LZSeek查找压缩文件中的一个位置
LZRead读一个压缩文件
LZClose关闭一个压缩文件
LZCopy复制压缩文件并在处理过程中展开
GetExpandedName从压缩文件中返回文件名称。
下面通过几个例子来详细的了解一下其中主要的几个函数及其用法:
1、CreateFile
作用:
这是一个全功能的例程,可打开和创建文件、管道、邮槽、通信服务、设备以及控制台
声明:
DeclareFunctionCreateFileLib"kernel32"Alias"CreateFileA"(ByVallpFileNameAsString,ByValdwDesiredAccessAsLong,ByValdwShareModeAsLong,lpSecurityAttributesAsSECURITY_ATTRIBUTES,ByValdwCreationDispositionAsLong,ByValdwFlagsAndAttributesAsLong,ByValhTemplateFileAsLong)AsLong
说明:
此函数的返回值类型为Long,如执行成功,则返回文件句柄。
INVALID_HANDLE_VALUE表示出错,会设置GetLastError。
即使函数成功,但若文件存在,且指定了CREATE_ALWAYS或OPEN_ALWAYS,GetLastError也会设为ERROR_ALREADY_EXISTS
打开一个通信端口时(如COM1),无论如何都要设置成OPEN_EXISTING。
这个函数代替了lOpen和lCreate函数,应该是我们的首选
参数说明:
·lpFileNameString,要打开的文件的名字
·dwDesiredAccessLong,如果为GENERIC_READ表示允许对设备进行读访问;如果为GENERIC_WRITE表示允许对设备进行写访问(可组合使用);如果为零,表示只允许获取与一个设备有关的信息
·dwShareModeLong,零表示不共享;FILE_SHARE_READ和/或FILE_SHARE_WR
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- ExcelVBA 操作 文件 四大 方法