Adir() and symlinks

[JackTheC]

Hi Guys,

I want to do a drive search for specific files using a recursive Adir() call.
But the 'D' parameter for directories also selects so called symlinks made with the DOS-command MKLINK /D.
In fact symlinks are aliases for an other real folder.
To prevent double results I need to skip symlinkd folders. But how to determine in VFP if a folder is real or a symlinkd alias?

The DOS Dir command shows <DIR> or <SYMLINKD> so the DOS prompt can determine the difference. But I don't want a recursive call with Dos Dir commands. VFP's Adir() is blazing fast.

 

[JackTheC]

OK, I just found an alternative Dir checker in VBscript. I'll try calling this from VFP. E.g.

Const FA_REPARSE_POINT = &h400

Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder("F:\my movies")

If (f.Attributes And FA_REPARSE_POINT) = FA_REPARSE_POINT Then
  msgbox "symlink"
Else
  msgbox "normal"
End If

 

[Scott24x7]

Jack,
Did you try setting the Attribute -S using ADIR? I belive that will ignore anything that's not an actual DIR...


Best Regards,
Scott
ATS, CDCE, CTIA, CTDC

"Everything should be made as simple as possible, and no simpler."

 

[Scott24x7]

Ooops, I'm thinking DOS... negative attributes aren't accepted.

Best Regards,
Scott
ATS, CDCE, CTIA, CTDC

"Everything should be made as simple as possible, and no simpler."

 

[JackTheC]

I think this will be the translation in VFP:

[in main.prg]
fso = CreateObject("Scripting.FileSystemObject")
.
.
.
* Example:
thisfolder="f:\my movies"
if issym(thisfolder)
	* real folder
else
	* symlink folder
endif


PROCEDURE ISSYM
lparameter folderchk

fda=fso.GetFolder(folderchk)

if bitand(fda.Attributes,1024)=1024 
  return .f.
else
  return .t.
endif