SoftwareZator
Bonsoir,
Aujourd'hui je vais vous apprendre à savoir si une valeur ou même un dossier est présent dans le registre.
Voici le code pour savoir si une valeur est présente dans le registre
Bref pour le dossier, le code est similaire, il faut juste changer des petits détails ...
Pour un dossier :
Cordialement,
JHPC
Aujourd'hui je vais vous apprendre à savoir si une valeur ou même un dossier est présent dans le registre.
Voici le code pour savoir si une valeur est présente dans le registre
- Code:
Dim NameExist As String
Dim RegValueCollection As Object
RegValueCollection = My.Computer.Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run").GetValueNames
For i = 0 To My.Computer.Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run").GetValueNames.Count - 1
If RegValueCollection(i) = "Mon Logiciel" Then
NameExist = True
Exit For
End If
Next
If NameExist = "" Then
NameExist = False
End If
Bref pour le dossier, le code est similaire, il faut juste changer des petits détails ...
Pour un dossier :
- Code:
Dim NameExist As String
Dim RegValueCollection As Object
RegValueCollection = My.Computer.Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run")
For i = 0 To My.Computer.Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run").SubKeyCount - 1
If RegValueCollection(i) = "Mon dossier" Then
NameExist = True
Exit For
End If
Next
If NameExist = "" Then
NameExist = False
End If
Cordialement,
JHPC
