Henrik, thanks!  Your example worked fine.

Listed below is a sample of what I used and the output.
> path <- "C:/MyFiles/Approach/OMRL/Data/"
> pathnames <- list.files(path, full.names=F)
> isDir <- file.info(pathnames)$isdir
> isDir
 [1]  TRUE  TRUE  TRUE FALSE FALSE FALSE FALSE 
> dirs <- pathnames[isDir]
> dirs
[1] "3334"             "d1"               "NotUsedTemplates"
> files <- pathnames[!isDir]
> files
 [1] "O.zip"            "Sample21.adx"     "Sample21.apr"     "Sample21.dbf"   
	[[alternative HTML version deleted]]


