45 lines
1.3 KiB
Plaintext
45 lines
1.3 KiB
Plaintext
include "NSLog.incl"
|
|
|
|
local fn DirectoryContents( url as CFURLRef ) as CFArrayRef
|
|
CFArrayRef contents = fn FileManagerContentsOfDirectoryAtURL( url, NULL, NSDirectoryEnumerationSkipsHiddenFiles )
|
|
if ( contents == NULL )
|
|
NSLog(@"Unable to get contents of directory \"%@\".",fn URLLastPathComponent(url))
|
|
end if
|
|
end fn = fn ArrayValueForKey( contents, @"lastPathComponent" )
|
|
|
|
void local fn DoIt
|
|
CFURLRef dirURL, fileURL
|
|
CFArrayRef contents
|
|
|
|
dirURL = fn URLFileURLWithPath( fn StringByExpandingTildeInPath( @"~/Desktop/docs" ) )
|
|
if ( fn FileManagerCreateDirectoryAtURL( dirURL, YES, NULL ) )
|
|
contents = fn DirectoryContents( dirURL )
|
|
if ( contents )
|
|
NSLog(@"Directory \"docs\" \b")
|
|
if ( len(contents) )
|
|
NSLog(@"contents:\n%@",contents)
|
|
else
|
|
NSLog(@"is empty.")
|
|
end if
|
|
|
|
NSLog(@"")
|
|
|
|
fileURL = fn URLFileURLWithPath( fn StringByExpandingTildeInPath( @"~/Desktop/docs/output.txt" ) )
|
|
if (fn FileManagerCreateFileAtURL( fileURL, NULL, NULL ) )
|
|
contents = fn DirectoryContents( dirURL )
|
|
NSLog(@"Directory \"docs\" \b")
|
|
if ( len(contents) )
|
|
NSLog(@"contents:\n%@",contents)
|
|
else
|
|
NSLog(@"is empty.")
|
|
end if
|
|
end if
|
|
end if
|
|
end if
|
|
|
|
end fn
|
|
|
|
fn DoIt
|
|
|
|
HandleEvents
|