How to place the vertex name into vertex?

Question

I want to look the local-disk-directory structrue use this code.

g = NestGraph[
   Select[FileNames["*", #], DirectoryQ] &, $InstallationDirectory, 2,
    GraphLayout -> {"LayeredEmbedding", "Orientation" -> Left, 
     "LeafDistance" -> .1}];
SetProperty[g, 
 VertexLabels -> Table[a -> FileNameTake[a], {a, VertexList[g]}]]

But I have some dissatisfaction with it.I want to put vertex name into vertex like this:

But I cannot use Placed[FileNameTake["Name"], Center].Any solution can do this?

Answer 1

Per suggestion,I post my comment as answer for reading to show your local-disk-directory structrue.If it is a directory,I will show it with yellow.

panelLabel[lbl_] := 
  Framed[FileNameTake[lbl], FrameMargins -> 1, FrameStyle -> None, 
   RoundingRadius -> 3, 
   Background -> Lighter[If[DirectoryQ[lbl], Yellow, Red], 0.5]];
g = NestGraph[FileNames["*", #] &, $InstallationDirectory, 2];
UndirectedGraph[g, 
 GraphLayout -> {"LayeredEmbedding", "Orientation" -> Left, 
   "LeafDistance" -> .1}, 
 VertexLabels -> 
  Table[a -> Placed[a, Left, panelLabel], {a, VertexList[g]}], 
 VertexSize -> 0]

http://o8aucf9ny.bkt.clouddn.com/2016-10-05-15-38-14.png