topic Re: Create folder in application server in Application Development and Automation Discussions

Create folder in application server

Former Member — Mon, 24 Aug 2009 11:18:15 GMT

Hi friends,

I have to create a folder in application server and create files in the folder. I am using function module 'BRAN_DIR_CREATE' for creating folder. It is working fine but it is accepting path of max. 55 characters.

But my requirement needs path of > 55 characters. Is there any alternative for this function module which accepts path > 55 characters.

Thanks in advance.

Regards

Vasu

Re: Create folder in application server

Former Member — Mon, 24 Aug 2009 11:27:11 GMT

hi,

use this fm .

WBMR_CREATE_APPL_FOLDER

rgrds,

Shweta

Re: Create folder in application server

Former Member — Mon, 24 Aug 2009 11:32:19 GMT

Hi,

Refer

Re: Create folder in application server

Former Member — Mon, 24 Aug 2009 11:33:38 GMT

Hi Vasu,

you can create folder in application server by using transaction code ' AL11' .

Check the link given to create:

Hope it helps you.

Thanks,

Sarita Singh

Re: Create folder in application server

Former Member — Mon, 24 Aug 2009 11:33:39 GMT

Hi,

Use this FM.

FM: - SO_FOLDER_INSERT_API1

Regards,

Shamma

Re: Create folder in application server

Former Member — Mon, 24 Aug 2009 14:40:23 GMT

Hi Vasu,

Do one thing. Try to write the statemnt

w_command type c value 'mkdir testdir'.

CALL 'SYSTEM' ID 'COMMAND' FIELD w_command.

Hope this helps...

Thanks,

Babu Kilari

Re: Create folder in application server

Former Member — Wed, 02 Dec 2009 08:12:10 GMT

Did not get the required answer. Closing thread as of now.

Re: Create folder in application server

Former Member — Thu, 24 Jan 2013 13:13:25 GMT

Hi Vasu,

The following code for create folder in application server.

DATA: l_com TYPE rlgrap-filename.

CALL FUNCTION 'PFL_CHECK_DIRECTORY'

EXPORTING

directory = directory " Application server path(\\test\test1\test2)

EXCEPTIONS

pfl_dir_not_exist = 1.

IF sy-subrc = 1.

CONCATENATE 'cmd /c mkdir' directory INTO l_com SEPARATED BY space.

CALL 'SYSTEM' ID 'COMMAND' FIELD l_com.

ENDIF.

Re: Create folder in application server

Former Member — Sun, 21 Dec 2014 09:58:23 GMT

1. Copy FM 'BRAN_DIR_CREATE' to a custom FM 'ZBRAN_DIR_CREATE'.

2. Change the TYPE to STRING from BRANINT-DIRNAME for import parameter DIRNAME

3. Change/Increase the length by 50 or more for the field COMMAND1 in source code line# 11.

4. Change COMMAND1+9(55) = DIRNAME. to COMMAND1+9(105) = DIRNAME.

FUNCTION ZBRAN_DIR_CREATE.
*"----------------------------------------------------------------------
*"*"Local Interface:
*" IMPORTING
*"     VALUE(DIRNAME) TYPE STRING
*" EXCEPTIONS
*"      ALREADY_EXISTS
*"      CANT_CREATE
*"----------------------------------------------------------------------

DATA: COMMAND1(120),
       SRVNAME(20),
       BEGIN OF TABL OCCURS 0,
         LINE(200),
       END OF TABL.
DATA: BEGIN OF FILE_LIST OCCURS 0.
         INCLUDE STRUCTURE MSXXLIST.
DATA: END OF FILE_LIST.

   CLEAR FILE_LIST.
   SRVNAME = SPACE.

   CALL FUNCTION 'RZL_READ_DIR'
        EXPORTING NAME            = DIRNAME
                  SRVNAME         = SRVNAME
        TABLES    FILE_TBL        = FILE_LIST
        EXCEPTIONS NOT_FOUND      = 1
                   ARGUMENT_ERROR = 2
                   SEND_ERROR     = 3.

   IF SY-SUBRC EQ 0.
     RAISE ALREADY_EXISTS.
   ENDIF.

   COMMAND1(9)    = 'mkdir -p '.
COMMAND1+9(105) = DIRNAME.

   CALL 'SYSTEM' ID 'COMMAND' FIELD COMMAND1
                 ID 'TAB'     FIELD TABL-*SYS*.

   CLEAR FILE_LIST.
   SRVNAME = SPACE.

   CALL FUNCTION 'RZL_READ_DIR'
        EXPORTING NAME            = DIRNAME
                  SRVNAME         = SRVNAME
        TABLES    FILE_TBL        = FILE_LIST
        EXCEPTIONS NOT_FOUND      = 1
                   ARGUMENT_ERROR = 2
                   SEND_ERROR     = 3.

   IF SY-SUBRC NE 0.
     RAISE CANT_CREATE.
   ENDIF.

ENDFUNCTION.