20 lines
669 B
Plaintext
20 lines
669 B
Plaintext
include "NSLog.incl"
|
|
|
|
void local fn EnumerateDirectoryAtURL( dirURL as CFURLRef )
|
|
NSDirectoryEnumerationOptions options = NSDirectoryEnumerationSkipsPackageDescendants + ¬
|
|
NSDirectoryEnumerationSkipsHiddenFiles
|
|
|
|
DirectoryEnumeratorRef enumerator = fn FileManagerEnumeratorAtURL( dirURL, NULL, options, NULL, NULL )
|
|
CFURLRef url = fn EnumeratorNextObject( enumerator )
|
|
while ( url )
|
|
if ( fn StringIsEqual( fn URLPathExtension( url ), @"fb" ) )
|
|
NSLog(@"%@",url)
|
|
end if
|
|
url = fn EnumeratorNextObject( enumerator )
|
|
wend
|
|
end fn
|
|
|
|
fn EnumerateDirectoryAtURL( fn FileManagerURLForDirectory( NSDesktopDirectory, NSUserDomainMask ) )
|
|
|
|
HandleEvents
|