Comment faire pour obtenir un nom de fichier court à partir d'un nom de fichier long

Traductions disponibles Traductions disponibles
Numéro d'article: 175512 - Voir les produits auxquels s'applique cet article
Agrandir tout | Réduire tout

Sommaire

Résumé

Dans certaines circonstances, il peut être nécessaire obtenir le nom de fichier court équivalent d'un fichier qui a un nom de fichier long. L'exemple ci-dessous permettent de sélectionner un fichier qui possède un nom de fichier long et renvoyer que c'est le nom de fichier court à l'aide de l'appel de fonction d'API GetShortPathName.

Plus d'informations

L'exemple de code suivant comprend une fonction qui convertit les noms de fichiers longs en leurs équivalents de nom de fichier court et inclut également une démonstration simple d'utilisation de la fonction.

Exemple pas à pas

  1. Créer un nouveau projet standard EXE dans Visual Basic. Form1 est créé par défaut.
  2. Placez un bouton de commande sur Form1.
  3. Placez un contrôle Common Dialog sur le formulaire.
  4. Dans le menu Insertion, sélectionnez le module pour ajouter un module de code unique au projet.
  5. Ajoutez le code suivant à Module1 :
       Declare Function GetShortPathName Lib "kernel32" _
          Alias "GetShortPathNameA" (ByVal lpszLongPath As String, _
          ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long
    
       Public Function GetShortName(ByVal sLongFileName As String) As String
           Dim lRetVal As Long, sShortPathName As String, iLen As Integer
           'Set up buffer area for API function call return
           sShortPathName = Space(255)
           iLen = Len(sShortPathName)
    
           'Call the function
           lRetVal = GetShortPathName(sLongFileName, sShortPathName, iLen)
           'Strip away unwanted characters.
           GetShortName = Left(sShortPathName, lRetVal)
       End Function
    					
  6. Ajoutez le code suivant à Form1 :
       Private Sub Command1_Click()
         Dim msg As String
         CommonDialog1.FileName = "*.*"
         CommonDialog1.ShowOpen
         msg = "Long File Name: " & CommonDialog1.filename & vbCrLf
         msg = msg & "Short File Name: " & GetShortName(CommonDialog1.filename)
         MsgBox msg
       End Sub
    					
  7. Exécutez le projet en appuyant sur la touche F5. Cliquez sur le bouton de commande pour afficher la boîte de dialogue Ouvrir. Naviguer dans la boîte de dialogue Ouvrir et recherchez un fichier a un nom de fichier long. Sélectionnez le fichier et cliquez sur OK.
  8. Le message affiche le nom de fichier long avec son nom de fichier court.

Références

Pour plus d'informations, consultez l'article suivant dans la base de connaissances Microsoft :
154822Comment faire pour obtenir un nom de fichier long à partir d'un nom de fichier court

Propriétés

Numéro d'article: 175512 - Dernière mise à jour: vendredi 11 mars 2005 - Version: 3.2
Les informations contenues dans cet article s'appliquent au(x) produit(s) suivant(s):
  • Microsoft Visual Basic Control Creation Edition
  • Microsoft Visual Basic 5.0 Édition initiation
  • Microsoft Visual Basic 5.0 Édition professionnelle
  • Microsoft Visual Basic 5.0 Édition Entreprise
  • Microsoft Visual Basic 4.0 Édition Standard
  • Microsoft Visual Basic 4.0 Édition professionnelle
  • Microsoft Visual Basic 4.0 32-Bit Enterprise Edition
  • Microsoft Visual Basic 6.0 Édition initiation
  • Microsoft Visual Basic 6.0 Édition professionnelle
  • Microsoft Visual Basic Enterprise Edition for Windows 6.0
Mots-clés : 
kbmt kbdocfix kbhowto KB175512 KbMtfr
Traduction automatique
IMPORTANT : Cet article est issu du système de traduction automatique mis au point par Microsoft (http://support.microsoft.com/gp/mtdetails). Un certain nombre d?articles obtenus par traduction automatique sont en effet mis à votre disposition en complément des articles traduits en langue française par des traducteurs professionnels. Cela vous permet d?avoir accès, dans votre propre langue, à l?ensemble des articles de la base de connaissances rédigés originellement en langue anglaise. Les articles traduits automatiquement ne sont pas toujours parfaits et peuvent comporter des erreurs de vocabulaire, de syntaxe ou de grammaire (probablement semblables aux erreurs que ferait une personne étrangère s?exprimant dans votre langue !). Néanmoins, mis à part ces imperfections, ces articles devraient suffire à vous orienter et à vous aider à résoudre votre problème. Microsoft s?efforce aussi continuellement de faire évoluer son système de traduction automatique.
La version anglaise de cet article est la suivante: 175512
L'INFORMATION CONTENUE DANS CE DOCUMENT EST FOURNIE PAR MICROSOFT SANS GARANTIE D'AUCUNE SORTE, EXPLICITE OU IMPLICITE. L'UTILISATEUR ASSUME LE RISQUE DE L'UTILISATION DU CONTENU DE CE DOCUMENT. CE DOCUMENT NE PEUT ETRE REVENDU OU CEDE EN ECHANGE D'UN QUELCONQUE PROFIT.

Envoyer des commentaires

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com