LISTE DES DRIVERS ODBC ET DSN ASSOCIES (MAJ)

Commentaire de VBsearch le 28/07/2010 03:33:31

Si, dans la classe "clsFileInfo", on ajoute "Option Explicit" on a 4 beaux messages: Variable non définie.
Les variables en question sont avec leurs valeurs correctes :
1 - Const VFT_FONT_RASTER = &H1
2 - Const VFT_FONT_VECTOR = &H2
3 - Const VFT_FONT_TRUETYPE = &H3
et dans la structure
   Select case udtVerBuffer.dwFileOS
     ............
     ............
    Case Other : Il faut mettre Case Else
La raison est toute simple : Le code a été copié depuis ApiGuide en supprimant la clause "Option Explicit" pour ne pas avoir d'embêtement avec des variables non définies et en supprimant ce qui se rapporte à l'auteur légitime du code. En voici un extrait :
Private Sub Form_Load()
    'KPD-Team 2000
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    'Source -> MS Knowledge Base
    'set the file
    Filename = "kernel32.dll"
    Directory = "c:\windows\system\"
    FullFileName = Directory + Filename
    'set graphics mode to persistent
    Me.AutoRedraw = True
    'retrieve the information
    DisplayVerInfo
    'show the results
    Me.Print "Full filename: " + FullFileName
    Me.Print "File version: " + FileVer
    Me.Print "Product version: " + ProdVer
    Me.Print "File flags: " + FileFlags
    Me.Print "File OS: " + FileOS
    Me.Print "File type: " + FileType + IIf(FileSubType = "", "", " (" + FileSubType + ")")
End Sub
Certes, il y a eu un effort pour code cette classe mais cela n'empêche pas de signaler le nom de l'auteur ou l'équipe qui l'a codé.