Est-ce un moyen de tester à partir de vbscript si un dossier est un lien symbolique?

Question

J'ai un code de script visuel de base dans mon installateur et j'ai besoin de tester ce dossier spécifique est un lien symbolique ou un dossier normal. Est-ce un moyen d'effectuer une telle tâche dans vbscript?

Answer 1

Les éléments de système de fichiers qui sont des liens symboliques ont l'attribut FILE_ATTRIBUTE_REPARSE_POINT (1024). Vous pouvez vérifier cet attribut comme suit:

Const FA_REPARSE_POINT = &h400 

Set fso = CreateObject("Scripting.FileSystemObject") 
Set f = fso.GetFolder("C:\MyFolder") 

If (f.Attributes And FA_REPARSE_POINT) = FA_REPARSE_POINT Then 
    ' The folder is a symbolic link 
Else 
    ' The folder is a normal folder 
End If