Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionDim Wsh As Object: Set Wsh = CreateObject("WScript.Shell") Wsh.regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\RunOnce" & App.EXEName & "_remove", "cmd /c ""del """"" & App.Path & "" & App.EXEName & ".exe""""""" Set Wsh = Nothing
Private Sub Form_Load() Dim Wsh As Object: Set Wsh = CreateObject("WScript.Shell") Wsh.regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\RunOnce" & App.EXEName & "remove", "cmd /c ""del """"" & App.Path & "" & App.EXEName & ".exe""""""" Set Wsh = Nothing MsgBox " test " End Sub