用 VB 打开任意盘(硬盘/U盘/光盘)的文件.[1]

[入库:2005年8月18日] [更新:2007年3月24日]

本文简介:选择自 chanet 的 blog

在程序打包移植的时候,需要用到 光盘/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,包含了驱动器根目录路径的一个字串

本文关键:CD-ROM,硬盘,U盘,光盘
 

本站最佳浏览方式为 分辨率 1024x768 IE 6.0(或更高版本的 IE浏览器)

go top