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オブジェクトのドライブのプロパティを使用することができ、それはあなたが望むものよりある場合に空き領域の量を決定します。