שלום לכולם
תודה מראש לעזורים.
אני מנסה לקרוא קבצים שיש בתיקייה מסוימת ולהעתיק אותם לתיקייה אחרת. הסתכלתי ב – SDK והתאמתי לצרכים שלי.
לפי ה – SDK, משתנה PATH אמור להחזיק את שם הקובץ (/* now the variable :path holds the filename */)
רציתי לראות שאני מקבל את השם של הקובץ כמו שצריך אז השתמשתי בהכנסה ל – GENERALLOAD.
כשאני מכניס את השורה הזאת
INSERT INTO GENERALLOAD(LINE, TEXT)
VALUES(1, :PATH);
אני מקבל רק את נתיב הקובץ בלי השם שלו.C:\Users\Master\Desktop\New folder (2)/
כשאני מכניס את השורה הזאת
INSERT INTO GENERALLOAD(LINE, TEXT)
VALUES(1, :FILENAME);
אני מקבל ערך ריק.
אני פשוט לא מצליח לקבל את שם הקובץ אבל משום מה ההעתקה לקובץ היעד עובדת בסדר גמור. מה אני עושה לא בסדר?
זה הקוד.
<p style="direction: ltr;">:DIR = 'C:\Users\Master\Desktop\New folder (2)';</p>
<p style="direction: ltr;">:DES = 'D:\TEST';</p>
<p style="direction: ltr;">SELECT SQL.TMPFILE INTO :ST6 FROM DUMMY;</p>
<p style="direction: ltr;">SELECT SQL.TMPFILE INTO :MSG FROM DUMMY;</p>
<p style="direction: ltr;">EXECUTE FILELIST :DIR,:ST6,:MSG;</p>
<p style="direction: ltr;">LINK STACK6 TO :ST6;</p>
<p style="direction: ltr;">GOTO 99 WHERE :RETVAL <= 0;</p>
<p style="direction: ltr;">DECLARE NEWFILES CURSOR FOR</p>
<p style="direction: ltr;">SELECT NAME FROM STACK6;</p>
<p style="direction: ltr;">OPEN NEWFILES;</p>
<p style="direction: ltr;">GOTO 90 WHERE :RETVAL <= 0;</p>
<p style="direction: ltr;">:FILENAME = ";</p>
<p style="direction: ltr;">LABEL 10;</p>
<p style="direction: ltr;">FETCH NEWFILES INTO :FILENAME;</p>
<p style="direction: ltr;">GOTO 85 WHERE :RETVAL <= 0;</p>
<p style="direction: ltr;">:TOFILENAME = STRCAT(:DES,'/', :FILENAME);</p>
<p style="direction: ltr;">:PATH = STRCAT(:DIR,'/',:FILENAME);</p>
<p style="direction: ltr;">INSERT INTO GENERALLOAD(LINE, TEXT)</p>
<p style="direction: ltr;">VALUES(1, :FILENAME);</p>
<p style="direction: ltr;">EXECUTE COPYFILE :PATH, :TOFILENAME;</p>
<p style="direction: ltr;">LOOP 10;</p>
<p style="direction: ltr;">LABEL 85;</p>
<p style="direction: ltr;">CLOSE NEWFILES;</p>
<p style="direction: ltr;">LABEL 90;</p>
<p style="direction: ltr;">UNLINK STACK6;</p>
<p style="direction: ltr;">LABEL 99;</p>
<p style="direction: ltr;"></p>
.
