DriveListbox选择一个盘将盘显示在TextBox，在用Command1获取TextBox内 盘符 并且执行一个命令 ，新手求解！已完成部分！

Question

DriveListbox选择一个盘 TextBox 则显示与选择的盘一致  （例如DriveListbox 选择c盘 在TexBox就显示 C:）  
然后Command1获取TextBox内 盘符 并且执行一个命令  
DriveListbox 选择盘显示在TextBox 已经完成 ，但是XP可以不显示盘符，但是在Windows 7系统则显示盘符...我的代码是这样的Private Sub Drive1_Change()On Error Resume Next '去除实时错误:68 设备不可用 光驱、U盘错误Dir1.Path = Drive1.DriveTextBox2.Text = Drive1.Drive '将盘符显示在TextBoxEnd Sub请问如何修改成在Windows 7不显示盘符呢？ 只显示 C: 呢？Command1获取TextBox内 盘符 并且执行一个命令  该怎么写呢？本人新手~！

Answer 1

哪不叫盘符，叫卷标
c:才是叫盘符。
Private Sub Command1_Click()
   Dim s As String
   s = Left(TextBox2, 2)
   MsgBox s
   
End SubPrivate Sub Drive1_Change()
  On Error Resume Next '去除实时错误:68 设备不可用 光驱、U盘错误
  Dir1.Path = Drive1.Drive
  TextBox2.Text = Drive1.Drive  '将盘符显示在TextBox
  s = Drive1.Drive
End SubPrivate Sub Form_Load()
  TextBox2.Text = Drive1.Drive
End Sub