"자기 자신의 로컬 디렉토리 찾기(CV03 다운시)
DATA: LF_TMP_DIR TYPE STRING.
CALL METHOD CL_GUI_FRONTEND_SERVICES=>GET_TEMP_DIRECTORY
CHANGING: TEMP_DIR = LF_TMP_DIR
EXCEPTIONS: CNTL_ERROR = 1
ERROR_NO_GUI = 2
NOT_SUPPORTED_BY_GUI = 3
OTHERS = 4.
IF SY-SUBRC <> 0.
ENDIF.
CALL METHOD CL_GUI_CFW=>FLUSH.
IF LF_TMP_DIR IS INITIAL.
CALL METHOD CL_GUI_FRONTEND_SERVICES=>GET_SAPGUI_DIRECTORY
CHANGING: SAPGUI_DIRECTORY = LF_TMP_DIR
EXCEPTIONS: CNTL_ERROR = 1
NOT_SUPPORTED_BY_GUI = 2
OTHERS = 3.
IF SY-SUBRC <> 0.
ENDIF.
CALL METHOD CL_GUI_CFW=>FLUSH.
ENDIF.
"로컬 디렉토리의 파일 리스트 검색
DATA: L_FILETAB LIKE FILE_TABLE OCCURS 0 WITH HEADER LINE .
DATA: L_COUNT TYPE I.
DATA: DIR TYPE STRING.
DIR = LF_TMP_DIR.
CALL METHOD CL_GUI_FRONTEND_SERVICES=>DIRECTORY_LIST_FILES
EXPORTING
DIRECTORY = DIR
* FILTER = '*.JPG'
* FILES_ONLY = 'X'
* DIRECTORIES_ONLY = 'X'
CHANGING
FILE_TABLE = L_FILETAB[]
COUNT = L_COUNT
EXCEPTIONS
CNTL_ERROR = 1
DIRECTORY_LIST_FILES_FAILED = 2
WRONG_PARAMETER = 3
ERROR_NO_GUI = 4
NOT_SUPPORTED_BY_GUI = 5
OTHERS = 6.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
"로컬 디렉토리의 파일 리스트 삭제 처리
LOOP AT L_FILETAB.
DATA: FILE_PATH TYPE STRING,
RET_VAR TYPE I.
FILE_PATH = L_FILETAB-FILENAME.
CONCATENATE DIR '' L_FILETAB-FILENAME INTO FILE_PATH.
CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_DELETE
EXPORTING
FILENAME = FILE_PATH
CHANGING
RC = RET_VAR
EXCEPTIONS
FILE_DELETE_FAILED = 1
CNTL_ERROR = 2
ERROR_NO_GUI = 3
FILE_NOT_FOUND = 4
ACCESS_DENIED = 5
UNKNOWN_ERROR = 6
NOT_SUPPORTED_BY_GUI = 7
WRONG_PARAMETER = 8
OTHERS = 9.
ENDLOOP.
IF SY-SUBRC = 0.
ENDIF.
*로컬 PC에서 폴더 생성(이미 존재하는 폴더인지 확인후 존재할 경우 삭제후 생성)
<style type="text/css">
SPAN {
font-family: "Fixedsys";
font-size: 10pt;
color: #000000;
background: #FFFFFF;
}
.L0S31 {
font-style: italic;
color: #808080;
}
.L0S32 {
color: #3399FF;
}
.L0S33 {
color: #4DA619;
}
.L0S52 {
color: #0000FF;
}
.L0S55 {
color: #800080;
}
.L0S70 {
color: #808080;
}
</style>
DATA: LV_EXIST TYPE C.
*---function module to exist folder on presentation server
CALL FUNCTION 'TMP_GUI_GET_FILE_EXIST'
EXPORTING
FNAME = 'C:AAA'
IMPORTING
EXIST = LV_EXIST
EXCEPTIONS
FILEINFO_ERROR = 1
OTHERS = 2.
CHECK SY-SUBRC = 0.
IF LV_EXIST IS NOT INITIAL.
*---function module to delete folder on presentaion server
CALL FUNCTION 'TMP_GUI_REMOVE_DIRECTORY'
EXPORTING
DIRNAME = 'C:AAA'
EXCEPTIONS
FAILED = 1
OTHERS = 2.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDIF.
CHECK SY-SUBRC = 0.
*---function module to create folder on presentation server
CALL FUNCTION 'TMP_GUI_CREATE_DIRECTORY'
EXPORTING
DIRNAME = 'C:AAA'
NO_FLUSH = ' '
EXCEPTIONS
FAILED = 1
OTHERS = 2.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
404 |
abap general
![]() | sapjoy | 2007.06.12 | 5521 |
403 |
Users_and_Roles_620
[5] ![]() | sapjoy | 2007.02.28 | 5526 |
402 |
Screen_Painter_and_Menu_Painter
[2] ![]() | sapjoy | 2007.03.12 | 5535 |
401 |
BADI for CMOD
[4] ![]() | 마달수 | 2007.03.28 | 5535 |
400 |
SAPSCRIPTS Guide (ACCENTURE).pdf
[6] ![]() | sapjoy | 2007.02.15 | 5538 |
399 |
Web Dynpro를 아세요? - III
[6] ![]() | 이선구 | 2007.03.06 | 5547 |
398 |
ABAP Debugging Tips and Tricks
[4] ![]() | 아밥뽀 | 2016.03.31 | 5563 |
397 |
NEW ABAP EDITOR
[9] ![]() | sapjoy | 2007.03.02 | 5564 |
396 | selection screen program [1] | 철죽1 | 2012.09.02 | 5575 |
395 |
ABAP 개발 가이드 입니다.
[6] ![]() | pimpjin | 2008.03.03 | 5600 |
394 |
APO&BW
[1] ![]() | sonata | 2009.09.22 | 5608 |
393 |
Sap User-Exit
[13] ![]() | 곰돌이 | 2007.07.27 | 5612 |
392 |
ALV개념 정리
[20] ![]() | 팡다루 | 2007.03.22 | 5615 |
391 |
Essential_ABAP_Objects
![]() | 우하하 | 2007.06.27 | 5648 |
390 |
유용한 함수 모음 입니다...^^;
[11] ![]() | 이원욱 | 2007.03.15 | 5661 |
389 |
ABAP INTERPACE에 관한 개념정리 문서
[5] ![]() | 초보보초보 | 2007.02.28 | 5667 |
388 |
bdc레코딩및예제
[31] ![]() | BC고 | 2009.05.14 | 5686 |
387 | FIELD-SYMBOL 정리 [1] | 하얀천군 | 2007.11.02 | 5702 |
» | 로컬 파일 삭제 [2] | 밤의화신 | 2014.12.23 | 5718 |
385 |
open sql
[1] ![]() | 김경재 | 2008.01.07 | 5721 |
좋은팁 공유 감사합니다.