Discussion :

[Wini29]

Bonjour,

J'aimerai savoir s'il est possible, avec une unique procédure, de récupérer plusieurs outputs.

Par exemple concret, dans le cas de la découpe d'un chemin de type:
"C:\Dossier\SousDossier1\SousDossier2\NomFichier.Ext"

qu'on puisse obtenir plusieurs infos de la procédure de découpe
(Source = C; NbDoss=3; NomFichier; extension ... ) sans devoir passer par autant de procédures redondantes que la recherche de "\" ou de "."

Merci de vos réponses.

[issoram]

Bonjour,

Avec une fonction qui renvoie soit un tableau soit une collection soit un dictionnaire soit une structure soit un objet perso. il y 'a le choix tout dépend de l'utilisation que tu veux en faire ensuite.

Pour récupérer les infos que tu souhaites passe par un objet FileSystemObject (http://warin.developpez.com/access/fichiers/)

Cordialement.

[SfJ5Rpw8]

Tiens une solution avec un type personnalisé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Option Explicit
    Type InfoFic
        Srce As String
        NbDos As Integer
        NomFic As String
        Ext As String
 
    End Type
 
Sub MonTes()
    Dim MaVar As InfoFic
 
    MaVar = InfoFichier("C:\TOTO\")
 
    Debug.Print MaVar.Srce
    Debug.Print MaVar.NomFic
    Debug.Print MaVar.NbDos
    Debug.Print MaVar.Ext
    Stop ' Voir fenêtre exécution CTRL+G
End Sub
Function InfoFichier(stFic As String) As InfoFic
    InfoFichier.NomFic = "NomFichier"
    InfoFichier.Ext = "Ext"
    InfoFichier.NbDos = 3
    InfoFichier.Srce = Left(stFic, 1)
End Function

Ajoute ce code dans un module standard et exécute la procédure MonTes (F8)