VBA: Find alle word-filer i mappe

Set objFSO = CreateObject("Scripting.FileSystemObject")

objStartFolder = "C:\Scripts"

Set objFolder = objFSO.GetFolder(objStartFolder)

Set colFiles = objFolder.Files
For Each objFile in colFiles
  filetype = mid(objFile.Name,InstrRev(objFile.Name,".")+1)
  if lcase(filetype) = "doc" or lcase(filetype) = "docx" then
    filepath = objStartFolder & "\" & objFile.Name
  end if
Next

Super:-) cht22, opret et svar, hvis du vil have point.

Så er der her et svar.