|
|
@@ -550,7 +550,7 @@ begin |
|
|
|
while m>'' do begin |
|
|
|
if (not (loPath in Options)) or (0=AnsiCompareStr(Path, Copy(m, 1, Length(Path)))) then begin |
|
|
|
e:= TvfsDirectoryEntry.Create; |
|
|
|
e.FileInfo.Attributes:= faDirectory or faSymLink; |
|
|
|
e.FileInfo.Attributes:= faDirectory or faSymLink{%H-}; |
|
|
|
e.FileInfo.ModDate:= 0; |
|
|
|
e.FileInfo.Size:= 0; |
|
|
|
e.Source:= Self; |
|
|
|