rem Check file size
dim File As FileRecord
GetFileInfo(File, "")
MorePrompt Off
do
  ? File.Name
  if File.Size = 0 Then
    ? File.Name
    ? File.Uploader

    if InputYesNo ("Do you want to delete this file [y/N]",False) Then
      DeleteFile(File.Name, File.Area, True)
    end if
    MorePrompt Off
  end if
loop Until Not(GetNextFile(File))