请教，如何用vba判断电脑上硬盘的最后一个分区盘符。

YGH180

做了一个excel宏文件，想在文件关闭时，自动保存备份到当前电脑上的硬盘的最后一个分区中（在分区中新建一个文件夹保存文件，如果已经有新建的备份文件夹，则直接生成备份文件放入其中）。比如在优盘中操作此文件时，如果备份也备份到优盘没备份到当前电脑的硬盘安全。
目前的难题是：需要知道哪一个盘是硬盘中的最后一个盘，比如D、还是G，如果有优盘，再排除优盘，如果有固态硬盘和机械硬盘，可以视同一个硬盘找最后一个盘符，不是优盘就行。最后也不是感动硬盘。 只有一个分区时，就直接找c盘。

感谢 。

AVEL

1. Sub test()
   
2.     Dim FSO As Object, mDisk
   
3.     Set FSO = CreateObject("scripting.filesystemobject")
   
4.     Set mDisk = FSO.drives
   
5.     For Each d In mDisk
   
6.         Select Case d.DriveType
   
7.             Case 0: t = "未知磁盘"
   
8.             Case 1: t = "U盘"
   
9.             Case 2: t = "本地硬盘"
   
10.             Case 3: t = "网络硬盘"
    
11.             Case 4: t = "光盘驱动器"
    
12.             Case 5: t = "内存虚拟盘"
    
13.         End Select
    
14.         Debug.Print d & "   类型是：   " & t
    
15.     Next
    
16. End Sub

复制代码

YGH180

感谢，按这个解决了，要是能知道每个盘的总 容量就更好了，目前我用了剩余容量的属性辅助判断。因为像我这个电脑上有个原来不显示的隐藏分区，现在不知道怎么显示出来了，还是最后一个分区，里面估计是系统的备份，还浊权限写入，所以我用了一个剩余容量大于10G再判断了下。  要是能直接知道像这种总容量不到20G的像是系统备份分区的直接不考虑就更好了，好像没有直接判断分区总容量的。  

'以下过程自动判断本地磁盘中剩余空间大于10G的最后一个盘，如果没有则自动停止
    Dim x As String
    Dim x2 As Integer
    x2 = 0

    Dim FSO As Object, mDisk
    Set FSO = CreateObject("scripting.filesystemobject")
    Set mDisk = FSO.drives
    For Each D In mDisk
        Select Case D.DriveType
            Case 0: t = "未知磁盘"
            Case 1: t = "U盘"
            Case 2
                t = "本地硬盘"
               
               
                MsgBox D.FreeSpace / 1024 / 1024   '当前盘可用空间，单位为M
               
               
               If D.FreeSpace / 1024 / 1024 > 10000 Then  '本地磁盘，空间大于10000M时，大于10G时，使用当前盘做为备份盘
                x = D
                x2 = 1
               End If
               
            Case 3: t = "网络硬盘"
            Case 4: t = "光盘驱动器"
            Case 5: t = "内存虚拟盘"
        End Select
       ' MsgBox "55"
    '    MsgBox D & "   类型是：   " & t
    Next
   

    MsgBox "当前电脑硬盘最后一个盘（剩余空间大于10G的）是：  " & x
   
   
   
    If x2 = 0 Then Exit Sub         '没有大于10G的最后一个盘时，停止备份