You seem to be going in circles. Advice was given earlier on ways to check things.

Again, this must show True:
    MsgBox Dir("C:\Users\dbrandejs\david\skola\IES\Diplomka\adjusted data\allstocks_20130102\") <> ""