如何获取当前驱动器的盘符？

Question

Private Declare Function GetLogicalDriveStrings Lib "kernel32" Alias "GetLogicalDriveStringsA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
Private Sub Form_Load()    Dim strSave As String
    Dim ret, ss, vv, i
    strSave = String(255, Chr$(0))
    ret = GetLogicalDriveStrings(255, strSave)
    For i = 1 To 100
        If Left$(strSave, InStr(1, strSave, Chr$(0))) = Chr$(0) Then Exit For
        ss = Left$(strSave, InStr(1, strSave, Chr$(0)) - 1) & "盘 "
        strSave = Right$(strSave, Len(strSave) - InStr(1, strSave, Chr$(0)))
        vv = vv & ss
    Next i
    MsgBox vv
End Sub

Answer 1

dim driver as string
driver=Left(app.path,3)