用 VB 打开任意盘(硬盘/U盘/光盘)的文件.
在程序打包移植的时候,需要用到 光盘/U盘 。在不知道机子上的光盘的盘符是多少,或不知道盘符的类别和盘符的总数的话。
......... 可以用如下方法来判断 .........
要用到的 API 描述:
返回机子上的所有盘符
GetLogicalDriveStrings |
VB声明 | |
Declare Function GetLogicalDriveStrings Lib "kernel32" Alias "GetLogicalDriveStringsA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long | |
说明 | |
获取一个字串,其中包含了当前所有逻辑驱动器的根驱动器路径 | |
返回值 | |
Long,装载到lpBuffer的字符数量(排除空中止字符)。如缓冲区的长度不够,不能容下路径,则返回值就变成要求的缓冲区大小。零表示失败。会设置GetLastError | |
参数表 | |
参数 | 类型及说明 |
nBufferLength | Long,lpBuffer字串的长度 |
lpBuffer | String,用于装载逻辑驱动器名称的字串。每个名字都用一个NULL字符分隔,在最后一个名字后面用两个NULL表示中止(空中止) |
不同的盘类型可以用 GetDriveType 来判断.
GetDriveType |
VB声明 | |
Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long | |
说明 | |
判断一个磁盘驱动器的类型 | |
返回值 | |
Long,如驱动器不能识别,则返回零。如指定的目录不存在,则返回1。如执行成功,则用下述任何一个常数指定驱动器类型:DRIVE_REMOVABLE, DRIVE_FIXED, DRIVE_REMOTE, DRIVE_CDROM 或 DRIVE_RAMDISK | |
参数表 | |
参数 | 类型及说明 |
nDrive | String,包含了驱动器根目录路径的一个字串 |
如下用打开光盘指定的里的文件做例子:
Private Declare Function GetLogicalDriveStrings Lib "kernel32" Alias "GetLogicalDriveStringsA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
Private Sub Form_Click()
Dim StrDrive As String '盘符串(A:/ C:/ D:/...)
Dim DriveID As String '盘符(如:A:/)
StrDrive = String(100, Chr$(0)) '初始化盘符串
Call GetLogicalDriveStrings(100, StrDrive) '返回盘符串
Dim i As Integer
'返回光盘盘符到数组
For i = 1 To 100 Step 4 '注意这里是4
DriveID = Mid(StrDrive, i, 3) '枚举盘符
If DriveID = Chr$(0) & Chr(0) & Chr(0) Then Exit For '没有盘符,即时退出循环
If GetDriveType(DriveID) = 5 Then Call ShellPro(DriveID)
'如果枚举到的盘是CD-ROM,转到 ShellPro 子程序
Next i
End Sub
'子程序:::::打开文件
Sub ShellPro(DrivePro As String)
On Error GoTo Err_File:
If Not IsEmptyCDROM(DrivePro) Then
Shell (DrivePro & "Hello.exe") '打开文件路径
Unload Me
End '并结束本程序
Else
Debug.Print "CD-ROM is Empty"
End If
Err_File:
If Err.Description = "错语的文件名或号码" Then Exit Sub
End Sub
Function IsEmptyCDROM(sDrive As String)
Dim s
On Error GoTo ErrHandle
s = Dir(sDrive + "*.*")
IsEmptyCDROM = False
Exit Function
ErrHandle:
IsEmptyCDROM = True
End Function
注:以上代码可随意调用,修改... :)
用 VB 打开任意盘(硬盘/U盘/光盘)的文件.相关推荐
- 用 VB 打开任意盘(硬盘/U盘/光盘)的文件. (转)
用 VB 打开任意盘(硬盘/U盘/光盘)的文件. (转)[@more@] 在程序打包移植的时候,需要用到 光盘/U盘 .在不知道机子上的光盘的盘符是多少,或不知道盘符的类别和盘符的总数的话. .... ...
- 计算机vb考试能插u盘么,08年计算机二级VisualBasic辅导:用VB打开任意盘(硬盘/U盘/光盘)的文件...
在程序打包移植的时候,需要用到 光盘/U盘 .在不知道机子上的光盘的盘符是多少,或不知道盘符的类别和盘符的总数的话. ......... 可以用如下方法来判断 ......... 要用到的 API 描 ...
- 视频监控系统选择硬盘,绿盘、蓝盘、紫盘、黑盘、红盘到底选择哪个?
前言 随着科技的不断进步和安全意识的提高,视频监控系统越来越普及,同时对于视频存储设备的要求也越来越高.硬盘作为视频存储设备的核心部件之一,选择一款适合的硬盘是保证视频存储和播放效果的关键.但是,市面 ...
- 计算机打开不显示cde硬盘,修复win10 系统盘不显示C盘,其他盘符也不显示DEF的方法...
进行升级安装win10系统后,有可能出现硬盘分区后,显示的不是C盘.D盘.E盘.F盘,这与我们常用的有所区别,像win10 系统盘不显示C盘,其他盘符也不显示DEF应该怎样解决呢?小编就带大家学习一下 ...
- windows 挂载百度网盘/阿里云盘等(网盘变本地硬盘) alist + raidrive
windows 挂载百度网盘/阿里云盘等 alist + raidrive Alist安装 使用步骤: Raidrive安装 Alist安装 AList: 一个支持多种存储的文件列表程序,使用 Gin ...
- 用vb脚本语言找出c盘所有文件及其子文件中后缀名为.txt的文档,2012年3月计算机二级VB练习题及答案:文件...
一. 单选题 1.关于顺序文件的描述,下面正确的是 ________. A) 每条记录的长度必须相同 B) 可通过编程对文件中的某条记录方便地修改 C) 数据只能以ASCII码形式存放在文件中,所以可 ...
- 网络硬盘[U盘]大全
01.FlashSave无限硬盘 简 介:100G上传空间,上传单个文件大小无限制.可以选择共享给其他人,也可以下载其他人共享的文件.FlashSave无限存是一个基于互联网平台的梦 幻服务,它可以最 ...
- 使用EFI引导从硬盘(U盘)安装Win7的图文教程
眼下仅支持vista后的64位系统 大部分使用EFI引导安装Win7的教程都是採用光盘启动安装,尽管光盘安装比較简单,可是对于没有光驱的朋友来说还是相当不便,更不用说光盘安装的两大缺点了,一速度慢,二 ...
- dos盘启动计算机,最新万能 DOS 启动盘制作全攻略(软盘+光盘+U盘+硬盘+NTFS+应急实用工具)...
最新万能 DOS 启动盘制作全攻略(软盘+光盘+U盘+硬盘+NTFS+应急实用工具) 更新时间:2006年12月21日 00:00:00 作者: 首先说明一下各种操作系统启动到DOS的途径: WI ...
最新文章
- oracle 06502 解决,ora-06502如何解决。。。
- C# 通过拼音检索中文名称
- eclipse自动排版JSP问题
- 超详细图解!【MySQL进阶篇】MySQL索引原理
- 包+类导入+静态导入+类放入包中+包作用域
- Python笔记-UiSelector混合定位
- mybatis模糊查询sql
- completable java_java8 CompletableFuture异步编程
- 如何学习才能成为优秀的Web前端开发工程师?
- 我的LINUX学习之路之十三之用脚本通过PXE安装LINUX
- 幼儿园管理系统源码【免费分享】
- ios android 系统字体,ios、android 系统字体说明
- [ 渗透工具篇 ] sqlmap 详解(一) sqlmap 安装详解
- 28款超级绿色版杀软,奉献给各位!【迅雷下载】
- flex builder 4.6破解
- abb机器人编程指令写字_最全的ABB机器人编程指令与函数
- 为 Hexo 搭建的博客添加属于自己的个性域名
- 出国留学成绩要求主要看点在雅思
- sq工程师是做什么的_供应商质量工程师(SQE)是一个什么样的职位?
- dex2oat过程对系统性能的影响