[maxmsp] Re: How to create folders in a patch?

http://www.jasch.ch/dl/jasch_objects_beta/createfolder_20070711.zip

OS X only - this is where the platforms are really different

below's the function, it even uses max's path utilities...

hth

/*j

//////////////

void createfolder_anything(t_createfolder *x, t_symbol *s, long ac,  
t_atom *av)
{
	long			len, pos = 0;
	short			path = 0;
	char			*charptr;
	char			name[2048];
	char			inname[2048];
	char			parentname[2048];
	char			foldername[2048];	
	const FSRef		parentRef;
	CFStringRef		str;
	HFSUniStr255		folderNameU;
	OSStatus		err;
	Boolean			isDirectory;
	long result = 0;

	path_nameconform(s->s_name, inname, PATH_STYLE_SLASH, PATH_TYPE_BOOT);
	if(x->t_debug) post("path namecomform returns %s", inname);

	len = strlen(inname);
	if(inname[len-1] == '/') {
		inname[len-1] = 0;
		len--;
	}
	if (path_topathname(path, inname, name)) { // check if path alreay  
exists
		charptr = strrchr(inname, '/');
		if(charptr != NULL){
			pos = (long)(charptr - inname + 1);
		}
		charptr = (char *)memmove(foldername, (inname + pos), (len - pos));
		foldername[(len - pos)] = 0;
		inname[MIN(len, pos)] = 0;
		strcpy(parentname, inname);
			if(x->t_debug) post("parentname is %s  --  foldername is %s",  
parentname, foldername);	
	
		err = FSPathMakeRef((const UInt8*)parentname, &parentRef,  
&isDirectory);
		if((err == noErr) && (isDirectory)) {
		
			if(x->t_debug) post("makeFS returned noErr and isDirectory");

			str = CFStringCreateWithCString(kCFAllocatorDefault, foldername,  
kCFStringEncodingMacRoman);
							// encoding constant is important : shouldn't it come from  
locale?

			folderNameU.length = (UInt16)CFStringGetLength(str);
			CFStringGetCharacters(str, CFRangeMake(0, folderNameU.length),  
folderNameU.unicode);
			
			// see if it already exists?
			err = FSMakeFSRefUnicode(&parentRef,  
folderNameU.length,folderNameU.unicode,
									   kTextEncodingUnicodeDefault, NULL);
			// should now verify that is, in fact, a folder.
			
			if (err != noErr) { // no, so try to create it.		
				err = FSCreateDirectoryUnicode(&parentRef, folderNameU.length,  
folderNameU.unicode,
												 kFSCatInfoNone, NULL, NULL, NULL, NULL);
				result = 1;
			}
		} else {
				if(x->t_debug) post("makeFS failed: %ld and %ld ",(int)err,  
isDirectory);
			result = 0;
		}
	}
	outlet_int(x->t_outlet, result);
	return;
}