Plusieurs outputs pour une fonction

Version imprimable

26/04/2013, 11h17
Wini29

Plusieurs outputs pour une fonction

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.
26/04/2013, 11h38
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.

Tiens une solution avec un type personnalisé

Code:

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)