File.Delete(Globaal.Map_Uren, Globaal.psFileToDeleteUren)
Globaal.psFileToDeleteUren = ""
Dim lListU As List: lListU.Initialize
lListU.Clear
If lListU.IsInitialized Then
lListU = File.ListFiles(Globaal.Map_Uren)
If lListU.Size>0 Then
sNewFile = lListU.get(0)
psFileToDeleteUren=sNewFile
....
end if