(defun FOLDER-GET-SHAREDPATH (FOLDERNAME / FSO RESULT)
(if(setq FSO (vlax-create-object "Scripting.FilesystemObject"))
(progn
(if(and(vlax-method-applicable-p FSO 'GETFOLDER)
(not(vl-catch-all-error-p
(setq RESULT(vl-catch-all-apply
'vlax-invoke-method
(list FSO
'GETFOLDER
FOLDERNAME
)
)
)
)
)
)
(setq RESULT(strcat
(vlax-get-property(vlax-get-property RESULT 'drive)'Sharename)
(substr (vlax-get-property RESULT 'Path)3)
)
)
)
(vlax-release-object FSO)
)
)
RESULT
)
for you (FOLDER-GET-SHAREDPATH "Y:")