Setvirtualresolution(640,480)
SetPrintSize(25)
ResetTimer()

//Create a test file
file$="agktest.txt"
OpenToWrite(1,file$)
WriteLine(1,"AGK rules!")
CloseFile(1)

Repeat
    Print ("Test file created,")
    Print ("it will be deleted in 15 seconds")

    Sync()
Until Timer()>15

//Delete the original test file
DeleteFile(file$)
End

hint/workaround:
if u need a new directory after deleteing a file
with GetFirstFile & GetNextFile
maybe try this before, it updates the list
SetFolder("")
SetFolder("media")