VBA Excel - 使用网络路径名称不是驱动器号

Question

如何从P更改下面的驱动器号以改为使用网络完整路径名？

我似乎无法弄清楚

'Creating a FileSystemObject 
Public FSO As New FileSystemObject 
Sub DiskSpace() 
Dim drv As Drive 
Dim Space As Double 
Set drv = FSO.GetDrive("P:") ' Creating the the Drive object 
Space = drv.FreeSpace 
Space = Space/1073741824 'converting bytes to GB 
Space = WorksheetFunction.Round(Space, 2) ' Rounding 
MsgBox "P: has free space = " & Space & " GB" 
End Sub 

Answer 1

修改，以适应：

Dim FSO As FileSystemObject 
    Dim DRV As Drive 
    Dim FO As Folder 
    Dim sPath As String 

sPath = "\\RON-DODIER\Users" 'Network Folder Path 

Set FSO = New FileSystemObject 
Set FO = FSO.GetFolder(sPath) 

Debug.Print FO.Drive.FreeSpace 

您还可以使用File对象的驱动性能，如果是更想要什么，确定可用空间量。