How do I use FileSystemObject in VBA

Question

Is there something that I need to reference  How do I use this   Dim fso As New FileSystemObject Dim fld As Folder Dim ts As TextStream   I am getting an error because it does not recognize these objects

User · Accepted Answer

Within Excel you need to set a reference to the VB script run-time library. The relevant file is usually located at \Windows\System32\scrrun.dll

To reference this file, load the Visual Basic Editor (ALT+F11)
Select Tools > References from the drop-down menu
A listbox of available references will be displayed
Tick the check-box next to 'Microsoft Scripting Runtime'
The full name and path of the scrrun.dll file will be displayed below the listbox
Click on the OK button.

This can also be done directly in the code if access to the VBA object model has been enabled.

Access can be enabled by ticking the check-box Trust access to the VBA project object model found at File > Options > Trust Center > Trust Center Settings > Macro Settings

To add a reference:

Sub Add_Reference()

    Application.VBE.ActiveVBProject.References.AddFromFile "C:\Windows\System32\scrrun.dll"
'Add a reference

End Sub

To remove a reference:

Sub Remove_Reference()

Dim oReference As Object

    Set oReference = Application.VBE.ActiveVBProject.References.Item("Scripting")

    Application.VBE.ActiveVBProject.References.Remove oReference
'Remove a reference

End Sub

User · Answer

After importing the scripting runtime as described above you have to make some slighty modification to get it working in Excel 2010  my version   Into the following code I ve also add the code used to the user to pick a file   Dim intChoice As Integer Dim strPath As String    Select one file Application FileDialog msoFileDialogOpen  AllowMultiSelect   False    Show the selection window intChoice   Application FileDialog msoFileDialogOpen  Show    Get back the user option If intChoice  lt  gt  0 Then     strPath   Application FileDialog msoFileDialogOpen  SelectedItems 1  Else     Exit Sub End If  Dim FSO As New Scripting FileSystemObject Dim fsoStream As Scripting TextStream Dim strLine As String  Set fsoStream   FSO OpenTextFile strPath   Do Until fsoStream AtEndOfStream   True     strLine   fsoStream ReadLine           do your work     Loop  fsoStream Close Set FSO   Nothing   Hope it help   Best regards  Fabio

User · Answer

These guys have excellent examples of how to use the filesystem object http   www w3schools com asp asp ref filesystem asp   lt   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   gt

User · Answer

After adding the reference  I had to use  Dim fso As New Scripting FileSystemObject

User · Answer

In excel 2013 the object creation string is   Dim fso Set fso   CreateObject  Scripting FileSystemObject     instead of the code in the answer above   Dim fs fname Set fs Server CreateObject  Scripting FileSystemObject

[excel] How do I use FileSystemObject in VBA?

Examples related to excel

Examples related to vba

Examples related to filesystemobject