Private Const MRD_SOURCE = "d:\data\" Private Const REP_SOURCE = "d:\output\" Private Const MRD_DEST = "d:\mrd_files\" Private Const REP_DEST = "d:\rep_files\" Private Sub Form_Load() Call FillListView End Sub Private Sub FillListView() Dim fso As New FileSystemObject Dim LItem As ListItems Dim SourceFolder, DestFolder As Scripting.Folder Dim FileItem As Scripting.File Dim strFilename As String Set SourceFolder = fso.GetFolder(REP_SOURCE) For Each FileItem In SourceFolder.Files Set LItem = lvwFiles.ListItems.Add(, , FileItem.Name) <--- ERROR Next End Sub