Looping through files in folder

[Simmy]

Can anyone help, I need to write code that will loop through all the files in a folder and import them into an Excel sheet.

The problem is I cannot write the code to loop through all the files in the folder.

Any help is appreciated.

 

[sfvb]

Sub ListFilesInC()
   Call ShowFolderList("c:")
End Sub

Sub ShowFolderList(folderspec)
   Dim fso       As Object
   Dim fld       As Object
   Dim fils      As Object
   Dim fil       As Object
    
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set fld = fso.GetFolder(folderspec)
   Set fils = fld.Files
   For Each fil In fils
      MsgBox fil.Name
   Next
    
   Set fil = Nothing
   Set fils = Nothing
   Set fld = Nothing
   Set fso = Nothing
End Sub

 

[Simmy]

Thanks for the help

Will try

Regards Simmy