script for verify the File Path?
Posted: 2013-09-28 09:58:15
There is a way for verity if all the File Path are correct?
Thanks
Thanks
Code: Select all
program CheckFilePath;
var
Path: string;
List: TStringList;
begin
if GetIteration = 0 then
begin
List := TStringList.Create;
end;
Path := GetField(fieldFilePath);
if not FileExists(Path) and not DirectoryExists(Path) then
begin
List.Add(' - ' + GetField(fieldFormattedTitle) + ' : ' + Path)
end;
if GetIteration = GetIterationCount-1 then
begin
ShowMemo('List of movies whose file path does not exist:' + #10 + List.Text);
List.Free;
end;
end.