问题很简单,不过我不会,请大家帮帮忙

Question

怎么得到计算机中的所有驱动器(除了用控件)
怎么得到指定目录的下一级所有目录(除了用控件)是不是很简单啊.小弟最在是笨,唉~~

Answer 1

Option ExplicitPrivate Declare Function GetLogicalDriveStrings Lib "kernel32" Alias "GetLogicalDriveStringsA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As LongPrivate Sub Command1_Click()
    Dim s As String
    Dim s2() As String
    Dim i As Long
    
    s = String(255, 0)
    GetLogicalDriveStrings 255, s
    s = Left$(s, InStr(s, Chr(0) & Chr(0)))
    s2 = Split(s, Chr(0))
    For i = 0 To UBound(s2)
        Debug.Print s2(i)
    Next i
End Sub

Answer 2

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表示中止（空中止） 

Answer 3

我想再问一下
Dim a() As Byte
Dim b() As Byte
a = "321"
b = "sdf"
我想把两个数组的数据连接起来，要怎么办。是不是一定要用循环一个个加过去啊

Answer 4

dim num() for i=1 to ***
num()=a()&b()next i