library(tools)
setwd("/Users/sbpollock/Desktop/test")
list <- list.files()
df <- data.frame(list[1],md5sum(list[1]))
for (n in 2:length(list)) {
	df[nrow(df)+1,] <- c(list[n],md5sum(list[n]))
}