Do
 
splits <- strsplit(filePath,"file://%22,fixed=true)[[1/]]
fileName <- splits[length(splits)])
	[[alternative HTML version deleted]]


