Bryd ud af for-løkke

Hej

Hvordan bryder jeg ud af for-løkken (på en ordentlig måde), når newPicSize bliver lig med oldPicSize?

________________________________________

function useFile2 (strNAVN)
   
    Set fs = CreateObject("Scripting.FileSystemObject")
      Set f = fs.GetFolder(server.mappath("/grafik/henvisning/" & Session("henvisningBilledKategori") & "/"))
      Set fc = f.Files
      For Each billed in fc
          newPicSize = getPicSize (strNAVN)
          oldPicStr = "/grafik/henvisning/" & Session("henvisningBilledKategori") & "/" & billed.name
          oldPicSize = getPicSize (oldPicStr)

        if newPicSize = oldPicSize then
            fileDelete(newFile)
            response.write "<br>Filen er IKKE unik. Gammel fil: " & billed.name & "    Ny fil: " & strNavn
            useFile2 = oldPicStr
        end if       
      next
     
      if useFile2 = "" then
          useFile2 = strNAVN
          response.write "<br>Filen er unik"
      end if

end function