progress-4gl - 目录Progress 4gl中特定文件夹中未决文件的程序

Question

用于从目录中的特定文件夹中挂起文件的程序，该文件需要具有特定的扩展名，如 xml。如果文件挂起超过 5 个，则发送邮件警报。有人请帮助我。我是4gl的菜鸟。

标签： progress-4gl

Answer 1

下面的代码将帮助您计算文件夹中的文件数。您将需要某种发送电子邮件的方式，而 Progress 没有这种方式。

您可以在网上找到一个名为 smptmail.p 的旧库。可能还有更好的解决方案。

DEFINE VARIABLE cFile     AS CHARACTER NO-UNDO.
DEFINE VARIABLE iXmlFiles AS INTEGER   NO-UNDO.

DEFINE STREAM str.

INPUT STREAM str FROM OS-DIR("c:\temp\").
REPEAT :
    IMPORT STREAM str cFile.

    IF cFile MATCHES "*.xml" THEN 
        iXmlFiles = iXmlFiles + 1.
END. 
INPUT STREAM str CLOSE.         

IF iXmlFiles >= 5 THEN      
    MESSAGE "Alert. There are " iXmlFiles "xml files" VIEW-AS ALERT-BOX WARNING.