Créer un raccourci pour le dossier en cours sur le bureau de l'utilisateur

Je voudrais créer automatiquement un raccourci vers le courant du dossier sur le bureau de l'utilisateur. Certains utilisateurs, je travaille avec ne savez pas comment créer des raccourcis ou comment faire glisser et de déposer un dossier. Je veux juste créer un fichier nommé "CLIQUEZ-MOI POUR CRÉER UN RACCOURCI vers CE DOSSIER SUR VOTRE BUREAU" qui va travailler dans n'importe quel dossier que je veux.

Par exemple, si je lance C:\myRandomFolder\CLICK MOI.que ce soit, je veux créer un raccourci "C:\myRandomFolder\" nommé "myRandomFolder" sur "D:\Documents and Settings\%username%\Desktop".

Je me demande si je suis mieux à l'aide d'un fichier batch (.chauve-souris), VB Script (.vbs) ou tout autre langage de script pour le faire. Quelle serait la méthode la plus simple et la meilleure façon de le faire?

InformationsquelleAutor dnLL | 2012-10-03
  1. 3

    Le meilleur moyen semble finalement être un Script VBS. Voici ce que j'ai finalement obtenu le droit de travailler:

    Option Explicit
On Error Resume Next

Private WshShell
Private strDesktop
Private oShellLink
Private aSplit

set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
aSplit = Split(WScript.ScriptFullName, "\")

set oShellLink = WshShell.CreateShortcut(strDesktop & "\" & aSplit(Ubound(aSplit) - 1) & ".lnk")
oShellLink.TargetPath = Replace(WScript.ScriptFullName, WScript.ScriptName, "")
oShellLink.WindowStyle = 1
oShellLink.Description = "Shortcut Script"
oShellLink.WorkingDirectory = Replace(WScript.ScriptFullName, WScript.ScriptName, "")
oShellLink.Save 

MsgBox "Shortcut to " & Replace(WScript.ScriptFullName, WScript.ScriptName, "") & " added yo your desktop!"
    InformationsquelleAutor dnLL
  2. 2

    Vous pouvez consulter ces liens - Un, Deux et Trois

    Si tout le reste échoue de mieux pour commencer l'envoi de ce lien aux utilisateurs de ne pas les offenser, mais de les rendre plus conscients.

    InformationsquelleAutor 000
  3. 1

    Grand code! Par curiosité, puisque cela fonctionne pour le répertoire que le script est actuellement en cours, avez-vous une façon de montrer dans chaque répertoire? Sinon, il ne semble pas comme il y a beaucoup de différence entre l'apprentissage de cette et d'apprentissage pour faire un raccourci, le natif de sens. Vous auriez encore à faire glisser et déposer le script dans le dossier en cours, n'est-ce pas?

    Tout en trébuchant vers une solution, je me suis rendu en permettant aux utilisateurs de naviguer et de sélectionner un fichier particulier dont ils ont besoin pour établir un lien. Je ne sais pas si vous avez des utiliser pour cela. 

    Dim diaSelectFile
    Set diaSelectFile = Application.FileDialog(msoFileDialogFilePicker)

diaSelectFile.Show

strPickedFile = diaSelectFile.SelectedItems(1)

Set diaSelectFile = Nothing

Dim oWsh
Dim myshortcut
Dim oShortcut
Dim strSplitFileName
Dim strTarget
Dim nShortName

Set oWsh = CreateObject("WScript.Shell")

strSplitFileName = Split(strPickedFile, "\")
nShortName = UBound(strSplitFileName)
strTarget = strSplitFileName(nShortName)

myshortcut = "C:\users\%USERNAME%\Desktop\" & strTarget & " - Shortcut" & ".lnk"

Set oShortcut = oWsh.CreateShortcut(myshortcut)

With oShortcut
    .TargetPath = strPickedFile
    .Save
End With

Set oWsh = Nothing
Set oShortcut = Nothing

    Encore une fois, cependant, c'est plus complexe que droit de la souris et de l'envoi d'un raccourci sur le bureau. Qui sont les utilisateurs qui ont besoin de cela? Je sais que j'ai eu austistic amis qui sont aux prises avec ce que l'on pourrait envisager des tâches de base sur l'ordinateur. Je serais certainement être intéressé de savoir si le script que vous est venu avec aide réellement à votre clientèle.

    • Merci pour l'entrée. À mon bureau, la plupart des gens sont à taper avec 2 doigts (si vous voyez ce que je veux dire). Le secrétaire est toutefois un peu mieux, suffit de copier/coller le SCRIPT dans le bon dossier. Elle a juste à envoyer un lien direct vers le VBS par courriel à tous les employés avec des instructions et le raccourci sera automatiquement ajouté à leur bureau.
    • Comme pour montrer jusqu'à l'VBS dans tous les sous-répertoires, il serait facile de copier le scriptin chaque sous-répertoires et nom il _shortcut.vbs. Il pourrait y avoir un _shortcutGen.vbs sur la racine qui génère le courant _shortcut.vbs et les doublons dans tous les sous-dossiers.
    InformationsquelleAutor tmoore82