Discussion :

[Christophe_21]

Bonjour à tous,
J'ai deux choses à faire : créer dans un répertoire dédié des raccourci qui pointent sur des dossier à un autre endroit.
Je m'en sort a peu près, largement inspiré par cet article

Remarque : j'en ai fait une fonction car j'ai la liste des dossiers dans une colonne et le nom que doit avoir le raccourci dans une autre.

Mon code est le suivant :

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
 
Function Mk_raccourci(Pointeur As String, NomRaccourci As String)
 
    Dim raccourci
 
    'Création de l'objet pour faire des raccourcis:
    Set scrHst = CreateObject("WScript.Shell")
 
    'Emplacement du raccourci:
    'emplacement = scrHst.SpecialFolders("P:\")
 
    'Nom apparent du raccourci
    Set raccourci = scrHst.CreateShortcut(NomRaccourci & ".lnk")
 
    'Dossier : Démarrer dans
    raccourci.WorkingDirectory = Pointeur & "\"
 
    'Indique vers quel fichier pointe le raccourci:
    raccourci.TargetPath = Pointeur & "\"
 
    raccourci.Save 'on sauvegarde le raccourci
 
 
    Set raccourci = Nothing
    Set scrHst = Nothing
 
End Function

ça fonctionne pas trop mal (les raccourcis se créés) à part que je n'ai pas trouvé moyen de les enregistrer dans le bon dossier. Avec le code ci-dessus, ils s'enregistrent à la racine de ce qu'il y a dans "Pointeur" alors que je les voudrais dans un dossier spécifique (sur un autre disque en l'occurence)

Que faudrait il rajouter ou modifier pour obliger l'enregistrement du raccourci au bon endroit ?
Je pourrait éventuellement ajouté un paramètre en entrée pour indiquer le lieux d'enregistrement, mais comment le passer en suite dans la fonction ?


L'autre sujet (créer un autre topic ?) c'est que j'ai déja une liste assez conséquent de raccourci, dont je voudrais effectuer la modification par lot. Donc je serais preneur d'une méthode pour "lire les raccourcis, mettre leurs informations en colonne, faire les modifications, enregistrer le nouveau raccourci"
Et comme je débute un peu, je rame. Donc toute aide bienvenue.

[mercatog]

Dans la variable NomRaccourci tu devrais avoir le chemin complet

[Christophe_21]

Dans la variable NomRaccourci tu devrais avoir le chemin complet

J'ai fait plusieur test et je n'y arrive pas.
Je veux distinguer 3 choses :

Le dossier sur lequel je veux que le raccourci pointe : Pointeur
Le nom même du raccourci : NomRaccourci (qui peux prendre n'importe quel valeur "dudule" "toto" etc. et qui au final est le fichier NomRaccourci.lnk)
L'endroit ou je veux que le fichier du raccourci ce trouve : Localisation (qui est un chemin de dossier)

Donc au final, je voudrais un fichier NomRaccourci.lnk dans le dossier Localisation

Du coup j'ai créé 3 Colonnes contenant les 3 variables : Pointeur, NomRaccourci, Localisation puis
J'ai testé cela :

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
Function Mk_raccourci(Pointeur As String, NomRaccourci As String, Localisation As String) As Boolean
 
    Dim raccourci
 
    'Création de l'objet pour faire des raccourcis:
    Set scrHst = CreateObject("WScript.Shell")
 
    'Emplacement du raccourci:
    Emplacement = Localisation & "\" & NomRaccourci
 
    'Nom apparent du raccourci
    Set raccourci = scrHst.CreateShortcut(Emplacement & ".lnk")
 
    'Dossier : Démarrer dans
    raccourci.WorkingDirectory = Pointeur & "\"
 
   'description du raccourci
   raccourci.Description = NomRaccourci
 
    'Indique vers quel fichier pointe le raccourci:
    raccourci.TargetPath = Pointeur & "\"
 
    raccourci.Save 'on sauvegarde le raccourci
 
 
    Set raccourci = Nothing
    Set scrHst = Nothing
 
End Function

Exemple :

Pointeur	NomRaccourci	Localisation
O:\027	027_BAERZE_(LAVOIRS_CHEMIN_JACQUES_DE)	P:\__Raccourci_vers_Ensembles__
O:\036	036_GUISE_(SQUARE_DU_BASTION_DE)	P:\__Raccourci_vers_Ensembles__
O:\043	043_BENEDICTINS_(DORTOIR_DES)	P:\__Raccourci_vers_Ensembles__

Qui au final me renvois une erreur #NOM!

[unparia]

Bonjour
Tu tournes en rond parce que tu n'as pas compris qu'il te faut créer un objet puis en (donc de l'objet créé, une fois créé) définir les propriétés !
Voilà du bâclé :

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
 On Error Resume Next
   Dim oWsh As Object, LE_RACCOURCI As Object
   Dim ou_placer_raccourci As String, chemin_raccourci As String, fic_source As String
   fic_source = "D:\essai0.txt"
   Set oWsh = CreateObject("WScript.Shell")
   'ou_placer_raccourci = oWsh.SpecialFolders("Desktop") ' si tu veux le raccourci sur le bureau
   ou_placer_raccourci = "D:\monoutil" ' si tu veux le raccourci dans un dossier particulier
   chemin_raccourci = ou_placer_raccourci & "\toto.lnk"
   Set LE_RACCOURCI = oWsh.CreateShortcut(chemin_raccourci)
   With LE_RACCOURCI
      .TargetPath = fic_source
      .Save
   End With
   MsgBox "le raccourci a bien été créé"
   Set LE_RACCOURCI = Nothing
   Set oWsh = Nothing

A toi de gérer les erreurs éventuelles (un chemin inexistant, un fichier inexistant, etc ...). Je te laisse ce petit travail, quand même, hein ...
PS : je n'utilise pourtant personnellement jamais WScript.