Imports System
Imports System.IO
Imports System.IO.Directory
 
'Verweis auf "Windows Script Host Object Model" (COM) setzen!
 
Public Class Form1
 
    Dim dtAusgabe As New DataTable
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) _
      Handles Button1.Click
 
        Dim File As String = ""
        Dim DesktopFolder As String = Environment.GetFolderPath( _
          Environment.SpecialFolder.DesktopDirectory)
 
        For Each File In System.IO.Directory.GetFiles(DesktopFolder, "*.lnk")
            EigenschaftenAuslesen(File)
        Next
 
        DataGridView1.DataSource = dtAusgabe
 
    End Sub
 
    Private Sub EigenschaftenAuslesen(ByVal File As String)
 
        Dim ShortCut As IWshRuntimeLibrary.IWshShortcut
 
        ShortCut = CType((New IWshRuntimeLibrary.WshShell).CreateShortcut( _
          File), IWshRuntimeLibrary.IWshShortcut)
 
        Dim NewRow As DataRow = dtAusgabe.NewRow
 
        With NewRow
            .Item("Link") = File
            .Item("AuszufuehrendeDatei") = ShortCut.TargetPath
            .Item("Arbeitsverzeichnis") = ShortCut.WorkingDirectory
            .Item("Beschreibung") = ShortCut.Description
            .Item("StartParameter") = ShortCut.Arguments
            .Item("HotKey") = ShortCut.Hotkey
        End With
 
        dtAusgabe.Rows.Add(NewRow)
 
    End Sub
 
    Private Sub dtPlanInitialisieren()
 
        dtAusgabe.TableName = "Datenausgabe"
 
        Dim keys(1) As DataColumn
        Dim column As New DataColumn
        column.DataType = System.Type.GetType("System.Int32")
        With column
            .ColumnName = "ID"
            .AutoIncrement = True
            .AutoIncrementStep = 1
        End With
        dtAusgabe.Columns.Add(column)
        keys(0) = column
        dtAusgabe.PrimaryKey = keys
 
        column = New DataColumn
        column.DataType = System.Type.GetType("System.String")
        column.ColumnName = "Link"
        dtAusgabe.Columns.Add(column)
 
        column = New DataColumn
        column.DataType = System.Type.GetType("System.String")
        column.ColumnName = "AuszufuehrendeDatei"
        dtAusgabe.Columns.Add(column)
 
        column = New DataColumn
        column.DataType = System.Type.GetType("System.String")
        column.ColumnName = "Arbeitsverzeichnis"
        dtAusgabe.Columns.Add(column)
 
        column = New DataColumn
        column.DataType = System.Type.GetType("System.String")
        column.ColumnName = "Beschreibung"
        dtAusgabe.Columns.Add(column)
 
        column = New DataColumn
        column.DataType = System.Type.GetType("System.String")
        column.ColumnName = "StartParameter"
        dtAusgabe.Columns.Add(column)
 
        column = New DataColumn
        column.DataType = System.Type.GetType("System.String")
        column.ColumnName = "HotKey"
        dtAusgabe.Columns.Add(column)
 
    End Sub
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) _
      Handles MyBase.Load
        dtPlanInitialisieren()
    End Sub
End Class

EALA FREYA FRESENA

Beitrag wurde zuletzt am 20.09.19 um 11:45:20 editiert.