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

Retour au début

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.

Retour au début