you can also try
Code:
Dim fso As FileSystemObject, d As Drive
Set fso = CreateObject("scripting.filesystemobject")
 fil = "y:\compex\usb_lan.exe"  ' change to suit
 Set f = fso.GetFile(fil).Drive
 MsgBox Replace(fil, f.Path, f.ShareName)