Base sur clé USB

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