图片上传正在进行中4gl

Question

如何上传多张图片并将其保存在本地或正在进行的服务器中4gl并重命名每张图片？试图搜索谷歌关键字“正在上传图片4gl/opensge”，但没有结果。

Answer 1

好日子

我发现了一些代码在互联网和一些tweeks这是我的代码之后：

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.