;
帖子
3919 
精华
积分
11710 
鱼币
0 ¥ 
来自
大连 
在线时间
1858 小时 
注册时间
2007-6-11 
最后登录
2009-10-20 

贴图大师勋章新人进步勋章宣传大使勋章论坛元老勋章

3
发表于 2009-1-5 19:48 | 只看该作者
鍙栧緱Disk Driver List涓庡悇涓狣river鐨勫瀷鎬 - 缂栫▼搴 - Powered by SupeSite

浣犵殑浣嶇疆锛缂栫▼搴 >> 璧勮 >> VB >> 鏂囦欢鎿嶄綔 >> 璇︾粏鍐呭 鍦ㄧ嚎鎶曠ǹ

鍙栧緱Disk Driver List涓庡悇涓狣river鐨勫瀷鎬

鍙戝竷: 2008-6-26 09:30 |  浣滆: admin |   鏌ョ湅: 2娆

Private Declare Function GetDriveType Lib "kernel32" _

Alias "GetDriveTypeA" (ByVal nDrive As String) As Long

Private Declare Function GetLogicalDriveStrings Lib "kernel32" _

Alias "GetLogicalDriveStringsA" (ByVal nBufferLength As Long, _

ByVal lpBuffer As String) As Long

'GetDriveType()鐨勪紶鍥炲兼剰涔夊涓嬶細

'0 The drive type cannot be determined.

'1 The root directory does not exist.

'2 The drive can be removed from the drive.

'3 The disk cannot be removed from the drive.

'4 The drive is a remote (network) drive.

'5 The drive is a CD-ROM drive.

'6 The drive is a RAM disk.

Private Sub Command1_Click()

Dim drv() As String, i As Long

Dim DrvType As Long

Call GetAvailDriver(drv())

For i = LBound(drv) To UBound(drv)

DrvType = GetDriveType(drv(i))

Select Case DrvType

Case 2

Debug.Print drv(i), "杞"

Case 3

Debug.Print drv(i), "纭"

Case 4

Debug.Print drv(i), "缃戣矾纾佺"

Case 5

Debug.Print drv(i), "鍏夌"

Case 6

Debug.Print drv(i), "RamDisk"

Case Else

Debug.Print drv(i), "涓嶆槑"

End Select

Next i

End Sub

'鍙栧緱鎵鏈夊彲鐢ㄧ殑DiskDriver List

Public Sub GetAvailDriver(DriverName() As String)

Dim totlen As Long

Dim buff As String, totDrvCnt As Long

Dim i As Long, tmpstr As String, j As Long

buff = String(255, 0)

totlen = GetLogicalDriveStrings(256, buff)

'鍙栧緱鐨勫煎: "a:\"+Chr(0)+"c:\"+Chr(0) + "d:\"+Chr(0) + Chr(0)

'鑰岃繖涓緥瀛愪腑浼犲洖闀垮害(totlen)鏄12

buff = Left(buff, totlen)

totDrvCnt = 0

For i = 1 To totlen

tmpstr = Mid(buff, i, 1)

If tmpstr = Chr(0) Then

totDrvCnt = totDrvCnt + 1

End If

Next i

ReDim DriverName(totDrvCnt - 1)

j = 0

For i = 1 To totDrvCnt

j = InStr(1, buff, Chr(0))

DriverName(i - 1) = Left(buff, j - 1)

buff = Mid(buff, j + 1)

Next i

End Sub

鎵撳嵃 | 鏀惰棌姝ら〉 |  鎺ㄨ崘缁欏ソ鍙 | 涓炬姤
涓婁竴绡 涓嬩竴绡
 

璇勫垎锛0

鍙戣〃璇勮
鏌ョ湅鍏ㄩ儴鍥炲銆愬凡鏈0浣嶇綉鍙嬪彂琛ㄤ簡鐪嬫硶銆