diff --git a/trunk/Units/MMLAddon/PSInc/Wrappers/file.inc b/trunk/Units/MMLAddon/PSInc/Wrappers/file.inc
index 5ccdbcc..aca323d 100644
--- a/trunk/Units/MMLAddon/PSInc/Wrappers/file.inc
+++ b/trunk/Units/MMLAddon/PSInc/Wrappers/file.inc
@@ -76,6 +76,10 @@ function ps_DirectoryExists ( const DirectoryName : string ) : Boolean; extdecl;
 begin
   result := DirectoryExists(DirectoryName);
 end;
+function ps_CreateDirectory( const DirectoryName : string) : boolean; extdecl;
+begin
+  result := CreateDir(directoryName);
+end;
 
 procedure ps_WriteINI(Section, KeyName, NewString, FileName: string);extdecl;
 var
diff --git a/trunk/Units/MMLAddon/PSInc/psexportedmethods.inc b/trunk/Units/MMLAddon/PSInc/psexportedmethods.inc
index 677545d..5764ae5 100644
--- a/trunk/Units/MMLAddon/PSInc/psexportedmethods.inc
+++ b/trunk/Units/MMLAddon/PSInc/psexportedmethods.inc
@@ -100,6 +100,7 @@ AddFunction(@ps_WriteFileString, 'function WriteFileString(FileNum: Integer; s:
 AddFunction(@ps_SetFileCharPointer, 'Function SetFileCharPointer(FileNum, cChars, Origin: Integer): Integer;');
 AddFunction(@ps_FilePointerPos, 'function FilePointerPos(FileNum: Integer): Integer;');
 AddFunction(@ps_DirectoryExists,'function DirectoryExists( const DirectoryName : string ) : Boolean;');
+AddFunction(@ps_CreateDirectory,'function CreateDirectory( const DirectoryName : string) : boolean;');
 AddFunction(@ps_FileExists,'function FileExists ( const FileName : string ) : Boolean;');
 AddFunction(@ps_WriteINI,'procedure WriteINI(Section, KeyName, NewString, FileName: string);');
 AddFunction(@ps_ReadINI,'function ReadINI(Section, KeyName, FileName: string): string;');