FileSystemObject troubles 1

[Slarti]

I'm trying to use the FileSystemObject to identify the names of folders on a server. I've tried various combination of Set fFAP = FSys.GetDrive("\\JDH00674") and get an invalid procedure call or argument, trying Set fFAP = FSys.GetFolder("\\JDH00664") I get path not found when I know the path is correct. Where am I going wrong?

 

[bjd4jc]

I believe that you need to specify a share name....

"\\JDH00664\sharename

 

[HydraNL]

Yeah... you have to share the specific folder on the network.

 

[Slarti]

Thanks bjd4jc/HydraNL that kinda negates the procedure I was trying to write which would have identified the sharenames on each server.

cheers,

S.

 

[bjd4jc]

Well if that is what you want you should have said so...

I am sure there are variations of how to do this but this is what I like:

    Dim wmgts As Object
    Dim Share As Object
    Dim Server As String
    
    Server = "localhost"
    
    Set wmgts = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & Server & "\root\cimv2")
    For Each Share In wmgts.instancesof("Win32_Share")
        Debug.Print Share.Name; vbTab; Share.Path; vbTab; Share.Caption
    Next