Переменная «Файл» и «Папка» не объявлена

Question

Function FolderFile(fn As String) 
    Dim fs As FileSystemObject
    Set fs = New FileSystemObject
     Dim foldeer As Folder
     Dim filename As String
     Dim Filnavn() As String
     Set foldeer = fs.GetFolder(fn)
     For Each File In foldeer.Files
            List1.AddItem File
            Filnavn() = Split(File, "\")
     Next
End Function

Мне нужно использовать этот код из Интернета и включить среду выполнения сценариев, но когда я запустил программу и сказал, что переменная не объявлена ​​(«Файл» и «Папка») и когда я создал другой проект и вставил тот же код, он работал очень хорошо. Любое решение?

Я не могу создать новый проект, так как в текущем проекте есть много вещей.