This would also allow you to detect when a file is renamed, because the checksum wouldn't change. If you want this kind of sophistication, you should be able to add this, using the project provided here as a starting point. You can of course add an MD5 checksum field and compare those if you want to make sure that the file contents were indeed changed. If one filename is present in one table but not in the other, this means that this file was added or deleted, and if the timestamp is different, it is safe to assume that the file was updated.
Each element in these tables is a table itself, with two fields: the filename and the last modification timestamp. This is achieved by using two tables - one for the previous test, and one for the current situation. If one or more files are added, deleted or changed, the program will display a message like shown in the screen capture below.
I have put together a sample application which allows you to monitor a folder. ReadStringed = TextFile.ReadToString(_TempFolder."\\found.table") ĮndThe issue is that I think this is not very effective, plus the dialog show stays in a loop.Īnyone who can help me out with this code? Read back the new table to prevent showing dialog of previously found files. TextFile.WriteFromTable(_TempFolder."\\found.table", findFiles, false) Insert the newly found file into the table (so we proceed with monitoring again) do something with the file here if you want. Because a new file is found!ĭialog.Message("Notice", k, MB_OK, MB_ICONEXCLAMATION, MB_DEFBUTTON1) If a filename is not found in the previous results, show dialog. Now loop through the CURRENT file list and look for every filename into the previous search results.įinder = String.Find(readStringed, k, 1, false) ReadStringed = TextFile.ReadToString(_TempFolder."\\monitor.table") Read back the previous search results into STRING (because I had no idea how to find something in a table easily)
Code: - Find files again and save into variable.įindFiles = File.Find("C:\\test\\", "*.*", true, false, nil, nil)
0 kommentar(er)
