ファイルのフルパスをクリップボードにコピー（ソースコード) - いぬもあるけばぼうもあるく

''' <summary>
''' 引数で指定されているファイルをクリップボードにコピー
''' </summary>
''' <remarks></remarks>
Module Module1

    Sub Main()

        Dim cmds() As String
        cmds = System.Environment.GetCommandLineArgs()

        Dim builder As New System.Text.StringBuilder("")

        For i = 1 To cmds.Length - 1
            Dim arg As String = cmds(i)
            builder.AppendLine(arg)
        Next

        Dim result As String = builder.ToString
        If Not String.IsNullOrEmpty(result) Then
            Clipboard.SetText(builder.ToString)
        Else
            Clipboard.Clear()
        End If
    End Sub

End Module