圖片上傳正在進行中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.