Discussion :

[crissc]

Bonjour,

Je créé un projet qui contient des Sub et des Function.
A chaque fois que j'ai besoin de faire appel à FileSystemObject je créé une nouvelle instance dans la sub ou function considérée.
Cela me paraît lourd comme procédé, aussi, j'ai cherché à créer/déclarer une seule instance de FileSystemObject en Public afin de pouvoir "appeler" les méthodes dans n'importe quel sub ou function sans avoir à créer l'instance. Mes tests sont restés vains, je n'y suis pas parvenu .
Dans mon projet j'ai déclaré 6 instances différentes de FileSystemObject et je n'ai pas encore fini. En voici un aperçu :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Function fileExtension(fichier)
Set fs2 = CreateObject("Scripting.FileSystemObject")
fileExtension = fs2.GetExtensionName(fichier)
End Function
Function fileBaseName(fichier)
Set fs3 = CreateObject("scripting.filesystemobject")
fileBaseName = fs3.GetBaseName(fichier)
End Function
Function copyFile(fichierSource, destination)
Set fs4 = CreateObject("Scripting.FileSystemObject")
copyFile = fs4.copyFile(fichierSource, destination)
End Function

Y-a-t-il un moyen de ne faire qu'une seule déclaration de l'instance FileSystemObject et pouvoir utiliser cette instance dans n'importe quel "module" du projet ? qui pourrait donner quelque chose du style:

Code :

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

1
2
3
4
5
6
7
8
9
10
Public fs as New FileSystemObject
Function fileExtension(fichier)
fileExtension = fs.GetExtensionName(fichier)
End Function
Function fileBaseName(fichier)
fileBaseName = fs.GetBaseName(fichier)
End Function
Function copyFile(fichierSource, destination)
copyFile = fs4.copyFile(fichierSource, destination)
End Function

J'ai évidemment essayé cette solution avec et sans le New, mais le message d'erreur suivant est retourné:


Merci pour votre aide.
- crissc -

[eric4459]

Bonjour,
Regardes un peu ce lien, ce n'est pas pour Excel mais cela pourra peut-être t'aider.
http://warin.developpez.com/access/fichiers/#LI
et ceci
http://vb.developpez.com/faq/vbs?pag...leSystemObject
Eric

[Oliv-]

Ta déclaration ne peut fonctionner que si tu as ajouté une référence (outils/références/ )à "MICROSOFT SCRIPTING RUNTIME"

du coup tu n'a plus besoin de recréer ce qui existe tu peux directement faire

Code :

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

1
2
3
Sub test()
MsgBox fs.GetExtensionName("toto.txt")
End Sub

en restant en late binding tu peux faire comme cela mais la macro MAIN devra avoir été lancée en premier

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
27
28
29
Public fs As Object
 
 
Sub main()
Set fs = CreateObject("Scripting.FileSystemObject")
 
'divers traitements
 
MsgBox fileExtension("toto.txt")
 
Call test
Set fso = Nothing
End Sub
 
 
 
 
Function fileExtension(fichier)
fileExtension = fs.GetExtensionName(fichier)
End Function
Function fileBaseName(fichier)
fileBaseName = fs.GetBaseName(fichier)
End Function
Function copyFile(fichierSource, destination)
copyFile = fs4.copyFile(fichierSource, destination)
End Function
Sub test()
MsgBox fs.GetExtensionName("toto.txt")
End Sub

[Marc-L]

Bonjour,

au passage l'utilisation de FileSystemObject est superfétatoire, tout pouvant être directement réalisé en pur VBA !

Voir donc dans l'aide VBA interne les fonctions texte InStrRev, Left et Right …


_________________________________________________________________________________________________________
Je suis Paris, Nice, Bruxelles, Charlie, …

[crissc]

Bonjour à tous et merci pour vos réponses.
Désolé de revenir si tardivement.

FSO reste un outil pratique et intéressant, mais j'ai suivi les "conseils" de Marc-L et ai épuré mon code de 90% des appels à MSO (il m'en reste 2 ou 3 ).

Cdlt
- Crissc -