Je viens juste d'arriver avec ce VBS.
If WScript.arguments.count > 0 Then
Dim WshShell: Set WshShell = WScript.CreateObject("Wscript.Shell")
strPath = "file:///" & Wscript.Arguments(0)
strPath = Replace(strPath,"\","/")
strPath = Replace(strPath," ","%20")
sCmd = "%comspec% /c<nul (set/p anyvariable=" & Chr(34) & strPath & Chr(34) & ")|clip.exe"
WshShell.Run sCmd,0,0
Set WshShell = Nothing
End If
Enregistrez-le en tant que fichier .VBS. Glissez et déposez un fichier sur le VBScript et il copie l'URI du fichier dans le presse-papiers. Vous pouvez l'implémenter dans le menu du clic droit si nécessaire.
Il copie le nom du fichier en mémoire, inverse les barres obliques, remplace les espaces par "%20" et ajoute "file:///" au début. C'est un script de base qui ne supporte qu'un seul nom de fichier / argument. Vous pouvez le modifier selon vos besoins.
Ajoutez le script à votre dossier "Envoyer à".
Vous pouvez placer un raccourci du script dans votre dossier "Envoyer à". Appuyez sur WinKey + R , type shell:sendto
et appuyez sur ENTER . Créez un raccourci vers le script dans le dossier Send To et nommez-le en conséquence. (ex. Copy File URI
)
Maintenant, cliquez avec le bouton droit de la souris sur un fichier, cliquez sur Envoyer vers et cliquez sur Copy File URI
. Le chemin du fichier sera copié dans le presse-papiers, au format URI comme ci-dessous.
file:///C:/Users/jack/desktop/list-of-items.txt