求教：如何获取插入的光盘的名称？？急~

sonyhell

就是如何用 SQAGetProperty()来获取插入的光盘的名称？？
比如 Disk_name = SQAGetProperty(,,)
有人可以帮到我吗？

试过通过注册表才获取，但是要格式化了该光盘了才行，注册表下相关键值才会有记录被格的时候给光盘命的名称~
--------------------------------------------------------------------------
'$Include "WinRegistryUtilities.sbh"
...
Dim Disk_Name As String
...
Rem Get the inserted disk's name from registry
Disk_Name = GetRegistryString (HKEY_CURRENT_USER,"Software\Microsoft\Windows\CurrentVersion\Explorer\CD Burning\Current Media","Disc Label")
...
--------------------------------------------------------------------------

此外在注册表其他地方未能找到有记录新插入光盘的名称的注册表项,所以现在想寻求另一种解决方案~谢谢各位大虾了！

ilovejolly

不对盘操作的话,系统应该是得不到名字的

查查winapi,可能有希望

sonyhell

原帖由 ilovejolly 于 2006-8-3 15:22 发表
不对盘操作的话,系统应该是得不到名字的

查查winapi,可能有希望

谢谢ilovejolly！
不对盘操作,系统可以得到光盘名字的，比如你插如一张盘，名称叫“test”，打开“我的电脑”，里面不就显示了" test(D:)"吗？
我用的是robot，录制脚本的时候，先打开我的电脑，再打开可刻录的光盘，问题是每次插入光驱的可刻录的光盘的名称不是固定的，而脚本需要是通用的，所以我要用一变量来获取光盘的名称...
貌似SQAGetProperty()，folderview一下就可以，但是我弄了半天没整出来，希望大家帮帮忙，救我于水火....

ilovejolly

你打开我的电脑的时候就等于已经对盘发出了要查看名字的请求了啊

你现在是需要一个什么效果呢?把完整的需求说出来

sonyhell

原帖由 ilovejolly 于 2006-8-3 17:35 发表
你打开我的电脑的时候就等于已经对盘发出了要查看名字的请求了啊

你现在是需要一个什么效果呢?把完整的需求说出来

我需要测试一个刻录光盘的软件，需要插入测试的光盘，robot的脚本里面有个语句是先检查是否已经插入了光盘，而每次插入的光盘可能名字不一样，所以要让这一句脚本具有通用性的话，必须有一个变量能即时的获取所插入光盘的名称。

liangl923

用自带的文件操作函数 Dir就可以了    Dir[$] [( pathname$ [,attributes% )]
pathname$  就是光盘的路径就可以了

Sub Main
Dim Driverlabel
Driverlabel = Dir("h:\",8)
msgbox "Driverlabel is : " & Driverlabel
End Sub