diff --git a/htdocs/admin/tools/purge.php b/htdocs/admin/tools/purge.php
new file mode 100644
index 00000000000..0c2aaafbd62
--- /dev/null
+++ b/htdocs/admin/tools/purge.php
@@ -0,0 +1,122 @@
+<?php
+/* Copyright (C) 2006 Laurent Destailleur  <eldy@users.sourceforge.net>
+ *
+ * This program is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 2 of the License, or
+ * (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program; if not, write to the Free Software
+ * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+ *
+ * $Id$
+ * $Source$
+ */
+
+/**
+		\file 		htdocs/admin/tools/purge.php
+		\brief      Page de purge des fichiers temporaires
+		\version    $Revision$
+*/
+
+require("./pre.inc.php");
+include_once $dolibarr_main_document_root."/lib/databases/".$conf->db->type.".lib.php";
+
+$langs->load("admin");
+
+if (! $user->admin)
+  accessforbidden();
+
+if ($_GET["msg"]) $message='<div class="error">'.$_GET["msg"].'</div>';
+
+
+
+/*
+*	Actions
+*/
+if ($_POST["action"]=='purge')
+{
+	$filesarray=array();
+	
+	if ($_POST["choice"]=='tempfiles')
+	{
+		// Delete temporary files
+		if ($dolibarr_main_data_root)
+		{
+			$filesarray=dolibarr_dir_list($dolibarr_main_data_root,"directories",1,'temp');
+		}
+	}
+
+	if ($_POST["choice"]=='allfiles')
+	{
+		// Delete all files
+		if ($dolibarr_main_data_root)
+		{
+			$filesarray=dolibarr_dir_list($dolibarr_main_data_root,"all",0);
+		}
+	}
+
+	$count=0;
+	if (sizeof($filesarray))
+	{
+		foreach($filesarray as $key => $value)
+		{
+			//print "x ".$filesarray[$key]['fullname']."<br>\n";
+			$count=dol_delete_dir_recursive($filesarray[$key]['fullname']);
+		}		
+
+	}
+
+	if ($count) $message=$langs->trans("PurgeNDirectoriesDeleted",$count);
+	else $message=$langs->trans("PurgeNothingToDelete");
+	$message='<div class="ok">'.$message.'</div>';
+}
+
+
+/*
+* Affichage page
+*/
+
+llxHeader();
+
+$html=new Form($db);
+
+print_fiche_titre($langs->trans("Purge"),'','setup');
+print '<br>';
+
+print $langs->trans("PurgeAreaDesc",$dolibarr_main_data_root).'<br>';
+print '<br>';
+
+if ($message) 
+{
+	print $message.'<br>';
+	print "\n";
+}
+
+print '<form action="'.$_SERVER["PHP_SELF"].'" method="POST">';
+
+print '<input type="hidden" name="action" value="purge">';
+
+print '<table class="border" width="100%"><tr><td>';
+print '<input type="radio" name="choice" value="tempfiles"';
+print (! $_POST["choice"] || $_POST["choice"]=='tempfiles') ? ' checked="true"' : '';
+print '> '.$langs->trans("PurgeDeleteTemporaryFiles").'<br>';
+print '<input type="radio" name="choice" value="allfiles"';
+print ($_POST["choice"] && $_POST["choice"]=='allfiles') ? ' checked="true"' : '';
+print '> '.$langs->trans("PurgeDeleteAllFilesInDocumentsDir",$dolibarr_main_data_root).'<br>';
+print '</td></tr></table>';
+
+print '<br>';
+print '<center><input class="button" type="submit" value="'.$langs->trans("PurgeRunNow").'"></center>';
+
+
+print '</form>';
+
+llxFooter('$Date$ - $Revision$');
+?>
\ No newline at end of file