Bonjour,

Leur du développement d'une application, il m'as été nécessaire d'extraire les informations d'un fichier ".lnk". Pour l'instant j'utilisais le code fourni par ce site nommé "InfoRaccourci", malheureusement ce code ne fonctionne plus sur XP (enfin.. j'ai que un version test de longhorn mais je pense que c'est la meme chose).

Quelqu'un aurait-il un méthode pour extraire ces informations ?

.. j'ai regarder dans les api, rien, j'ai trouver du code c qui utilise des objets com.. impossible dans wd.

Merci de votre aide.

Alois Cochard

Au contraire, les objets com son normallement accessibles en WL.
Quel est l'objet com?.

Objet com accesible en WL????

C'est fantastique ce que tu dit la met comment ?`

Pour l'instant j'ai trouver une solution avec un script WHS qui écrit un ".ini".

Voila le code vbscript :
---------------------
If WScript.Arguments.Count = 0 Then
WScript.Quit
Else
Dim ws,fso,iniout
Dim SCPath,SCTarget,SCDescription,SCArguments,SCHotKey,SCWindowStyle,SCWorkingDir,SCIcon
Dim CFPath

SCPath=WScript.Arguments.Item(0)
CFPath=WScript.Arguments.Item(1)

Set ws = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set iniout = fso.CreateTextFile(CFPath,TRUE)

With ws.CreateShortcut(SCPath)
SCTarget=.TargetPath
SCDescription=.Description
SCArguments=.Arguments
SCHotKey=.HotKey
SCWindowStyle=.WindowStyle
SCWorkingDir=.WorkingDirectory
SCIcon=.IconLocation
End With

iniout.WriteLine("[LNK]")
iniout.WriteLine("DESCRIPTION=" & SCDescription)
iniout.WriteLine("TARGET=" & SCTarget)
iniout.WriteLine("ARGUMENTS=" & SCArguments)
iniout.WriteLine("WORKINGDIR=" & SCWorkingDir)
iniout.WriteLine("ICON=" & SCIcon)
iniout.WriteLine("HOTKEY=" & SCHotKey)
iniout.WriteLine("STYLE=" & SCWindowStyle)
End If
-----------------------

Alors comment faire sa :
Set ws = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")

En w-langage ?

Merci bcp.

Une traduction à la volée pour l'initialisation


Pour démarrer...

J'y crois pas !!! je savais même pas sa!!!

Tout à coup... tout les possibitlés qui s'ouvre a moi!!

Merci infiniment.

Voici une procédure global terminée.

Pour ceux que sa intéresse... (compatible 2k/XP)

PROCEDURE pg_Fichier_LienInfo(_FichierRaccourci)
Ws est un objet automation "WScript.Shell"

Ws>>CreateShortcut(_FichierRaccourci)
_Chemin=Ws>>CreateShortcut(_FichierRaccourci)>>TargetPath
_Description=Ws>>CreateShortcut(_FichierRaccourci)>>Description
_Argument=Ws>>CreateShortcut(_FichierRaccourci)>>Arguments
_HotKey=Ws>>CreateShortcut(_FichierRaccourci)>>HotKey
_RepertoireTravail=Ws>>CreateShortcut(_FichierRaccourci)>>WorkingDirectory

RENVOYER _Chemin+TAB+_Description+TAB+_Argument+TAB+_RepertoireTravail+TAB+_HotKey