C_STRING(16;$XML_File)
C_STRING(16;$XML_Node_Recent)
C_STRING(16;$XML_Node_Database)
C_STRING(16;$XML_Node_DatabaseName)
C_STRING(16;$XML_Node_Favoris)
C_TEXT($XML_DatabaseName;$XML_DatabaseName_Value)
C_TEXT($XML_Favoris;$XML_Favoris_Value)
C_INTEGER($Mode)

CONFIRM("最近使用したデータベースを整理してもよろしいですか";"いいえ";"はい")
If (Ok=1)
CONFIRM("処理の種類を選択してください";"無効なパスだけを削除する";"すべてを削除する (お気に入り以外)")
If (Ok=1)
$Mode:=1
Else 
$Mode:=2
End if 
End if 

$XML_File:=DOM Parse XML source(Get 4D folder(Active 4D Folder )+"4D Recent Databases.XML")

If ((OK=1) & ($XML_File#"") & ($XML_File#"0000000000000000") & ($Mode>0))

$XML_Node_Recent:=DOM Find XML element($XML_File;"OpenDatabasePreferences/RecentItems")
$XML_Node_Database:=DOM Get first child XML element($XML_Node_Recent)

If ((OK=1) & ($XML_Node_Database#"") & ($XML_Node_Database#"0000000000000000"))

Repeat 
$XML_Node_DatabaseName:=DOM Get first child XML element($XML_Node_Database;$XML_DatabaseName;$XML_DatabaseName_Value)
$XML_Node_Favoris:=DOM Get Next sibling XML element($XML_Node_DatabaseName;$XML_Favoris;$XML_Favoris_Value)
Case of 
\ (Test path name($XML_DatabaseName_Value)#1)
DOM REMOVE XML ELEMENT($XML_Node_Database)
$XML_Node_Recent:=DOM Find XML element($XML_File;"OpenDatabasePreferences/RecentItems")
$XML_Node_Database:=DOM Get first child XML element($XML_Node_Recent)
\ ((Test path name($XML_DatabaseName_Value)=1) & ($XML_Favoris_Value="0") & ($Mode=2))
DOM REMOVE XML ELEMENT($XML_Node_Database)
$XML_Node_Recent:=DOM Find XML element($XML_File;"OpenDatabasePreferences/RecentItems")
$XML_Node_Database:=DOM Get first child XML element($XML_Node_Recent)
Else 
$XML_Node_Database:=DOM Get Next sibling XML element($XML_Node_Database)
End case 

Until (Ok=0)
DOM EXPORT TO FILE($XML_File;Get 4D folder(Active 4D Folder )+"4D Recent Databases.XML")
End if 

DOM CLOSE XML($XML_File)
ALERT("終了！")

End if