VB中操作目录的Winodws 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

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

　　声明形式：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

　　参数说明：

参数类型及说明lpRootPathNameString，不包括卷名的磁盘根路径名lpFreeBytesAvailableToCallerLARGE_INTEGER，指定一个变量，用于容纳调用者可用的字节数量lpTotalNumberOfBytesLARGE_INTEGER，指定一个变量，用于容纳磁盘上的总字节数lpTotalNumberOfFreeBytesLARGE_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

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有