I am assuming you are using package rio which includes a convert function. Without reproducible data I can't test it, but it should be enough to get you started. The line stripping the extension and adding ".csv" assumes that there is only one "." in the filename. If that is not the case, it will be a bit more complicated.
library(rio)
Qualtrics <- list.files(directory) # This gives you your input files
# Split off the extension and add .csv extension
QualtricsCSV <- paste0(sapply(strsplit(Qualtrics, "\\."), "[", 1), ".csv")
setwd(directory)
for (i in seq(length(x)) {
convert(Qualtrics[i], QualtricsCSV[i])
}