Galera, estou tentando criar comandos que por eles, automaticamente abram pastas dentro de pastas para ir diretamente no arquivo (no caso txt), por exemplo, vou abrindo as seguintes pastas: Victor/teste/201005/20100520/2010052000.txt, sendo que 2010 é o ano, 05 o mes, 20 o dia e 00 a rodada (as rodadas vao de 00 até 23), no caso, esse é um exemplo, tenho que fazer para os demais meses, dias e rodadas. Queria saber uma estratégia de comando melhor, porque o que estou tentando montar não ficou muito legal, ficou assim:<br>
<br>mes&lt;-sprintf(&#39;%02d&#39;,seq(1,12))# sequencia de dois digitos de 1 ate 12<br>pasta&lt;-paste(2010,mes,sep=&#39;&#39;)<br>dia&lt;-sprintf(&#39;%02d&#39;,seq(1,31)) # sequencia de 1 até 31 com dois dígitos<br>dat.dir&lt;-paste(dat.dir,pasta,&#39;/&#39;,pasta,dia,&#39;/&#39;,sep=&#39;&#39;) <br>
<br><br>hh &lt;-sprintf(&#39;%02d&#39;,seq(0,23)) # Cria uma sequência com 2 dígitos de 1 até 23<br>horario&lt;-format(Sys.time(),&#39;%Y%m&#39;) # formato ano/mes atual<br>horario1&lt;-format(Sys.time(),&#39;%Y%m%d&#39;) #formato ano/mes/dia atual<br>
<br>pa&lt;-paste(&#39;2011&#39;,mes,sep=&#39;&#39;) #diretorio parcial<br><br>pa1&lt;-paste(dat.dir,pasta,&#39;/&#39;,pasta,dia,&#39;/&#39;,sep=&#39;&#39;) # diretorio completo do arquivo<br><br><br>for(i in dia){<br><br>
for(j in mes){<br><br>for(k in hh){<br><br>message(paste(&#39;C:/Users/max/Desktop/Victor/teste/&#39;,2010,j,&#39;/&#39;,2010,j,i,&#39;/&#39;,2010,j,i,k,sep=&#39;&#39;))<br>if(!file.exists(paste(&#39;C:/Users/max/Desktop/Victor/teste/&#39;,2010,j,&#39;/&#39;,2010,j,i,&#39;/&#39;,2010,j,i,k,sep=&#39;&#39;))) next<br>
arquivo&lt;-read.table(paste(&#39;C:/Users/max/Desktop/Victor/teste/&#39;,2010,j,&#39;/&#39;,2010,j,i,&#39;/&#39;,2010,j,i,k,sep=&#39;&#39;))<br>message(&#39;OK&#39;)<br>}<br>}<br>}<br><br><br><br><br>Abraços! <br>