[已解决]请教：怎么取得硬盘的最后一个盘符？

xdwy81129

问题如题，取硬盘的最后一个盘符，第一个盘符是C

谢谢解答

最佳答案

月排行榜 / 总排行榜

snrvgbb

2011-11-9 15:30

1. Sub test()
   
2. Dim fso
   
3. Dim Mydrive, drivename
   
4. Set fso = CreateObject("Scripting.FileSystemObject")
   
5. For Each Mydrive In fso.Drives
   
6.     If Mydrive.DriveType = 2 Then
   
7.         drivename = Mydrive.Path
   
8.     End If
   
9. Next
   
10. MsgBox drivename
    
11. End Sub

复制代码

跳转到最佳答案楼层

snrvgbb

1. Sub test()
   
2. Dim fso
   
3. Dim Mydrive, drivename
   
4. Set fso = CreateObject("Scripting.FileSystemObject")
   
5. For Each Mydrive In fso.Drives
   
6.     If Mydrive.DriveType = 2 Then
   
7.         drivename = Mydrive.Path
   
8.     End If
   
9. Next
   
10. MsgBox drivename
    
11. End Sub

复制代码

wayy

谢谢，学习了。

studyexcel

{:091:}学习