Dim obFS as scripting.filesystemobject
dim myfold as scripting.folder
dim myfile As scripting.file
Dim x As String
dim fileCount as integer
fileCount=0
Set obFS=new scripting.filesystemobject
x="Enter the path to the directory here"
Set myfold=fsob.getfolder(x)
For Each myfile In myfold.files
'test to see if it is a .csv file
if lcase(right(myfile.name,3))="csv" then
'add it to your list of files which I'll assume should be on a sheet named FileList
fileCount=fileCount+1
sheets("FileList").range("a1").offset(fileCount,0)=myfile.name
end if
Next

for looper=2 to sheets("FileList").range("a1").end(xldown).row
filename=sheets("FileList").range("a1").offset(looper-1,0).value
'......

'now do steps 2 to 4

'......

'loop round
next looper

Workbooks.OpenText "C:\test.csv"

Workbooks.Open Filename:="C:\test.csv", Format:=2

Workbooks.Open Filename:="C:\test.csv", Format:=2

Sub OpenSelected()
    Const TheDirectory = "C:\The full path\would go\here\"
    Dim FileName As String
    Dim FullPathName As String
    
    FileName = ActiveCell.Value
    FullPathName = TheDirectory & FileName
    
    Workbooks.Open FileName:=FullPathName, Format:=2
    
End Sub

Option Explicit

Sub Main()
    Dim oFilesCollection As Collection
    Dim strFileName As Variant      ' Must be Variant for For Each..Next.
    Dim strDirPath As String
    
    Dim wbCSV As Workbook
    
    strDirPath = "C:\My Documents\Test Directory\"
    Set oFilesCollection = ListFiles(strDirPath)
    
    For Each strFileName In oFilesCollection
        Set wbCSV = Application.Workbooks.Open(Filename:=strDirPath & strFileName, _
                                                                   Format:=2)
        Call wbCSV.Sheets(1).Cells.Copy
        Call ThisWorkbook.Worksheets(1).Cells(1, 1).PasteSpecial(xlPasteAll)
        Call ThisWorkbook.Worksheets(1).PrintOut
        Call ThisWorkbook.Worksheets(1).Cells.ClearContents
    Next strFileName
End Sub

Function ListFiles(strDirectoryPath As String) As Collection
    ' Credit for this Function owed to Mark007, 
    ' I used his code, above, and modified it here:

    Dim oFileSystem As Scripting.FileSystemObject
    Dim oFolder As Scripting.Folder
    Dim oFile As Scripting.file
    
    Dim ResultCollection As New Collection
    

    Set oFileSystem = New Scripting.FileSystemObject
    Set oFolder = oFileSystem.GetFolder(strDirectoryPath)
    
    For Each oFile In oFolder.Files
        If LCase(Right(oFile.Name, 4)) = ".csv" Then
            Call ResultCollection.Add(oFile.Name)
        End If
    Next oFile
    
    Set ListFiles = ResultCollection
End Function

Sub Text()
Dim fs As Object, oFile As Object
Dim strText$
Dim aryData

    Set fs = CreateObject("Scripting.FileSystemObject")
    Set oFile = fs.OpenTextFile("c:\book1.csv", 1)
    
    strText$ = oFile.ReadAll
    aryData = Split(strText$, Chr(13))
    oFile.Close
    
    'Workbooks("Output").Sheets1.Range("X:Y").Value = aryData
    
    Set oFile = Nothing
    Set fs = Nothing
    
End Sub