Dynamic folder creation on server

Question

hi all,
i'm working with 9i and using webutil for file tranfer from client to server now i want this uploaded file to be stored in a folder created dynamically on the server..any help

Answer 1

create the procedure in your form. below is my sample codes:
PROCEDURE chkstatus_mkdir_4ws( wk_ip_adr in varchar2,
usr_name in varchar2,
pss_wrd in varchar2,
accnt_ok out boolean) IS
ftp_dir_file UTL_FILE.FILE_TYPE;
ftp_log_file UTL_FILE.FILE_TYPE;
ftp_dir_file_name varchar2(40);
ftp_log_file_name varchar2(40);
ftp_command varchar2(60);
veh varchar2(6) := LOWER(NAME_IN('GLOBAL.VEHICLE_LINE'));
phs varchar2(25) := LOWER(NAME_IN('GLOBAL.DESIGN_PHASE'));
tid varchar2(20) := LOWER(NAME_IN('GLOBAL.TNUMBER'));
Oracle_dir varchar2(6);
v_ErrorCode number(8); ---PROBLEM HERE
v_ErrorText varchar2(200);
v_str1 varchar2(500);
Begin
--- build the ftp directive file
Oracle_dir := '/tmp';
ftp_dir_file_name := usr_name || '_ftpcm_dir';
ftp_log_file_name := usr_name || '_ftpcm_log';
ftp_dir_file := UTL_FILE.FOPEN(Oracle_dir, ftp_dir_file_name, 'W');
UTL_FILE.PUTF(ftp_dir_file, 'open %s\n', wk_ip_adr);
UTL_FILE.PUTF(ftp_dir_file, 'user %s %s\n',usr_name,pss_wrd);
UTL_FILE.PUTF( ftp_dir_file, 'cd hlink.projects\n');
UTL_FILE.PUTF( ftp_dir_file, 'mkdir e3d\n');
UTL_FILE.PUTF( ftp_dir_file, 'cd e3d\n' );
UTL_FILE.PUTF( ftp_dir_file, 'mkdir %s\n', veh );
UTL_FILE.PUTF( ftp_dir_file, 'cd %s\n', veh );
UTL_FILE.PUTF( ftp_dir_file, 'mkdir %s\n', phs );
UTL_FILE.PUTF( ftp_dir_file, 'cd %s\n', phs );
UTL_FILE.PUTF( ftp_dir_file, 'quit\n' );
UTL_FILE.FCLOSE(ftp_dir_file);
--- invoke the ftp command to run the directive file----
ftp_command := 'ftp -n -v < '
|| Oracle_dir || '/' || ftp_dir_file_name
|| ' > '
|| Oracle_dir || '/' || ftp_log_file_name;
host(ftp_command);
--- Read results from ftp log file to determine if supplied account worked ok
ftp_log_file := UTL_FILE.FOPEN(Oracle_dir,ftp_log_file_name, 'R');
accnt_ok := FALSE;
LOOP
BEGIN
UTL_FILE.GET_LINE(ftp_log_file,v_str1);
EXCEPTION
WHEN NO_DATA_FOUND THEN
message('The workstation selected is not reachable from DTDB application.');
message(' ');
EXIT;
END;
IF INSTR(v_str1,'230') > 0 THEN
accnt_ok := TRUE;
EXIT;
ELSIF INSTR(v_str1, '530') > 0 THEN
message('The incorrect User Name or Password was supplied.');
message(' ');
EXIT;
End IF;
END LOOP;
UTL_FILE.FCLOSE(ftp_log_file);
--- Exception handeling
Exception
When UTL_FILE.INVALID_OPERATION THEN
UTL_FILE.FCLOSE(ftp_dir_file);
Message('INVALID OPERATION... ftp 2 workstation');
WHEN UTL_FILE.WRITE_ERROR THEN
UTL_FILE.FCLOSE(ftp_dir_file);
Message('WRITE ERROR.... ftp 2 workstation');
WHEN UTL_FILE.INVALID_PATH THEN
UTL_FILE.FCLOSE(ftp_dir_file);
Message('WRONG PATH... ftp 2 workstation');
WHEN UTL_FILE.INVALID_MODE THEN
UTL_FILE.FCLOSE(ftp_dir_file);
Message('WRONG MODE... ftp 2 workstation');
WHEN UTL_FILE.INVALID_FILEHANDLE THEN
UTL_FILE.FCLOSE(ftp_dir_file);
Message('Invalid file handle "ftp_dir_file" ftp 2 workstation ');
WHEN OTHERS THEN
UTL_FILE.FCLOSE(ftp_dir_file);
v_ErrorCode := SQLCODE;
v_ErrorText := substr(SQLERRM, 1, 200);
message('Just known Internal Error: '||v_ErrorCode||'=>'||v_ErrorText);
End;