GetDriveUnc

Function dlet(drl)
'spits out the info

dlet = Mid(drl, 1, InStrRev(drl, "\") - 1)
End Function

Private Sub Form_Load()
'passes full path to function

MsgBox dlet("\\heh\heh.html")
MsgBox dlet("c:\heh\heh.html")
End Sub