Sub MakeShortcut(ByVal CreateInPath As String, ByVal Name As String, ByVal _
      Target As String)
        Dim Shortcut As String = Path.Combine(CreateInPath, Name) & ".lnk"
        If File.Exists(Shortcut) Then
            Dim i As Integer = 2
            While File.Exists(Path.Combine(CreateInPath, Name) & " (" & i & _
              ").lnk")
                i = i + 1
            End While
            Shortcut = Path.Combine(CreateInPath, Name) & " (" & i & ").lnk"
        End If
        Try
            File.Open(Shortcut, FileMode.Create, FileAccess.ReadWrite, _
              FileShare.None).Close()
            'File.Create(Shortcut).Close()
            Dim CreationTime As Date = Directory.GetCreationTime(Target)
            Dim LastAccessTime As Date = Directory.GetLastAccessTime(Target)
            Dim LastWriteTime As Date = Directory.GetLastWriteTime(Target)
 
            File.SetCreationTime(Shortcut, CreationTime)
            'File.SetLastAccessTime(Shortcut, LastAccessTime)
            'File.SetLastWriteTime(Shortcut, LastWriteTime)
 
            'Console.WriteLine(CreationTime)
        Catch ex As Exception
            Console.WriteLine("Error " & ex.Message)
        End Try
    End Sub