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
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
( getdriveunc.html )- by Paolo Puglisi
- Modifica del 17/12/2023