vb drivelist的drive返回问题

来源：百度知道 编辑：UC知道 时间：2024/06/20 10:17:17
VB的drivelist.drive，返回值，怎么才能只返回一个盘号啊。比如我的E盘名字为“电影”，当drivelist选的E盘时，
print drivelist1.drive 得到的结果是e[电影]:\，怎么才能得到e:\

请高手帮忙啊？

Dim S$, I&
S = Drivelist1.Drive
I = InStr(1, S, "[")
If I > 0 Then S = Trim$(Left$(S, I - 1)) + "\"
MsgBox S

Private Sub Command1_Click()
Dim i As Integer
For i = 0 To Drive1.ListCount
If Drive1.List(i) <> "" Then
MsgBox Drive1.List
End If
Next
End Sub
好像没那么麻烦吧。。。。
此代码可以通过测试