[VBS] Obtenir le nom long du fichier par clic droit

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [VBS] Obtenir le nom long du fichier par clic droit

TheBeginner

Bonjour,

Je souhaiterai utiliser le nom long d'un fichier en cliquant avec le bouton droit dessus.
Or ce que j'obtiens en paramètre est le nom court.
Par exemple au lieu d'obtenir "c:\temp\pamplemousse.txt", j'obtiens "c:\temp\pample-1.txt" (remplacez - par un tilde)

Merci pour vos réponses.

Publicité

prog1001

Salut !!!

Coles ce code dans la zone déclaration d'une forme, mets un commondialog, executes et fait un clique droit sur la forme et tu obtiendras le nom court du fichier selectionné. Si tu voulais que ce soit sur le clique droit d'une FileListBox c'est pareil! (File1_MouseUp (...))

Code :

Private Declare Function GetShortPathName Lib "KERNEL32.DLL" Alias "GetShortPathNameA" _
(ByVal lpctstrLongName As String, _
ByVal lptstrShortName As String, _
ByVal bufLen As Long) As Long
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Select Case Button
Case 2
On Error GoTo Fin
CommonDialog1.CancelError = True
CommonDialog1.ShowOpen
MsgBox Get_Short_Name(CommonDialog1.FileName)
Fin:
End Select
End Sub
Function Get_Short_Name(LongStr As String) As String
Dim ShortStr As String
Dim lStrLen As Long, lRet As Long
lRet = GetShortPathName(LongStr, ShortStr, lStrLen)
ShortStr = String(lRet, " " )
lRet = GetShortPathName(LongStr, ShortStr, lRet)
Get_Short_Name = ShortStr
End Function

:bounce:

TheBeginner

Salut prog1001,
Merci pour ta réponse mais :
- je veux juste écrire un prog en VB Script (que je lance à partir du menu contextuel de Windows)
- c'est le nom long dont j'ai besoin car par défaut c'est le nom court que ça me retourne

pumpkin0312

Code :

'-----------------------------------------------------------------------------------
'-- Prés-requis : Référencement de la bibliotheque "Microsoft Sripting Runtime"
'-----------------------------------------------------------------------------------
Function NmComplet (Fichier as String) as String
Dim fso As New FileSystemObject
Dim ts As TextStream
Set ts = fso.OpenTextFile(Fichier)
NmComplet = fso.GetAbsolutePathName(Fichier)
ts.Close
End Function

prog1001

TheBeginner a écrit :

- je veux juste écrire un prog en VB Script (que je lance à partir du menu contextuel de Windows)
- c'est le nom long dont j'ai besoin car par défaut c'est le nom court que ça me retourne

Ben c'est l'inverse :

Code :

Private Declare Function GetLongPathName Lib "KERNEL32.DLL" Alias "GetLongPathNameA" _
(ByVal lptstrShortName As String, _
ByVal lpctstrLongName As String, _
ByVal bufLen As Long) As Long
Function Get_Long_Name(CourtStr As String) As String
Dim LongStr As String
Dim lStrLen As Long, lRet As Long
lRet = GetLongPathName(CourtStr, LongStr, lStrLen)
LongStr = String(lRet, " " )
lRet = GetLongPathName(CourtStr, LongStr, lRet)
Get_Long_Name = LongStr
End Function

Le fso c'est bien aussi !
:bounce:

Message édité par prog1001 le 17-08-2004 à 15:40:15

TheBeginner

Merci pour vos réponses mais je suis vraiment newbie de chez newbie et ça ne marche pas.

Je vous poste mon script, cela sera sûrement plus facile.

Citation :

Dim shell, args, fso, f
Set args = Wscript.Arguments
Set shell = WScript.CreateObject("WScript.Shell" )
Set fso = WScript.CreateObject("Scripting.FileSystemObject" )

If args.count=0 Then
' Auto-installation
Script=Wscript.ScriptFullName
Key="HKEY_CLASSES_ROOT\*\shell\test_vbs\"
shell.RegWrite Key,"Test VBS"
Command="cscript """ & Script & """ ""%1"""
shell.RegWrite Key & "command\",Command
MsgBox "Script "& Script &" installé", vbInformation, "Test VBS"
wscript.quit
End If

path=args(0)

set f=Get_Long_Name(path)
MsgBox f

Private Declare Function GetLongPathName Lib "KERNEL32.DLL" Alias "GetLongPathNameA" _
(ByVal lptstrShortName As String, _
ByVal lpctstrLongName As String, _
ByVal bufLen As Long) As Long

Function Get_Long_Name(CourtStr As String) As String
Dim LongStr As String
Dim lStrLen As Long, lRet As Long

lRet = GetLongPathName(CourtStr, LongStr, lStrLen)
LongStr = String(lRet, " " )
lRet = GetLongPathName(CourtStr, LongStr, lRet)
Get_Long_Name = LongStr
End Function

prog1001

Comme ça, ça devrai marcher :

Code :

Private Declare Function GetLongPathName Lib "KERNEL32.DLL" Alias "GetLongPathNameA" _
(ByVal lptstrShortName As String, _
ByVal lpctstrLongName As String, _
ByVal bufLen As Long) As Long
Private Sub Form_Load()
Dim shell, args, fso, f
Dim path As String
Set args = wscript.Arguments
Set shell = wscript.CreateObject("WScript.Shell" )
Set fso = wscript.CreateObject("Scripting.FileSystemObject" )
If args.Count = 0 Then
' Auto-installation
Script = wscript.ScriptFullName
Key = "HKEY_CLASSES_ROOT\*\shell\test_vbs\"
shell.RegWrite Key, "Test VBS"
Command = "cscript """ & Script & """ ""%1"""
shell.RegWrite Key & "command\", Command
MsgBox "Script " & Script & " installé", vbInformation, "Test VBS"
wscript.quit
End If
path = args(0)
f = Get_Long_Name(path)
MsgBox f
End Sub
Function Get_Long_Name(CourtStr As String) As String
Dim LongStr As String
Dim lStrLen As Long, lRet As Long
lRet = GetLongPathName(CourtStr, LongStr, lStrLen)
LongStr = String(lRet, " " )
lRet = GetLongPathName(CourtStr, LongStr, lRet)
Get_Long_Name = LongStr
End Function

J'ai pas pus testé, j'ai pas référencer WScript, d'ailleur c'est quoi sa référence ?

Message édité par prog1001 le 20-08-2004 à 15:22:28

TheBeginner

Merci prog1001 pour ton aide mais ça ne marche toujours pas.

En fait le problème, je pense c'est que je fais simplement un script Visual Basic. Je n'utilise pas Visual Basic !
Les fichiers vbs sont interprétés par wscript ou cscript.

J'obtiens une erreur dès la première ligne (Fin d'instruction attendue).

Message édité par TheBeginner le 20-08-2004 à 18:15:34

prog1001

ben désolé, j'ai plus d'idées ! :sweat:

TheBeginner

OK
Merci quand même

Publicité

leneuf22

prog1001 > Il pose une question en VBS, et toi tu lui réponds à grands coups de VB, alors évidemment ça ne peut pas marcher...
Il faut regarder du côté de Scripting.FileSystemObject, la propriété Path de ton fichier.

La solution de pumpkin0312 est bonne, il faut juste virer les types qui ne sont pas gérés.

Message édité par leneuf22 le 26-08-2004 à 00:57:10

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[VBS] Obtenir le nom long du fichier par clic droit

Sujets relatifs
Commande DOS : uploader un fichier	C++ ou C# pour une application de gestionde fichier
Parcours d'un fichier Excel	Comment obtenir que les 10 premières lignes du résultat d'une requête
[batch]Réccupérer la date de création/modification d'un fichier,	Mettre le contenu d'un fichier dans une variable
apprendre les principale commandes pour ecrire un vbs	Enregistrement d'un fichier Excel+processus non tué
mettre le résultat d'une requete SQL dans un fichier Excel?	Macro dans Excel permettant de voir si un fichier est ouvert
Plus de sujets relatifs à : [VBS] Obtenir le nom long du fichier par clic droit

Page générée en 0.059 secondes