bonjour et merci.
ca se rapproche de ce que je cherche. pour l'API, je l'ai téléchargée et je regarderai dès que j'aurais un peu de temps.
pour le script, il fonctionne et semble donner les mêmes choses sauf qu'on voit apparaitre un raccourci dans l'explorateur de fichier (normal on passe par Createshortcut) alors que ceux créés
par Windows n'ont pas cette mention ( * ) et lorsque j'essaye de récupèrer la liste de ces répertoires partagés, par une méthode :
Dim
Dim
NetDrives As
String()Directory.GetDirectories(dir)
NetDrives =
dir
As
String = System.IO.Directory.GetParent(System.Environment.GetFolderPath(Environment.SpecialFolder.Personal)).FullNamedir
&= "\AppData\Roaming\Microsoft\Windows\Network Shortcuts"
le répertoire pourtant bien présent est affiché comme un raccourci alors que les autres sont affichés comme "dossier de fichiers".
the_chi
( * ) que c'est dur de ne pas pouvoir mettre de fichier pour montrer !!
"Patrice Scribe" a écrit dans le message de groupe de discussion : 429c3761-1729-45e3-9de8-d21fa59bf007...
Au temps pour moi. Je pense que c'est juste le "sous le nom affiché RepPartagé" qui me donnait l'impression que l'on voulait créer qq chose dans ce dossier.
A ma connaissance la gestion des raccourcis n'est pas encore directement dispo en .NET. Voir éventuellement le API Code Pack qui je pense doit les fournir (http://code.msdn.microsoft.com/WindowsAPICodePack)
Sinon le plus simple malgré la dépendance sur WScript serait selon moi qq chose comme :
Dim Folder As String = System.Environment.GetFolderPath(Environment.SpecialFolder.NetworkShortcuts)
Dim shell As Object = CreateObject("WScript.Shell")
Dim shortcut As Object = shell.CreateShortcut(Folder & "\MyLink.lnk")
shortcut.TargetPath = "\\serveur\partage\dossier"
shortcut.Description = "Essai"
shortcut.Save()
A exécuter dans un fichier avec Option Strict Off
Please always mark whatever response solved your issue so that the thread is properly marked as "Answered".
