R help - Apr 2005 - Windows List of Folders?

For windows, how can I list only the folders in some folder?
I was thinking that dir() and file.info() with isdir==TRUE being something
that might work.

These folders or directories are numerically named with no dot extension
names or other characters.  Typically, these are 3132, 3334, ...

Here is what I tried.  The last line is where I need more work.

pData="C:/Myfiles/R/Data/"
setwd (pData)
x <- dir(pData, all.files=F)
y <- file.info(x, x$isdir==T)

TIA

Kenneth Ray Hobson, P.E.
Oklahoma DOT - QA & IAS Manager
200 N.E. 21st Street
Oklahoma City, OK  73105-3204

Example:

path <- system.file(package="base")
pathnames <- list.files(path, full.names=TRUE)
isDir <- file.info(pathnames)$isdir
dirs <- pathnames[isDir]
files <- pathnames[!isDir]

If you don't get the 'isDir' line, think of it as
infos <- file.info(pathnames)
isDir <- infos$isdir

/Henrik

khobson at fd9ns01.okladot.state.ok.us wrote:
> 
> 
> 
> For windows, how can I list only the folders in some folder?
> I was thinking that dir() and file.info() with isdir==TRUE being something
> that might work.
> 
> These folders or directories are numerically named with no dot extension
> names or other characters.  Typically, these are 3132, 3334, ...
> 
> Here is what I tried.  The last line is where I need more work.
> 
> pData="C:/Myfiles/R/Data/"
> setwd (pData)
> x <- dir(pData, all.files=F)
> y <- file.info(x, x$isdir==T)
> 
> TIA
> 
> Kenneth Ray Hobson, P.E.
> Oklahoma DOT - QA & IAS Manager
> 200 N.E. 21st Street
> Oklahoma City, OK  73105-3204
> 
> ______________________________________________
> R-help at stat.math.ethz.ch mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide!
http://www.R-project.org/posting-guide.html
> 
>

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]]