Error 62 occurs when reading from an empty file, try editing your code as follows:
.......
Set fs = CreateObject("Scripting.FileSystemObject")
Set fil = fs.GetFile(arrAllFiles(i))
If fil.Size > 0 Then
Set f = fs.OpenTextFile(arrAllFiles(i), 1)
a = f.readall
End If