如何检查联结在VBScript中具有有效的目的地？

Question

以下DOS命令创建一个指向不再存在的文件夹（称为Source）的结点（称为Destination）。

mkdir Destination
mklink /J Source Destination
rd Destination

我当前正在使用以下VBScript来验证接合点的目的地是否存在：

' FileSystemObject is used for multiple things, so defined globally
Dim fso : Set fso = CreateObject("Scripting.FileSystemObject")

Function Valid_Junction(folderName)

    Valid_Junction = True

    On Error Resume Next
    Dim count : count = fso.GetFolder(folderName).Files.Count
    ' An error will be thrown if the destination doesn't exist
    If Err.Number <> 0 Then Valid_Junction = False
    On Error Goto 0

End Function

在上面的示例中，正确调用Valid_Junction("Source")会返回False，因为Destination不再存在。

是否有一种更简单，更清洁或更有效的方法？