Try:
For i = (Fldr.Items.Count-1) To 0 Step -1
Set olMi = Fldr.Items(i)
Type mismatch means that the object returned does not match what you are setting to.
If above does not resolve, do JavaScript debugging and see for what value and when is the error happening. Try to look around that and troubleshoot.