Discussion :

[eltof]

bjr,

j'ai un fichier bat qui me permet de créer un raccourci sur le bureau d'un pc

malheureusement certain sont en Francais d'autre sont en Anglais . serait-il possible pour moi de ne pas créer deux versions pour qui que se soit utilise le fichier

nom du bureau diffère suivant la langue (Desktop ou Bureau)

voici mon code pour le VF

Code Batch :

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

1
2
3
4
5
6
7
8
9
echo    Dim objShell,DesktopPath,objShortCut,MyTab
echo    Set objShell = CreateObject("WScript.Shell"^)
echo    Set oWS = WScript.CreateObject("WScript.Shell") > CreateShortcut.vbs
echo sLinkFile = "%userprofile%\Bureau\raccourci.lnk" >> CreateShortcut.vbs
echo Set oLink = oWS.CreateShortcut(sLinkFile) >> CreateShortcut.vbs
echo oLink.TargetPath = "%userprofile%\Bureau\quiestce.accdb" >> CreateShortcut.vbs
echo oLink.Save >> CreateShortcut.vbs
cscript CreateShortcut.vbs
del CreateShortcut.vbs

bien à vous

[hackoofr]

Exemple de création d'un raccourci de bloc notes dans le bureau peu importe anglais ou français
Il suffit de mettre le chemin absolu de l'application exact et avec nom de raccourci optionnel

Code BAT :

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
@echo off
Title Shortcut Creator by Hackoo 2020
CHCP 65001>nul
Set "MyFile=%Windir%\Notepad.exe"
Set "ShorcutName=Bloc Notes"
Call :CreateShortcut "%MyFile%" "%ShorcutName%"
echo Le Raccourci du Bloc Notes a été crée avec succées !
pause & exit
REM -------------------------------------------------------------------------
:CreateShortcut <Chemin de l'Application> <Le nom du Raccourci>
(
echo Call Shortcut("%~1","%~2"^)
echo Sub Shortcut(CheminApplication,Nom^)
echo    Dim objShell,DesktopPath,objShortCut,MyTab
echo    Set objShell = CreateObject("WScript.Shell"^)
echo    MyTab = Split(CheminApplication,"\"^)
echo    If Nom = "" Then
echo    Nom = MyTab(UBound(MyTab^)^)
echo    End if
echo    DesktopPath = objShell.SpecialFolders("Desktop"^)
echo    Set objShortCut = objShell.CreateShortcut(DesktopPath ^& "\" ^& Nom ^& ".lnk"^)
echo    objShortCut.TargetPath = Dblquote(CheminApplication^)
echo    ObjShortCut.IconLocation = "Notepad.exe,0"
echo    objShortCut.Save
echo End Sub
echo Function DblQuote(Str^)
echo    DblQuote = Chr(34^) ^& Str ^& Chr(34^)
echo End Function
) > %temp%\Shortcutme.vbs
wscript "%temp%\Shortcutme.vbs"
Del %temp%\Shortcutme.vbs
REM -------------------------------------------------------------------------

[eltof]

nickel !!!

Par la même occasion , tout en utilisant ce même DesktopPath = objShell.SpecialFolders("Desktop"^) comment puis-je créer un dossier sur ce bureau car si j'utilise ce "desktoppath" avec MKDIR cela ne fonctionne pas.

merci

[ericlm128]

Peut importe la langue du système le dossier contenant le bureau se nomme toujours Desktop. Windows le traduit selon la langue cible

[eltof]

En fait j'ai écris ça . Ça créer bien un dossier mais pas sur le.bureau . Il le crée sur le.c:

Code Batch :

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

1
2
3
4
Echo dim objshell,desktoppath
Echo set objshell = createobject ("wscript.shell")
Echo desktoppath = objshell.specialfolders("Desktop")
Mkdir "%desktoppath%\raccourci appli"

Merci pour vos lumières

Si j'écris le chemin manuellement ca fonctionne mais j'aimerai utiliser le desktoppath merci

[ericlm128]

A votre guise
Ce dossier spécial peux servir si l'utilisateur à un chemin modifié.