library(foreign)
library(translations)
install.packages("translate")
install.packages("rio")
install.packages("mtcars")
library(car)
files <- list.files(path="D:/___Transfer/masteraltkrs", pattern="*.dbf", full.names=T, recursive=FALSE)
for(i in files) {
oldFile <- i
sub(".dbf",".xlsx",i)
convert(oldFile, i)
}