importing multiple csv files into single workbook

My fault, it should be:

Sub LoopFiles()
    Dim strDir As String, strFileName As String
    Dim wbSourceBook As Workbook
    Dim wbWriteBook As Workbook
    Dim wsWriteSheet As Worksheet

    strDir = "C:\"      'specify folder to search
    strFileName = Dir(strDir & "*.csv")

    Set wbWriteBook = Workbooks.Add

    Do While strFileName <> ""
        Set wbSourceBook = Workbooks.Open(strDir & strFileName)
        Set wsWriteSheet = wbWriteBook.Sheets.Add
        wsWriteSheet.Name = strFileName
        wbSourceBook.Sheets(1).UsedRange.Copy wsWriteSheet.Range("A1")
        wbSourceBook.Close False
        strFileName = Dir
    Loop

End Sub

Dom

I changed this line strFileName = Dir(strDir & "*.csv")

to a .txt extension to import a folder full of txt files. It's only creating a new workbook but it comes out empty. Any help on why this doesn't work?

---------------------------------------------------------------------------------
DISREGARD. I got it to work; it was blocking the macro due to computer settings. thanks