图片上传正在进行中4gl
答
好日子
我发现了一些代码在互联网和一些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.
+0
如果这适用于您,并且您对所发现的内容感到满意,请将您的答案标记为已接受。这样其他人就会知道这个问题的答案。 – Jan
平台? WEBSPEED? Winform的?自定义窗口控件? – Jensd
Windows ..进度应用程序生成器版本9.1E – noob