Problem mit While Wend!

[FISCHAUGE]

Code: Alles auswählen

  If EventMenuID()=80
NewList DateienEntpacken.s() 
Pfad$ = "C:\" 
 
PackDatei$ = OpenFileRequester("Dateien auswählen", Pfad$, "Gepackte Dateien (*.pac)|*.pac", 0) 
If OpenPack(PackDatei$)                                 
  *SpeicherAdresse = NextPackFile()                    
  Groesse = PackFileSize()
                                 
For Schleife = 1 To Groesse                            
 String$ = PeekS(*SpeicherAdresse, Groesse) 
 Position = FindString(String$, Chr(13), Schleife) 
 AddElement(DateienEntpacken()) 
 Laenge = Position - Schleife 
 DateienEntpacken() = Mid(String$, Schleife, Laenge) 
 Schleife = Schleife + Laenge + 1 
Next Schleife    
Else 
End 
EndIf 

 entpackname$ = PathRequester("Entpacken nach","c:\")

 ResetList(DateienEntpacken()) 
While NextElement(DateienEntpacken()) 
 *GepackteDatei = NextPackFile() 
 Groesse = PackFileSize() 
If CreateFile(0, entpackname$+DateienEntpacken())  
 WriteData(*GepackteDatei, Groesse)  
 CloseFile(0)           
                       
EndIf
Wend
EndIf

Mein Problem ist wenn ich nach dem WEND und vor dem letzen EndIf ein END setze beendet er das Komplette Programm, wenn das END aber nicht gestzt ist fängt er mit dem Ganzen von vorne an gibt es eine möglichkeit nach dem Ablauf wieder zum Ausgangspunkt zurück zuspringen wo noch nichts gedrückt wurde?

danke

[bluejoke]

Um eine Schleife Abzubrechen einfach "Break" verwenden.
Um den restlichen Durchlauf einer Schleife zu überspringen "Continue" verwenden. Es geht dann beim Anfang der Schleife wieder weiter.