Why doesn't the following code always works?
Dim path As String
Dim i As Integer
path = ThisWorkbook.FullName
path = Left(path, Len(path) - (1 + Len(ThisWorkbook.Name))) & "\toetsen"
i = 0
Dim FileName As String
'Does FileName have a maximum length...