Springen naar inhoud


- - - - -
VB6

Een Programma Wissen In Gebruik.



  • Log in a.u.b. om te beantwoorden
Er zijn 4 reacties in dit onderwerp

#1 houthalen

houthalen

    Senior Developer

  • Leden
  • PipPipPip
  • 167 berichten
    Laatst bezocht 03 dec 2019 12:23

Geplaatst op 11 november 2019 - 12:43

dag
Ik heb in een mijn programma een klein routine ingesloten om,  na 20 runs,
de programma te stoppen.
Werkt zeer goed.


Code:
' TRIAL**************************************
Dim Trial As String
Dim retvalue As String

retvalue = GetSetting("A", "0", "RunStro")
Trial = Val(retvalue) + 1
SaveSetting "A", "0", "RunStro", Trial


If Trial > 20 Then
MsgBox "Evaluatie beheindigd", 16, "DUAL-Step Optimizer"
Unload Me
End
End If
' TRIAL*************************

Ik wou nu nog beter doen. Stel nu da mijn programma in een map staat met de naam TEST

Hoe kan ik mijn routine boven uitbreiden zodat, aan de 20ste run, de map TEST volledig
te wissen van disc?

Ik weet niet als dat kan omdat als de programma in gebruik is, dan kan niet verwijdert worden?

#2 Damic

Damic

    Master Developer

  • Leden
  • PipPipPipPipPip
  • 691 berichten
    Laatst bezocht 23 nov 2019 16:56
  • LocatieMechelen (BE)

Geplaatst op 12 november 2019 - 23:53

Waarom zou je dat willen? en er zijn manieren maar het programma kan dit zelf niet. https://stackoverflo...-own-executable

#3 houthalen

houthalen

    Senior Developer

  • Leden
  • PipPipPip
  • 167 berichten
    Laatst bezocht 03 dec 2019 12:23

Geplaatst op 14 november 2019 - 11:53

Ok, bedankt Damic.
ik wou, na 20 keer gebruiken, de map programma volledig van de disc verwijderen om ook alles onbruikbaar te maken.
Want ik heb in dat map ook andere submappen vol met graphics enz.

#4 Damic

Damic

    Master Developer

  • Leden
  • PipPipPipPipPip
  • 691 berichten
    Laatst bezocht 23 nov 2019 16:56
  • LocatieMechelen (BE)

Geplaatst op 14 november 2019 - 12:06

Dan herinstalleert de gebruiker het programma gewoon terug? Je kan beter een melding weergeven en al de graphics encrypten of de graphics encrypted opslagen

#5 houthalen

houthalen

    Senior Developer

  • Leden
  • PipPipPip
  • 167 berichten
    Laatst bezocht 03 dec 2019 12:23

Geplaatst op 14 november 2019 - 19:06

Ok, Damic. Bedankt. Een goeie idee (graphics encrypted opslan.
Ik heb tot nu toe nooit gedaan. Ik zal naar formules zoeken op het net.





Ook met taq VB6 voorzien

0 gebruiker(s) lezen dit onderwerp

0 lid(leden), 0 bezoeker(s), 0 anonieme gebruikers

Inloggen


[VB6] Untitled 1

Met dank aan J├╝rgen voor de jarenlange inzet van visualbasic.be (anno dec 2000)
Met dank aan Mike en Ronneke voor de jarenlange inzet van vbib.be (anno dec 2010)
Met dank aan PascalBianca voor de jarenlange inzet van vbib.be (anno dec 2016)