Private Sub Command2_Click()
Dim fso, d, dc, s, n
Set fso = CreateObject("Scripting.FileSystemObject")
Set dc = fso.Drives
For Each d In dc
n = ""
s = s & d.DriveLetter & " - "
If d.DriveType = Remote Then
n = d.ShareName
ElseIf d.IsReady Then
n = d.VolumeName
End If
s = s & n & Chr(13)
Next
MsgBox "卷标" & s
End Sub
上面的代码，请帮忙解释一下，特别是s = s & d.DriveLetter & " - "
这句为什么会s=s,为什么一定要在& d.DriveLetter & " - "前面在加一个
S，不加可以吗？谢谢拉！
參考答案:这个是把所有的驱动器的卷标显示出来的程序
至于你的问题,这个是叠加的方法,不加不行,如果不加,代码只会显示最后一个驱动器的卷标了.
