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對象的驅動性能，如果是更想要什麼，確定可用空間量。