Genusis's questions/help page.

[Matt]

Do you have the shops folder with your shops in it?

FileName = App.Path & "\shops\shop" & i & ".dat"

Cause that's what filename equals.