conversion chemin long

Bonjour,

Le sujet https://panoramic.1fr1.net/t569-conversion-chemin-long-chemin-court-83 étant verrouillé, je poste ici ma question.

Je tente de convertir en adresse courte, avec le programme présenté, cette adresse longue :

Code:: C:\Program Files (x86)\Planet Imagina\Imagina\AdvancedInstaller\Imagina.exe

J'obtiens cette erreur :

Code:: File access denied

J'ai remplacé les Z:\ par des C:\ mais ça n'a pas avancé. Que dois-je modifier dans le code et par quoi remplacer ?

Je vous remercie.

Je suis pas très sur, mais essai sans espace pour cette partie "Program Files (x86)\Planet Imagina" et peut-être, aussi, sans parenthèses.

A+

Tous mes essais (avec/sans espaces ; avec/sans parenthèses) sont vains.

Invité

Bonjour,
Je viens de voir que j'étais resté connecté, alors que mon soucis en ce moment, sont les tronçonneuses et tout le reste, et non pas Panoramic.
Regarde sur le site de Klaus. Il a fait un programme qui va bien, et que j'utilise régulièrement:
http://klaus.panoramic.voila.net/Panoramic2.65.html

Je te remercie pour le lien.
Mais je n'y trouve pas le programme tant espéré... Où Klaus le cache-t-il ?

Nombre de messages : 7112 Localisation : 77 Date d'inscription : 29/11/2007

Tu as ça:
https://panoramic.1fr1.net/t1318-outil-pour-determiner-le-nom-court-d-un-fichier?highlight=chemin+court
Et ça:
https://panoramic.1fr1.net/t569-conversion-chemin-long-chemin-court-83?highlight=chemin+court

Pardon, je vois que tu citais le 2ème lien dans ta demande, mais même si le sujet est verrouillé tu peux quand même récupérer le programme qu'il y a dedans.

Cosmos70 t'a donné un lien vers mon site où je propose un outil pour les noms courts. Dans l'encadré de droite, la dernière ligne concerne cet outil. Le "?" donne des explications sur le produit, et le ">" sert à le télécharger.

Invité

Je peux te donner le fichier zip direct.
Voir le Fichier : NomCourt46.zip
Seulement je viens d'essayer, et j'ai un problème. J'ai le message suivant:
Cette application n'a pas pu démarrer car VB40032.DLL est introuvable.

J'ai changé il y a quelque temps d'ordinateur, et récupérer mon EEEPC qui est en XP SP, et non SP3
Tu peux des fois essayer, si tu as cette dll d'installé, alors cela devrait fonctionner.

Je viens de te croiser Klaus, et poser un problème. Est-ce un problème de téléchargement, ou d'installation?
Merci
Je viens de faire une recherche sur C et D, et je n'ai pas cette DLL.
Bon je vais voir si je peux la trouver.

Je viens de l'installer, mais j'ai le message signifiant que c'est pas la bonne version.
Je ne sais pas ce qu'il faut cherché. j'arrète je perd mon temps.

Merci pour l'attention que vous portez à ma question.
J'ai trouvé le lien de téléchargement et testé le programme. Mais il me manque la dll VB40032.DLL aussi. Je n'ai pas réussi à faire fonctionner le programme.

Nombre de messages : 7112 Localisation : 77 Date d'inscription : 29/11/2007

La dll étant écrite en VB il faut avoir la DLL de fonctionnement (et sa bonne version) des programmes VB pour la faire tourner.

Alors si tu veux, essaye mon petit programme (lien ci-dessus), c'est l'exécution d'un fichier .bat intégré dans le programme Panoramic, pas besoin de ressources externes. Tiens, je le remets ici, c'est plus simple:

Code:: ' Récupération du chemin court d'un fichier (sans espaces) en fonction de son chemin long
dim fbat$, fm$, nlong$, ncourt$
label Nomcourt

fbat$ = "C:\Temp\Nomcourt.bat": ' *** à ajuster (temporaire)
fm$ = "C:\Temp\temp": ' *** à ajuster (temporaire)

TOP 0,100: LEFT 0,200: WIDTH 0, 480: HEIGHT 0, 140: BORDER_SMALL 0
FONT_BOLD 0: COLOR 0, 0,255,255: CAPTION 0, "- CONVERSION NOM LONG -> NOM COURT -"
ALPHA 1: TOP 1,10: CAPTION 1, "Entrer (ou coller) le nom long:"
EDIT 2: TOP 2, 28: WIDTH 2,460
ALPHA 3: TOP 3, 60: CAPTION 3, "Nom court (copié dans le clipboard):"
EDIT 4: TOP 4, 78: WIDTH 4,460
BUTTON 5: TOP 5,1: LEFT 5,200: CAPTION 5, "Convertir"
ON_CLICK 5, Nomcourt
end

Nomcourt:
' Récupération du chemin court d'un fichier (sans espaces) en fonction de son chemin long
nlong$ = TEXT$(2)
If File_Exists(nlong$) = 0
IF Dir_Exists(nlong$) = 0 Then Message "Path inexistant !": Return
End_If
File_Open_Write 1, fbat$
File_WriteLn 1, "@echo off"
File_WriteLn 1, "for %%A in ("+chr$(34)+nlong$+chr$(34)+") do echo.%%~sfA >" + fm$
File_Close 1
EXECUTE_WAIT fbat$
File_Open_Read 1, fm$: File_ReadLn 1, ncourt$: File_Close 1
File_Delete fm$: File_Delete fbat$
TEXT 4, ncourt$
CLIPBOARD_STRING_COPY ncourt$
RETURN

Inconvénient (léger): ça fait apparaître très brièvement une fenêtre noire d'exécution de la ligne de commande.

PS j'avais lu ton 1er post un peu en diagonale, il semble que tu aies un problème d'accès à ce fichier (accès interdit), bizarre si le batch ne marche pas.

Super... ton programme a bien marché et le chemin court est bien reconnu dans le petit programme que je suis en train de coder.
Merci beaucoup.

Une rapide recherche Google donne ce lien pour trouver cette DLL. A copier dans Windows\System32. C'est sans problème - c'est la librairie VB4 redistribuable et libre de droits.

La DLL ne veut pas s'installer sur mon système 64 bits... Quand le sort s'acharne....

Nombre de messages : 7112 Localisation : 77 Date d'inscription : 29/11/2007

Ce n'est pas le sort... la dll runtime pour vb4 n'existe pas pour les systèmes 64 bits, j'ai eu le même problème.

Invité

J'avais téléchargé la dll depuis deux sites différents, mais cela ne fonctionnait pas.
E, regardant avec cmd, et la recherche sur registre, j'ai eu le message suivant:
vb40032.dll a été chargé, mais le point d'entré DllRegisterServer est introuvable. Ce fichier ne peut pas être enregistré.

depuis j'ai essayé le lien de Klaus, et maintenant cela fonctionne.
Merci Klaus.

Invité

Pour le cas où tu n'arrives pas à lancer ce programme, je viens d'en faire un avec Auto It.
Il se peut qu'il t'envoie un message d'alerte. N'en tient pas compte.
Voir le Fichier : Nom_court.exe
D'ailleurs, voici le contenu:

Code:: Local $message = "Choisir le fichier."

Local $var = FileOpenDialog($message, @ProgramFilesDir & "\", "alles (*.*)", 1 + 4)
Local $sShortName = FileGetShortName($var)
MsgBox(0, "le chemin suivant est dans le presse-papier", $sShortName)
ClipPut($sShortName)

C'est juste pour te dépanner.
J'ai retiré la compression UPX, pour l'envoi. Il paraît que ça été inventé pour pouvoir compresser des virus!

Merci Cosmos70 pour ton exécutable. Ce langage AutoIt fait en bien peu de lignes ce qu'on lui demande de faire. Il fonctionne à merveille et (oh ! magie de l'informatique !) donne la même réponse que le code de JL35... Me voilà plus qu'équipé !

» Conversion chemin long/chemin court (8.3)
» Chemin de l'exécutable
» Ajouter un chemin à la variable d’environnement PATH
» obtenir le chemin du répertoire TEMP de windows
» Préciser le chemin du fichier chargé dans l'onglet.