Uložení REG souboru do registrů
Procedura:
Private Sub ApplyRegFile(ByVal sRegFile As String)
On Error Resume Next
'Test
existence souboru
If Not (GetAttr(sRegFile) And
vbDirectory) = 0 Then Exit Sub
'Jméno
souboru musí být v uvozovkách
Shell "regedit /s " & Chr$(34) & sRegFile & Chr$(34)
End Sub