VB中操作目录的Winodws API小结

分类：VB作者：编程之家用户

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,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,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条)
用户名： 　密码： 　 找回密码 注册
匿名评论

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。

相关推荐

VB Format函数
Format[$] ( expr [ , fmt ] ) format 返回变体型 format$ 强制返回为文本 -------------------------------- 数字类型的格式化 --------------------------------     固定格式参数：     General Number 普通数字，如可以用来去掉千位分隔号     format$("100,1
vb6/ASP FORMAT MM/DD/YYYY
VB6或者ASP 格式化时间为 MM/dd/yyyy 格式，竟然没有好的办法， Format 或者FormatDateTime 竟然结果和系统设置的区域语言的日期和时间格式相关。意思是尽管你用诸如 Format(Now, "MM/dd/yyyy")，如果系统的设置格式区域语言的日期和时间格式分隔符是"-",那他还会显示为 MM-dd-yyyy     只有拼凑： <%response.write
VB.net 捕获项目全局异常
在项目中添加如下代码：新建窗口来显示异常信息。 Namespace My ‘全局错误处理，新的解决方案直接添加本ApplicationEvents.vb 到工程即可 ‘添加后还需要一个From用来显示错误。如果到这步还不会则需要先打好基础啦 ‘======================================================== ‘以下事件
实现用VB.Net/(C#)开发K/3 BOS 插件的真正可行方法
转了这一篇文章，原来一直想用C#做k3的插件开发，vb没有C#用的爽呀，这篇文章写与2011年，看来我以前没有认真去找这个方法呀。 https://blog.csdn.net/chzjxgd/article/details/6176325 金蝶K3 BOS的插件官方是用VB6编写的，如果  能用.Net下的语言工具开发BOS插件是一件很愉快的事情，其中缘由不言而喻，而本文则是个人首创，实现在了用V
vb，wps，excel 分裂
Sub 分列() ‘以空格为分隔符，连续空格只算1个。对所选中的单元格进行处理 Dim m As Range, tmpStr As String, s As String Dim x As Integer, y As Integer, subStr As String If MsgBox("确定要分列处理吗？请确定分列的数据会覆盖它后面的单元格！", _
VB文件 hash 查看器
  窗体代码 1 Private Sub Text1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single) 2 Dim path As String, hash As String 3 For Each fil
VB.NET MYSQL DataGridView 增删改查INSERT,SELECT,UPDATE,DELETE
  Imports MySql.Data.MySqlClient Public Class Form1 ‘ GLOBAL DECLARATIONS Dim conString As String = "Server=localhost;Database=net2;Uid=root;Pwd=123456;" Dim con As New MySqlConnection
VB.NET 使用ADODB連接資料庫滙出到EXCEL
‘導入命名空間 Imports ADODB Imports Microsoft.Office.Interop   Private Sub A1() Dim Sql As String Dim Cnn As New ADODB.Connection Dim Rs As New ADODB.Recordset Dim S As String   S = "Provider=OraOLEDB.Oracl
vb.net 多线程運用 ping
Imports System.IO Imports System.Threading Imports System.Diagnostics Public Class Form1 Dim A(254) As String    Function ping(ByVal IP As Integer) As String Dim IPAddress As String IPAddress = "10.0.
VB等待进程结束
VB运行EXE程序，并等待其运行结束 参考：https://blog.csdn.net/useway/article/details/5494084 Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long Pr
vb中去掉string数组的一部分
今天碰到一个问题，登陆的时候，如果不需要验证手机号为空，则不去验证手机号 因为登陆的时候所有的验证信息都存放在一个数组里 Dim CheckUserInfo() As String ={UserBirthday, SecEmail, UserMob, UserSex, RealNameFirst, RealName, CheckCardID, CheckCardType, Contactemail
VB如何连接SQL Server数据库
在VB6.0中，数据访问接口有三种： 1、ActiveX数据对象（ADO） 2、远程数据对象（RDO） 3、数据访问对象（DAO） 1.使用ADO（ActiveX Data Objec，ActiveX数据对象）连接SQL Server 1）使用ADO控件连接 使用ADO控件的ConnectionString属性就可以连接SQL Server，该属性包含一个由分号分隔的argument=value语
Visual Basic 6.0VB6.0详细安装过程
注：大家如果没有VB6.0的安装文件，可自行百度一下下载，一般文件大小在200M左右的均为完整版的软件，可以使用。   特别提示：安装此软件的时候最好退出360杀毒软件（包括360安全卫士，电脑管家等，如果电脑上有这些软件的话），因为现如今的360杀毒软件直接会对VB6.0软件误报，这样的话就可能会在安装过程中被误报阻止而导致安装失败，或者是安装后缺乏很多必须的组件（其它的杀毒软件或安全卫士之类的
使用VB6读取数据库资源并发送邮件原创
Private Sub Form_Load() Call conndb End Sub Private Function conndb() Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim strCn, sql As String Dim db_host As String Dim db_user As String
POS VB
  PPSM06S70:  Add  moddate  EDITSPRINTJOB:  MAX(TO_CHAR(ETRN.MODDATE, ‘yyyy/mm/dd/HH24:MI AM‘)) ACTUAL_SHIPDATE   4.Test Scenario (1) ：Query SQL Test DN:8016578337 SELECT CTRN.TKCTID TRUCK_ID,        
vb.net 水晶報表CrystalReport 動態設定資料庫來源
  沒有出現CrystalReportViewer時,須安裝CRforVS_13_0. 新增1個數據集,新增1個數據表,添加二列,列名要和資料庫名一樣. 修改目標Framework 修改app.config, <startup >改成<startup useLegacyV2RuntimeActivationPolicy ="true">  CrystalReport1.rpt增加數據庫專家 在表單
VB.net 与线程
Imports System.Threading Imports System Public Class Form1 Dim th1, th2 As Thread Public Sub Method1() Dim i As Integer For i = 1 To 100 If Me.Label1.BackColor =
vb.net Process32First和Module32First
Friend Const PROCESS_ALL_ACCESS = &H1F0FFF = 2035711 Friend Const PROCESS_VM_READ = &H10 Friend Const PROCESS_VM_WRITE = &H20 Friend Const PAGE_READONLY = &H2 Friend Const PAGE_READWRITE = &H4 Friend
vb.net 分割byte数组的方法SplitBytes
以下代码随手写的 并没有大量测试 效率也有待提升 如果需要C#的请自行转换 Function SplitBytes(Data As Byte(), Delimiter As Byte()) As List(Of Byte()) Dim i = 0 Dim List As New List(Of Byte()) Dim bytes As New
VB.NET连接SQL_Server实例
Imports System.Data.SqlClient Public Class Form1 REM Public conn1 As SqlConnection = New SqlConnection("server=.; Integrated Security=False;Initial Catalog= mydatabase1; User ID= sa;password")
pythonJavaScriptjavaHTMLPHPreactjsC#AndroidCSSNode.jssqlrpython-3.xMysqLjQueryc++pandasFlutterangularIOSdjangolinuxswifttypescript路由器JSON路由器设置无线路由器h3c华三华三路由器设置华三路由器电脑软件教程arraysdocker软件图文教程Cvue.jslaravelspring-boot