VB6 ドキュメント生成

コメントの例
''

' <h1>Test de VBDox</h1>
' Test complet de VBDox
' 
' @remarks  Premier test en live
' @author   fabio
' @version  0.0.1
' @date     2006-06-08
' @history  2006-06-08 : 1ere version
' @bug      Plante si pas de texte
' @todo     Compléter les commentaires
' @todo     Compléter la documentation
' @require  test_functions.vbs
' @include  test_functions.vbs

'' Titre général
Dim gTitre  
Dim sConfiguration

'' Chemin de l'éxécutable
Dim sPathExe

' Attribution du titre
gTitre = "Test VBDox"

' @todo     Compléter les commentaires
wscript.echo WriteDate("Fabio")


''
' Affiche le texte et la date du jour
' @param    sText   Texte à afficher
' @return 	        Le text harodaté
' @remarks  <i>A améliorer</i>
' @todo     Ne rien renvoyer si pas de texte
' @version  0.5.1
' @history  2006-06-08 : 1ere version
' @see      #getdate
Function WriteDate(sText)
  WriteDate = GetDate() & " - " & sText
End Function

''
' Retourne la date
' @param    Aucun
' @return   La date du jour
' @version  0.1
' @see    #WriteDate
' @todo     Préciser le format de la date
Function GetDate()
  GetDate = Now()
End Function