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?