一个关于API的问题！

Question

我想在我的系统中取得计算机的所有盘符，并把这些盘符赋给一个对话列表框，当此列表框选定一个盘符时，我的另一个文本框中的内容根据此对话列表框的盘符值而显示对应盘符下的内容，不知道该怎么实现？各位有没有人知道的？另外，我想要在某个盘符下创建一个文件夹不知道是不是用Createdirectory函数？具体怎么用游人知道吗？谢谢赐教！

Answer 1

给个例子
Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As LongPrivate Sub Command1_Click()'函数返回值:
'0:  未知驱动器
'1:  软驱等可移动驱动器
'2:  固定驱动器
'3:  网络驱动器
'4:  光驱
'5:  RAM驱动器
Dim DrvNum As Integer: Dim DrvVal As Long: Dim DrvCode As String
    For DrvNum = 0 To 25
        DrvVal = GetDriveType(Chr(DrvNum + 65) + ":") '依次对A-Z进行检测
        If DrvVal = 5 Then
            DrvCode = Chr$(DrvNum + 65)
            CD_Check = DrvCode
        End If
    Next
    MsgBox "光驱" & DrvCode
End Sub

Answer 2

用vb提供的DriveListBox控件就可以

Answer 3

vb提供的DriveListBox空间是可以实现，但是我现在想在网络上实现不能使用vb控件，所以想用winAPI实现，不知兄台有没有什么好的方法？