How to find file size of network drives?

[schulzy175]

How can I get the file sizes of network drives? Filelen() is not recognizing network names. Thanks for any help.

[Leith Ross]

Hello schulzy175,

This works on my local network. Give it try on yours.

' Written:  January 24, 2018
' Author:   Leith Ross

Function GetFileSize(ByVal FolderPath As Variant, ByVal Filename As Variant)

    Dim File   As Object
    Dim Folder As Object
    Dim oShell As Object
        
        Set oShell = CreateObject("Shell.Application")
        
        Set Folder = oShell.Namespace(FolderPath)
        
            If Folder Is Nothing Then
                MsgBox """" & FolderPath & """ Not Found.", vbOKOnly + vbCritical
                Exit Function
            End If
        
        Set File = Folder.ParseName(Filename)
        
            If File Is Nothing Then
                MsgBox "The File """ & Filename & """ was Not Found.", vbOKOnly + vbCritical
                Exit Function
            End If
        
        GetFilesize = Folder.GetDetailsOf(File, 1)
        
End Function

[Trebor76]

Hi schulzy175,

Based on this early binding FileSystemObject example I written the following late binding equivalent:

Option Explicit
Sub Macro1()

    Dim objFSO   As Object
    Dim objDrive As Object
    Dim dblSpace As Double
    
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objDrive = objFSO.GetDrive("C:") '<- Change to the relevant drive letter you're interested in
    
    dblSpace = Round(objDrive.TotalSize / 1073741824, 0) 'Converting bytes to GB
    
    MsgBox "The total size of " & objDrive.DriveLetter & " is " & dblSpace & "GB"
    
    Set objDrive = Nothing
    Set objFSO = Nothing

End Sub

HTH

Robert

[schulzy175]

Much thanks for the codes, but I've already had it working locally, but I am trying to replace "C:" with a network name. i.e. "\\MYNETWORK" OR "\\MYNETWORK\FOLDER". My apologies for not being clearer in the first post.

[Leith Ross]

Hello schulzy175,

So you want to convert a mapped drive letter to it is UNC path?

[bakerman2]

Does this work for you ?

Sub tst()
    MsgBox GetUNC("C:")
End Sub

Function GetUNC(strMappedDrive As String) As String
    Dim strDrive As String
    Dim strShare As String
    With CreateObject("scripting.filesystemobject")
        strDrive = .GetDriveName(strMappedDrive)
        strShare = .Drives(strDrive & "\").ShareName
    End With
    GetUNC = Replace(strMappedDrive, strDrive, strShare)
End Function