Comment utiliser FileSystemObject dans VBA?

Question

Y a-t-il quelque chose dont j'ai besoin de faire référence? Comment puis-je utiliser ceci:

Dim fso As New FileSystemObject 
Dim fld As Folder 
Dim ts As TextStream 

Je reçois une erreur, car il ne reconnaît pas ces objets.

Answer 1

Dans Excel, vous devez définir une référence au script VB bibliothèque d'exécution. Le fichier correspondant est généralement situé à \Windows\System32\scrrun.dll

• Pour référencer ce fichier, chargez le Visual Basic Editor (ALT + F11)
• Sélectionnez Outils> Références dans le menu déroulant
• Une liste des références disponibles s'affichera
• Cochez la case à côté de 'Microsoft Scripting Runtime'
• Le nom complet et le chemin du fichier scrrun.dll seront affichés sous la liste déroulante
• Cliquez sur le bouton OK.

Answer 2

Ces gars-là ont d'excellents exemples de la façon d'utiliser l'objet système de fichiers http://www.w3schools.com/asp/asp_ref_filesystem.asp

<% 
dim fs,fname 
set fs=Server.CreateObject("Scripting.FileSystemObject") 
set fname=fs.CreateTextFile("c:\test.txt",true) 
fname.WriteLine("Hello World!") 
fname.Close 
set fname=nothing 
set fs=nothing 
%> 

Answer 3

Dans Excel 2013 la chaîne de création d'objet est:

Dim fso 
Set fso = CreateObject("Scripting.FileSystemObject") 

au lieu du code dans la réponse ci-dessus:

Dim fs,fname 
Set fs=Server.CreateObject("Scripting.FileSystemObject") 

Answer 4

Après avoir ajouté la référence, je devais utiliser

Dim fso As New Scripting.FileSystemObject