Read .cel file with R program

I am trying to read several .cel files from Affymetrix Exon Arrays with the R program. I have loaded the affy, affyio, oligo and pd.huex.1.0.st.v2 packages but when I write the command read.affybatch(dir()[1]) it does not work and the following message appears: