Recherche
Recherche
Les mémos
 ↑  
Je débute...
Visites

 992119 visiteurs

 5 visiteurs en ligne

On peut distribuer une base de test ou en version limitée sur une clé USB.

Pour empêcher toute utilisation en dehors de la clé, on peut utiliser le code suivant:

Function IsUSB(strSource) As Boolean
    '//
    '// Code à placer dans un module général
    '//
    Dim vSysFile, vVolume
    
    Set vSysFile = CreateObject("Scripting.FileSystemObject")
    Set vVolume = vSysFile.GetDrive(vSysFile.GetDriveName _
                                    (vSysFile.GetAbsolutePathName(strSource)))
    If vVolume.DriveType = 1 Then
        IsUSB = True
    Else
        IsUSB = False
    End If
    Set vSysFile = Nothing
    Set vVolume = Nothing
    
End Function

  
Dans le programme, on fera lors du démarrage de la base le test suivant :

If IsUSB(CurrentProject.Path) Then
    ' OK, base sur clé USB
Else
    MsgBox "Veuillez utiliser la base sur la clé USB !"
    Application.Quit
End If


Note: L'utilisateur ne doit pas pouvoir modifier le code wink
 


Catégorie : Les mémos - Modules
Page lue 6973 fois