#11 Leggere il nome del file in uno “Shortcut” (file .LNK)

In un nuovo progetto, aggiungere il riferimento alla libreria COM (unmanaged) “Windows Script Host Object Model“.

Nella sezione del codice del form (Form1.vb) inserire questo esempio:

  Public Class Form1 
    Private Sub Button1_Click(ByVal sender As System.Object, _ 
           ByVal As System.EventArgs) Handles Button1.Click 
        MessageBox.Show(ReadShortcut("C:\prova2.lnk")) 
    End Sub 
 
    Public Function ReadShortcut(ByVal FilePath As StringAs String 
        If System.IO.File.Exists(FilePath) Then 
            Dim theShell As New IWshRuntimeLibrary.WshShell() 
            Dim theShortcut As IWshRuntimeLibrary.WshShortcut _ 
                   theShell.CreateShortcut(FilePath) 
            Return theShortcut.TargetPath 
        Else 
            Return "Il file non esiste." 
        End If 
    End Function 
  End Class 

Come si può vedere, ReadShortcut è una funzione che richiede il nome completo del file .LNK (compreso path) e restituisce il nome completo del file collegato.

Annunci

Pubblicato il 19 gennaio 2008, in Tips con tag . Aggiungi il permalink ai segnalibri. Lascia un commento.

Rispondi

Inserisci i tuoi dati qui sotto o clicca su un'icona per effettuare l'accesso:

Logo WordPress.com

Stai commentando usando il tuo account WordPress.com. Chiudi sessione / Modifica )

Foto Twitter

Stai commentando usando il tuo account Twitter. Chiudi sessione / Modifica )

Foto di Facebook

Stai commentando usando il tuo account Facebook. Chiudi sessione / Modifica )

Google+ photo

Stai commentando usando il tuo account Google+. Chiudi sessione / Modifica )

Connessione a %s...

%d blogger hanno fatto clic su Mi Piace per questo: