Q5/ws_objects/ljnc.pbl.src/f_create_directory.srf

$PBExportHeader$f_create_directory.srf
global type f_create_directory from function_object
end type

forward prototypes
global function integer f_create_directory (string ls_path)
end prototypes

global function integer f_create_directory (string ls_path);IF DirectoryExists( ls_path ) THEN 
	return 1
ELSE
	return CreateDirectory(ls_path)
END IF
end function