'(0) Systemdirektorie ermitteln
     'prüfen ob die systemfiles vorhanden sind
     Dim FExist1 As Boolean
     Dim FExist2 As Boolean
     Dim FExist3 As Boolean
     Dim FSO As New FileSystemObject
SysDir1 = WinSysDir() & "\" & "libmySQL.dll"
    FExist1 = FSO.FileExists(SysDir1)
SysDir2 = WinSysDir() & "\" & "MyVbQL.dll"
    FExist2 = FSO.FileExists(SysDir2)
SysDir3 = WinSysDir() & "\" & "libmySQL.lib"
FExist3 = FSO.FileExists(SysDir3)
 
'Ende (0)
 
'(1) kopieren der resourcen
If FExist1 = False Then
ExportRes 101, "CUSTOM", SysDir1
End If
If FExist2 = False Then
ExportRes 102, "CUSTOM", SysDir2
End If
If FExist3 = False Then
ExportRes 103, "CUSTOM", SysDir3
End If
'Ende (1)