38476


タイトル通りで、VBscript でシンボリックリンクのリンク先(実体へのpath)を取得したいのですがググっても見つけきれませんでした。  
よろしくお願いいたします。


CC BY-SA 3.0
2017-10-05T07:11:54.343
38462
2017-10-06T02:24:35.730
2017-10-05T08:58:27.840
19605
19605
question
vba vbs
VBscript でシンボリックリンクのリンク先(実体へのpath)を取得したい。


ここに書かれているとおりです。  
<https://stackoverflow.com/questions/30624989/how-to-get-target-path-of-a-
junction>

[code]

    foldername = "C:\the Junction\test"
    
    Set sh = CreateObject("WScript.Shell")
    Set fsutil = sh.Exec("fsutil reparsepoint query """ & foldername & """")
    
    Do While fsutil.Status = 0
      WScript.Sleep 100
    Loop
    
    If fsutil.ExitCode <> 0 Then
      WScript.Echo "An error occurred (" & fsutil.ExitCode & ")."
      WScript.Quit fsutil.ExitCode
    End If
    
    Set re = New RegExp
    re.Pattern = "Substitute Name:\s+(.*)"
    
    For Each m In re.Execute(fsutil.StdOut.ReadAll)
      targetPath = m.SubMatches(0)
    Next
    
    WScript.Echo targetPath
    
[/code]


CC BY-SA 3.0
2017-10-06T02:24:35.730
38476
2017-10-06T02:24:35.730
25661
38462
answer