Sub %Method%(obj)
' Exporter un objet dans un fichier
' Créer une boîte de dialogue pour saisir le nom du fichier
Dim dlg
Set dlg = obj.CreateCustomDialog("%CurrentTargetCode%.Exporter")
If not dlg is Nothing Then
' Initialiser la valeur du contrôle de nom de fichier
dlg.SetValue "Nom de fichier", "c:\temp\MonFichier.xml"
' Show dialog
If dlg.ShowDialog() Then
' Récupérer la valeur du client pour le contrôle de nom de fichier
Dim filename
filename = dlg.GetValue("Nom de fichier")
' Traiter l'algorithme d'exportation...
' (Code d'exportation non inclus dans cet exemple)
Output "Exportation de l'objet " + obj.Name + " vers le fichier " + filename
End If
' Libérer la boîte de dialogue
dlg.Delete
Set dlg = Nothing
End If
End Sub