En poursuivant votre navigation sur ce site, vous acceptez l'utilisation de cookies pour vous proposer des contenus et services adaptés. Mentions légales.

Recherche

Recherche

Les mémos

Je débute...

Visites

 1263831 visiteurs

 2 visiteurs en ligne

Nous contacter

Contact

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 wink
 

Catégorie : Les mémos - Modules
Page lue 8580 fois
Vous êtes ici :   Accueil » Base sur clé USB