Discussion :

[michelr06]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[michelr06]

Bonjour,

il te manque pas mal de chose dans ton code.

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SfJ5Rpw8]

Bonjour,

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

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ...

[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.

[michelr06]

Bonjour,

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

Je vais voir en decoupant la chaine

[SfJ5Rpw8]

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..

[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