WLangage procedure ("callback") called by
fTrackDirectory when a change is made to the tracked directory.
This can be a local, global, or internal.
// Name of directory to track
sDirectoryName is string = "C:\Temp\MyDir"
// The ProcessDirModification procedure will be called
// whenever a file or directory found in the "C:\Temp\MyDir" directory is modified.
IF fTrackDirectory(sDirectoryName, fTrackDirectory_Callback, ftCreateFile + ...
ftModifyFile + ftDeleteFile + ftRename) THEN
// Inform the user that the directory will be tracked
Info("The " + sDirectoryName + " directory will be tracked.")
ELSE
// Inform the user that the directory will not be tracked
Info("The " + sDirectoryName + " directory will not be tracked.")
END
// Code of the procedure
PROCEDURE fTrackDirectory_Callback(sDirectoryName, sFileName, nAction, sOldFileName)
ExecuteMainThread(AddTable,sDirectoryName, sFileName, nAction, sOldFileName)
// Procedure that acts on the main thread
PROCEDURE AddTable(sDirectoryName, sFileName, nAction, sOldFileName)
sActionDesignation is string
// The designation of the action depends on nAction
SWITCH nAction
CASE ftCreateFile: sActionDesignation = "Creating files"
CASE ftDeleteFile: sActionDesignation = "Deleting files"
CASE ftModifyFile: sActionDesignation = "Modifying files"
CASE ftRename: sActionDesignation = "Renaming files"
END
// Add a line containing the information about the modification
// into the TABLE_MODIFICATIONS table
TableAddLine(TABLE_MODIFICATIONS, sDirectoryName, sFileName, , ...
sActionDesignation, sOldFileName)
Syntax
fTrackDirectory_Callback(<Name of the tracked directory> , <Name of modified element> , <Action> , <Former name>)
<Name of the tracked directory>: Character string
Full name of the tracked directory.
<Name of modified element>: Character string
Name of modified file or directory.
<Action>: Integer constant
Action performed:
| |
| ftCreateFile | The <Name of modified element> file or directory was created in <Directory>. |
| ftModifyFile | The <Name of modified element> file or directory was modified in <Directory>. |
| ftRename | The <Name of modified element> file or directory was renamed in <Directory>. |
| ftDeleteFile | The <Name of modified element> file or directory was deleted from <Directory>. |
<Former name>: Character string
Former name of the modified file or directory if they were renamed.
Remarks
Caution
This WLanguage procedure is run in a WLanguage thread.
Caution: The following processes cannot be run in the threads:
Business / UI classification: Neutral code