请问要如何获取CurrentProject.Path 的 hd.Model

c101 · 发表于 2010-9-6 09:57:13

以下可获取所有
HD Model

Dim hds As Object, hd As Object

Set hds = GetObject("Winmgmts:").InstancesOf("Win32_DiskDrive")

For Each hd In hds

HDModel = HDModel & IIf(HDModel <> "", ";", "") & hd.Model

请问要如何获取CurrentProject.Path 的
hd.Model

c101 · 发表于 2010-9-6 09:59:57

對不起再發一次
以下可获取所有 HD Model
  Dim hds As Object, hd As Object
  Set hds = GetObject("Winmgmts:").InstancesOf("Win32_DiskDrive")
  For Each hd In hds
      HDModel = HDModel & IIf(HDModel <> "", ";", "") & hd.Model
  Next

请问要如何获取 CurrentProject.Path 的 hd.Model

c101 · 发表于 2010-9-6 11:20:02

老大:
谢谢！

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[Access本身] 请问要如何获取CurrentProject.Path 的 hd.Model

群介绍
主题无相 (随机显示版	同地区群块其他地区)

主题相关群

地区相关群[您还没设置居住地]

[Access本身] 请问要如何 获取CurrentProject.Path 的 hd.Model

[Access本身] 请问要如何获取CurrentProject.Path 的 hd.Model