Ton code est meilleur que le mien. Toutefois, avec le serveur ftp windows; il ne permet pas de remonter jusqu'à'à la racine. Il s'arrête au répertoire immédiatement supérieur.
Version imprimable
Ton code est meilleur que le mien. Toutefois, avec le serveur ftp windows; il ne permet pas de remonter jusqu'à'à la racine. Il s'arrête au répertoire immédiatement supérieur.
Voici un code qui fonctionne dans tous les cas:
Code:
1
2
3
4
5
6
7
8 IF :FILES.FILE_NAME = '..' THEN :BL.DIRNAME := nvl(substr(RTRIM(:BL.DIRNAME,'/'), 1, instr(RTRIM(:BL.DIRNAME,'/'), '/',-1) -1), '/'); ELSE :BL.DIRNAME := RTRIM(:BL.DIRNAME,'/') || '/' || :FILES.FILE_NAME; END IF; If Substr(:BL.DIRNAME,Length(:BL.DIRNAME),1) = ':' Then :BL.DIRNAME := :BL.DIRNAME || '/' ; End if;
L'utilitaire TYPSoft FTP Server ne reconnait pas cette commande...