Discussion :

[TicTac75]

Bonjour à tous,

Je cherche à créer un chemin de raccourci clavier un peu spéciale (avec des "<lignecomande>")

Voila mon code en VBS:

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
Set net = CreateObject("Wscript.Network")
Set WSHShell = CreateObject("WScript.Shell")
DesktopPath = WSHShell.SpecialFolders("Desktop")
Set Shortcut = WSHShell.CreateShortcut(DesktopPath & "\STC.lnk")
With Shortcut
 
    .TargetPath = WSHShell.ExpandEnvironmentStrings("C:\Program Files\Microsoft Office\Office10\MSACCESS.EXE")
    .Arguments = ("C:\Documents and Settings\" & net.username & "\STC.mdb" & " " & "/WRKGRP" & " " &  "C:\Documents and Settings\" & net.username & "\STC.mdw")
    .WorkingDirectory = WSHShell.ExpandEnvironmentStrings("C:\Documents and Settings\" & net.username & "\")
    .IconLocation = WSHShell.ExpandEnvironmentStrings("C:\Documents and Settings\" & net.username & "\STC.ico, 0")
    .Description = "Démarre la base de données STC"
    '.HotKey = "Aucun"
    .WindowStyle = 4
End With
Shortcut.Save

Au final sa me donne ceci :

"C:\Program Files\Microsoft Office\Office10\MSACCESS.EXE" C:\Documents and Settings\a185247\STC.mdb /WRKGRP C:\Documents and Settings\a185247\STC.mdw

Alors que je veux cela:

"C:\Program Files\Microsoft Office\Office10\MSACCESS.EXE" "C:\Documents and Settings\a185247\STC.mdb" /WRKGRP "C:\Documents and Settings\a185247\STC.mdw"

Quelqu'un peut m'aider ?

Merci d'avance

[SfJ5Rpw8]

essai de rajouter des doubles " ... aux endroits où tu veux rajouter un "..

Code :

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

1
2
 
.Arguments = ("""C:\Documents and Settings\" & net.username & "\STC.mdb" & " " & "/WRKGRP""" & " " &  """C:\Documents and Settings\" & net.username & "\STC.mdw""")

[TicTac75]

Bonjour bbil,

- > C'était tout simple en effet !!

Merci beaucoup

@ bientot