C# と VB.NET の質問掲示板

■No8659 (とも さん)
> WshSCut = Nothing
COM オブジェクトの解放が目的なら、Nothing を代入するのではなく、
Marshal.ReleaseComObject メソッドを呼び出す必要があります。


■No8646 (とも さん)
> なぜか文字化けします。

■No8663 (とも さん)
> 正しいリンク先：\\aa\bb\cc\dd\TEST-AA12345ああ
> おかしいリンク先：\\aa\bb\cc\dd\TEST-A~1

それは、『文字化け』ではないと思いますよ。
単に短い形式のファイル名(8.3 形式)で表現されているだけであり、正しいパスを指しているかと。


ショートカット自体が、短い方の名前で登録されているか、または何らかの理由で
短い方の名前が帰ってきているのではないでしょうか。


少なくとも当方の Windows Server 2003 の環境では、下記のコードにて、期待する結果が得られています。


Imports System
Imports System.IO.File
Imports System.IO.Path
Imports System.Runtime.InteropServices.Marshal
Public Class Sample
  Public Shared Sub Main(ByVal args() As String)
    Dim file As String = "C:\Sample.lnk"
    If args.Length > 0 Then file = args(0)

    If Not Exists(file)
      Console.WriteLine(file & "が見つかりません。")
      Exit Sub
    End If

    Dim ext As String = GetExtension(file).ToLower()
    If ext <> ".lnk" AndAlso ext <> ".url" Then
      Console.WriteLine(file & "は利用できません。")
      Console.WriteLine("拡張子 .LNK または .URL のファイル名を指定してください。")
      Exit Sub
    End If

    Dim O As Object = Nothing
    Dim L As Object = Nothing
    Try
      O = CreateObject("WScript.Shell")
      L = O.CreateShortcut( file )

      Console.WriteLine( file & "のリンク先:")
      Console.WriteLine( L.TargetPath )
    Catch e As Exception
      Console.WriteLine( e.ToString() )
    Finally
      If L IsNot Nothing Then ReleaseComObject(L)
      If L IsNot Nothing Then ReleaseComObject(O)
    End Try
  End Sub
End Class


それで駄目なら、別の方法を試してみるのも手かと。

今回使用した WshShortcut オブジェクトによる方法や、私の No8655 のような方法以外にも、
ShellLinkObject オブジェクトを使う方法などもあるわけですし。