Thanks for your replies,
I am using this UDF:
Code:

Function label($_d,optional $_s)
 $=CreateObject("shell.application")
 If VarType($_s)
  $.namespace(Left($_d,1)+":\").self.name=$_s
  Exit @ERROR
 Else
  $label = $.namespace(Left($_d,1)+":\").self.name
  Exit @ERROR
 EndIf
EndFunction


Just am looking for a combination of these posted code snippets..