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

Traductions disponibles Traductions disponibles
Numéro d'article: 154822 - Voir les produits auxquels s'applique cet article
Cet article a été archivé. Il est proposé « en l'état » et ne sera plus mis à jour.
Agrandir tout | Réduire tout

Sommaire

Résumé

La fonction Dir() peut être utilisée pour renvoyer un nom de fichier long, mais elle n'inclut pas les informations relatives au chemin d'accès. En analysant un chemin d'accès de courte donné/NomFichier dans ses répertoires constitutifs, vous pouvez utiliser la fonction Dir() pour construire un chemin d'accès/nom de fichier long. Cet article explique comment effectuer ce comportement.

Plus d'informations

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

Exemple pas à pas

  1. Démarrez Visual Basic. Form1 est créé par défaut.
  2. Placez un bouton de commande sur Form1.
  3. Dans le menu Insertion, sélectionnez le module pour ajouter un module de code unique pour le projet.
  4. Ajoutez le code suivant à Module1 :
       Public Function GetLongFilename _
         (ByVal sShortName As String) _
         As String
    
         Dim sLongName As String
         Dim sTemp As String
         Dim iSlashPos As Integer
    
         'Add \ to short name to prevent Instr from failing
         sShortName = sShortName & "\"
    
         'Start from 4 to ignore the "[Drive Letter]:\" characters
         iSlashPos = InStr(4, sShortName, "\")
    
         'Pull out each string between \ character for conversion
         While iSlashPos
           sTemp = Dir(Left$(sShortName, iSlashPos - 1), _
             vbNormal + vbHidden +    vbSystem + vbDirectory)
           If sTemp = "" Then
             'Error 52 - Bad File Name or Number
             GetLongFilename = ""
             Exit Function
           End If
           sLongName = sLongName & "\" & sTemp
           iSlashPos = InStr(iSlashPos + 1, sShortName, "\")
         Wend
    
         'Prefix with the drive letter
         GetLongFilename = Left$(sShortName, 2) & sLongName
    
       End Function
    
    					
  5. Ajoutez le code suivant à l'événement Command1_Click :
       Private Sub Command1_Click()
    
         'Assumes C:\Program Files\Common Files is a valid path
         Print GetLongFilename("C:\PROGRA~1\COMMON~1")
    
       End Sub
    
    					
  6. Cliquez sur Démarrer dans le menu exécution ou appuyez sur la touche F5 pour démarrer.
  7. Cliquez sur le bouton de commande.
Si le chemin d'accès que vous avez fourni est valide, l'équivalent long sera imprimé sur le formulaire. Si elle n'est pas valide, rien ne s'imprime, auquel cas vous devrez peut-être fournir un nom de fichier court valide dans le code d'événement Command1_Click.

Propriétés

Numéro d'article: 154822 - Dernière mise à jour: samedi 1 mars 2014 - Version: 4.1
Les informations contenues dans cet article s'appliquent au(x) produit(s) suivant(s):
  • Microsoft Visual Basic 5.0 Édition initiation
  • Microsoft Visual Basic 6.0 Édition initiation
  • Microsoft Visual Basic 5.0 Édition professionnelle
  • Microsoft Visual Basic 6.0 Édition professionnelle
  • Microsoft Visual Basic 5.0 Édition Entreprise
  • Microsoft Visual Basic Enterprise Edition for Windows 6.0
  • Microsoft Visual Basic 4.0 Édition Standard
  • Microsoft Visual Basic 4.0 Édition professionnelle
  • Microsoft Visual Basic 4.0 32-Bit Enterprise Edition
Mots-clés : 
kbnosurvey kbarchive kbmt kbhowto KB154822 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: 154822
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