Créer un raccourci vers un dossier

Créer un raccourci vers un dossier - VB/VBA/VBS - Programmation

Marsh Posté le 13-03-2008 à 20:13:19    

Bonjour,
 
Je n'ai aucun souci pour créer un raccourci vers un fichier avec le code suivant.
 
Par contre impossible de créer un raccourci vers un dossier!!
 
 
Ci dessous le code que j'utilise pour les raccourcis vers un fichier :
 

Code :
  1. THEPATH = "C:\test\"
  2. Set objShell = CreateObject("WScript.Shell" )
  3.     Set objRacc = objShell.CreateShortcut(THEPATH & "test.Lnk" )
  4.     objRacc.TargetPath = Chr(34) & THEPATH & Chr(34)
  5.    
  6.     objRacc.Arguments = ""
  7.     objRacc.WindowStyle = 4
  8.     objRacc.WorkingDirectory = Chr(34) & THEPATH & Chr(34)
  9.     objRacc.Save
  10.     Set objRacc = Nothing



Message édité par krhyme78 le 14-03-2008 à 09:41:16
Reply

Marsh Posté le 13-03-2008 à 20:13:19   

Reply

Marsh Posté le 14-03-2008 à 09:41:28    

up

Reply

Marsh Posté le 14-03-2008 à 14:43:40    

:sleep:


Message édité par krhyme78 le 14-03-2008 à 14:44:05
Reply

Marsh Posté le 19-03-2008 à 10:07:08    

up up up & down

Reply

Marsh Posté le 19-03-2008 à 11:02:40    

Jour Bon, perso je fais ceci, à adapter


'--------------------------------------------------------
'
'   Sous VBE Cocher Windows Script Host Object Model
'
'--------------------------------------------------------
 
Option Explicit
 
Sub Tst()
Dim oShell As wshShell
Dim oShortCut As WshShortcut
Dim sChemin As String
 
    sChemin = "C:\Transfert\ADO"
 
    Set oShell = New wshShell
    Set oShortCut = oShell.CreateShortcut("C:\Ado.Lnk" )
     
    oShortCut.TargetPath = sChemin
    oShortCut.WorkingDirectory = sChemin
    oShortCut.Save
 
    Set oShortCut = Nothing
    Set oShell = Nothing
End Sub


Message édité par kiki29 le 20-03-2008 à 07:31:18
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed