-
Notifications
You must be signed in to change notification settings - Fork 0
/
subindo_pastas
33 lines (22 loc) · 1.17 KB
/
subindo_pastas
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
# objetivo desse script é copiar o conteúdo de dentro de pastas dos ministérios que estão salvas em um diretório "fonte" e
# salvar em um outro lugar sem a pasta dos ministérios. Esse é o script base que eu criei para o loop:
#pasta ministérios:
pasta_fonte <- "C:/Users/jvoig/Desktop/simulacao"
ministerios <- list.files(pasta_fonte)
#olhe dentro da pasta ministerios e me traga o que há dentro de cada um dele:
i=1
for(i in seq_along(ministerios){
print(i)
pasta_ministerios <- paste(pasta_fonte, ministerios[i], sep="/")
pasta_protocolos <- list.files(pasta_ministerios)
for(p in seq_along(pasta_protocolos)) {
pasta_a_copiar <- paste(pasta_ministerios, pasta_protocolos[p], sep="/" )
pasta_destino <- paste("C:/Users/jvoig/Desktop/destino", pasta_protocolos[p], sep="/")
#cria o diretório se ele não existe:
ifelse(!dir.exists(pasta_destino),
dir.create(pasta_destino, recursive=TRUE), FALSE)
# Copia o que está dentro da pasta do protocolo e cola na pasta destino:
arquivos <- list.files(pasta_a_copiar)
file.copy(file.path(pasta_a_copiar,arquivos)
, pasta_destino, overwrite = F)
}}