Copier un raccourci sur le bureau

Version imprimable

Bonjour,
Mon problème je voudrai copier un raccourci existant sur le bureau, j'ai crée une fonction

Code:

1
2
3
4
5
6
7
8
9
10
 
Function Copficon()
Dim filesys, objShell, DesktopPath  
Set objShell = CreateObject("WScript.Shell")
set filesys = CreateObject("Scripting.FileSystemObject")
DesktopPath = objShell.SpecialFolders("Desktop")   'je recupere le chemin du bureau
MsgBox DesktopPath                                         'OK
filesys.CopyFile "C:\mon rep\MonerpSpecif\Menu.lnk", "DesktopPath" 
MsgBox "le raccourci a été copié sur le bureau." ,vbExclamation ,"Information"
End Function

je récupère bien le chemin du bureau mais rien ne se copie sur le bureau et je n'ai aucun message d'erreur

Merci

Bonjour,

il te manque pas mal de chose dans ton code.

Voici un script fonctionnel que tu peux adapter selon tes besoins:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
'##############################################################
'# CREATESHORTCUT_WSH.VBS
'# CREATES A SHORTCUT ON THE USERS DESKTOP TO A SPECIFIED FILE
'# 
'# USES: WINDOWS SCRIPT HOST
'# LANGUAGE: VISUAL BASIC SCRIPTING EDITION
'##############################################################
 
'FORCE EXPLICIT VARIABLE DECLARATION
option explicit
 
'STEP OVER ERRORS FOR CUSTOM ERROR REPORTING
on error resume next
 
'DECLARE VARIABLES
dim shell, desktopPath, link, sys32Path
 
'INSTANTIATE THE WINDOWS SCRIPT HOST SHELL OBJECT
 
 
 
Set shell = WScript.CreateObject("WScript.shell")
 
'SET THE PATH TO THE WINDOWS DESKTOP FOLDER & MY DOCUMENTS FOLDER
 
desktopPath = shell.SpecialFolders("Desktop")
sys32Path = "%SystemRoot%\system32"
 
'CREATE A SHORTCUT ON THE USER'S DESKTOP
Set link = shell.CreateShortcut(desktopPath & "\shortcut to Calculator.lnk")
 
'SET THE PROPERTIES FOR THE SHORTCUT
link.Description = "My Shortcut"
link.TargetPath = sys32Path & "\calc.exe"
link.WindowStyle = 3
link.WorkingDirectory = desktopPath
link.Save
 
'CLEANUP OBJECTS
set shell = nothing
 
'LET THE USER KNOW IF THERE WAS AN ERROR AND WHAT IT WAS
'OTHERWISE CONFIRM SHORCUT CREATION
if err.number <> 0 then
	msgbox "There was an error creating your shortcut." & vbCrLf & err.description & vbCrLf & err.source, vbOKOnly-vbExclamation, "Shortcut Builder"
else
	msgBox "Your new shortcut has been created!" & vbCrLf & "Please check your Windows Desktop.", vbOKOnly-vbInformation, "Shortcut Builder"
end if

Bonjour,

tiens voilà ma réponse à problème similaire :
Citation:
Envoyé par bbil
Re,

lorsque tu effectue des concaténation de chaînes pour afficher le contenu d'une variable il faut sortir cette variable des guillemets ...

ainsi
Code:

1 2 3 4 5 6 7 8 9 10 11 dim stMaChaine as string stMaChaine = "La valeur de ma chaine" Msgbox "Affiche = stMachaine" '==> donne un msgbox avec le message : Affiche = stMachaine 'Tandis que : Msgbox "Affiche =" & stMachaine '==> donne un msgbox avec le message : Affiche = La valeur de ma chaine
à toi d'adapter cela à l'utilisation de ta chaîne chemin ...

15/10/2015, 16h33
michelr06

Merci, mais mon problème n'est pas de créer des raccourcis, mais de les copier depuis un répertoire du c:\ vers le bureau de l'utilisateur ou a défaut vers le bureau all users.
15/10/2015, 16h36
michelr06

Citation:

Envoyé par bbil

Bonjour,

tiens voilà ma réponse à problème similaire :

Je vais voir en decoupant la chaine
15/10/2015, 16h39
SfJ5Rpw8

Citation:

Envoyé par michelr06

Je vais voir en decoupant la chaine

C'est pas une histoire de découpe ... en laissant ta variable DesktopPath dans les guillemets tu utilise son nom et pas sa valeur du coup du doit créer un fichier qui s'appelle DesktopPath sur le répertoire courant ...

sort cette variable des guillemets..
16/10/2015, 07h57
michelr06

Bonjour

Ben non ça fait rien du tout, pas de création de repertoire.
si je supprime les "" j'ai une erreur d'execution " permission refusée" code 800A0046

Citation:

Envoyé par Diablo_22

Bonjour,

il te manque pas mal de chose dans ton code.

Voici un script fonctionnel que tu peux adapter selon tes besoins:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
'##############################################################
'# CREATESHORTCUT_WSH.VBS
'# CREATES A SHORTCUT ON THE USERS DESKTOP TO A SPECIFIED FILE
'# 
'# USES: WINDOWS SCRIPT HOST
'# LANGUAGE: VISUAL BASIC SCRIPTING EDITION
'##############################################################
 
'FORCE EXPLICIT VARIABLE DECLARATION
option explicit
 
'STEP OVER ERRORS FOR CUSTOM ERROR REPORTING
on error resume next
 
'DECLARE VARIABLES
dim shell, desktopPath, link, sys32Path
 
'INSTANTIATE THE WINDOWS SCRIPT HOST SHELL OBJECT
 
 
 
Set shell = WScript.CreateObject("WScript.shell")
 
'SET THE PATH TO THE WINDOWS DESKTOP FOLDER & MY DOCUMENTS FOLDER
 
desktopPath = shell.SpecialFolders("Desktop")
sys32Path = "%SystemRoot%\system32"
 
'CREATE A SHORTCUT ON THE USER'S DESKTOP
Set link = shell.CreateShortcut(desktopPath & "\shortcut to Calculator.lnk")
 
'SET THE PROPERTIES FOR THE SHORTCUT
link.Description = "My Shortcut"
link.TargetPath = sys32Path & "\calc.exe"
link.WindowStyle = 3
link.WorkingDirectory = desktopPath
link.Save
 
'CLEANUP OBJECTS
set shell = nothing
 
'LET THE USER KNOW IF THERE WAS AN ERROR AND WHAT IT WAS
'OTHERWISE CONFIRM SHORCUT CREATION
if err.number <> 0 then
	msgbox "There was an error creating your shortcut." & vbCrLf & err.description & vbCrLf & err.source, vbOKOnly-vbExclamation, "Shortcut Builder"
else
	msgBox "Your new shortcut has been created!" & vbCrLf & "Please check your Windows Desktop.", vbOKOnly-vbInformation, "Shortcut Builder"
end if

J'ai trouvé, merci de votre aide
il suffit de creer l'icon et d'associer avec "IconLocation" la bonne icon
:D:D:D:D:D:D:D:D