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)
|
Results 1 to 11 of 11
Threaded View
|
Click Here to Expand Forum to Full Width |