local InFile = file.open(arg(1), "r") local OutName = arg(2) ++ "_NameDateFile.lst" local OutFile = file.open(OutName, "w") local Str, Counter, List, i, Date, Time, Temp flag clear 1 if(InFile > 0) do for(not(file.eof(InFile))) Str = file.readstring(InFile) if(Str != 0) Counter = Counter + 1 endfor else messagebox("ok error", "File not opened", "FILE plugin error #1") quit endif if(OutFile <= 0) do messagebox("ok error", "File not opened", "FILE plugin error #2") quit endif if(Counter == 1) do List = file.listfiles(arg(2), 0, 0) Counter = line(List, 0) flag set 1 else file.restart(InFile) endif for(i = 0; i < Counter; i = i + 1) if(pproflag(1)) do Str = line(List, i + 1) else Str = file.readstring(InFile) endif if(Str == OutName) jump Next file.writeline(OutFile, file.nametype(Str)) Temp = file.getdate(Str, "c") Date = select(Temp, 8) file.writeline(OutFile, Date) Time = select(Temp, 9, 14) file.writeline(OutFile, Time) Temp = file.getdate(Str, "m") Date = select(Temp, 8) file.writeline(OutFile, Date) Time = select(Temp, 9, 14) file.writeline(OutFile, Time) @Next endfor file.close(InFile) file.close(OutFile)