Extraire un nom de fichier dans Access

Question

Salut à tous,

Je cherche à extraire le nom d'un fichier de taille variable, mais d'extension .doc, à la suite d'une fonction FileDialog dans Access. En clair FileDialog me permet de récupérer quelquechose du type c:\mes Documentsapports	oto.doc, et je ne veux garder que toto.doc (qui peut aussi être titititititi.doc) pour le réutiliser par ailleurs.

Merci d'avance pour vos conseils.

Ciao

François

pcpunch · Answer

je code pas le Vba mais le Vb, mais ça doit etre similaire!!

Si ton fileDialog et un composant boite message (sous vb common dialog), tu peu recuperer le chemin complet :
Commondialog1.filename (ex:c\blabla\fichier.ext)

SInon il y a aussi la propriété filetitle :
Commondialog1.filetitle (ex: fichier.ext)

Sinon voici une fonction faite en vb qui doit certainement tourner sous vba ???


Public Function GetFileTitle(Path As String, Optional Extension As Boolean = True)
    
    For i% = Len(Path) To 1 Step -1        If Mid$(Path, i%, 1) "" Or Mid$(Path, i%, 1) "/" Then Exit For
    Next i
    
    Select Case Extension
        Case True
        GetFileTitle = Mid(Path, i + 1, Len(Path) - i + 1)
        
        Case False
        GetFileTitle = Mid(Path, i + 1, Len(Path) - i - 4)
        End Select
    
End Function


Pour l'utiliser ex:
MsgBox GetFileTitle("c:\dossier\fichier.ext", True)

L'arguement extension (True ou False) permet d'afficher le fichier avec son extention ou sans

++

pcpunch · Answer

Rectification j'ai oublié les % dans le select case :


Public Function GetFileTitle(Path As String, Optional Extension As Boolean = True)
    
    For i% = Len(Path) To 1 Step -1        If Mid$(Path, i%, 1) "" Or Mid$(Path, i%, 1) "/" Then Exit For
    Next i
    
    Select Case Extension
        Case True
        GetFileTitle = Mid(Path, i% + 1, Len(Path) - i% + 1)
        
        Case False
        GetFileTitle = Mid(Path, i% + 1, Len(Path) - i% - 4)
        End Select
    
End Function

gaa179 · Answer

Salut,

Tu dois utiliser la propriété FileTitle qui te retourne seulement le nom et non la propriété FileName qui te retourne le chemin + le nom du fichier sélectionné.

A+

pcpunch · Answer

Gaa179 : Oui c'est ce que je lui ai dit :
 :) 
"Si ton fileDialog et un composant boite message (sous vb common dialog), tu peu recuperer le chemin complet :
Commondialog1.filename (ex:c\blabla\fichier.ext)

SInon il y a aussi la propriété filetitle :
Commondialog1.filetitle (ex: fichier.ext)"

gaa179 · Answer

Désolé de la répétition, 

mais je pense que nous avons répondu à plusieurs en même temps.

Extraire un nom de fichier dans Access

5 réponses

Discussions similaires