图像上传正在进行4gl

Question

如何上传多个镜像并保存到本地或服务器中，进度4gl中，如何重命名每个镜像？我试着用关键词"upload images in progress 4gl / openedge“搜索google，但是没有结果。

Answer 1

日安：

我在互联网上找到了一些代码，几个月后，这是我的代码：

OS-CREATE-DIR VALUE(todr_name).
stat = OS-ERROR.
IF stat NE 0 THEN
  MESSAGE "Directory not created. System Error #" stat.

ic = 0.

INPUT FROM OS-DIR (frdr_name).

REPEAT:
    IMPORT cFileShort cFileLong cType. 

    /*MESSAGE /*cFileShort*/ /*cFileLong*/ cType VIEW-AS ALERT-BOX INFO.*/

    /* File or Directory ? */
    IF cType MATCHES "*F*" THEN DO:
        ic = ic + 1.
        /*MESSAGE "ShortFileName" cFileShort SKIP
                "LongFileName" cFileLong VIEW-AS ALERT-BOX INFO.*/

        MESSAGE STRING(ic) + ".jpg" VIEW-AS ALERT-BOX INFO.

        OS-COPY VALUE (cFileLong) VALUE (SUBSTITUTE (todr_name, cFileShort )).
        OS-RENAME VALUE(todr_name + "\" + cFileShort) VALUE(todr_name + "\" + STRING(ic) + ".jpg").

        /*IF OS-ERROR = 0 THEN 
            OS-DELETE VALUE (cFileLong).*/
    END.

END.