[52203] in SAPr3-news
Re: Filesystem auslesen
daemon@ATHENA.MIT.EDU (GreyDeath)
Thu Nov 11 01:23:41 2004
To: sapr3-news@mit.edu
Date: Thu, 11 Nov 2004 07:18:25 +0100
From: GreyDeath <GreyDeath@Hell.com>
Message-ID: <41930567$0$322$4d4eb98e@read.news.fr.uu.net>
Markus Nacke wrote:
> Hi Leute
>
> ich suche einen Funktionsbaustein, mit dem ich das Filesystem auslesen
> kann.
> Ich möchte also den Inhalt von Serververzeichnissen ermitteln.
> Dazu sollte es möglich sein, alle Dateien eines Dirs auszulesen und
> feedback darüber zu bekommen, ob es sich bei den jeweiligen Dateien um ein
> Verzeichnis oder eine Datei handelt.
> Kennt jemand da was passendes?
>
> Oder muß ich durch die Bank weg mit Betriebsystemcommandos arbeiten ??
Hi,
ich mache das so:
CALL 'C_DIR_READ_START' ID 'DIR' FIELD A_DIR_NAME
ID 'FILE' FIELD A_GENERIC_NAME
ID 'ERRNO' FIELD FILE-ERRNO
ID 'ERRMSG' FIELD FILE-ERRMSG.
DO.
CALL 'C_DIR_READ_NEXT'
ID 'TYPE' FIELD FILE-TYPE
ID 'NAME' FIELD FILE-NAME
ID 'LEN' FIELD FILE-LEN
ID 'OWNER' FIELD FILE-OWNER
ID 'MTIME' FIELD FILE-MTIME
ID 'MODE' FIELD FILE-MODE
ID 'ERRNO' FIELD FILE-ERRNO
ID 'ERRMSG' FIELD FILE-ERRMSG.
CASE SY-SUBRC.
WHEN 0.
* ok
WHEN 1.
EXIT.
WHEN OTHERS. " SY-SUBRC >= 2
ENDCASE.
ENDDO.
CALL 'C_DIR_READ_FINISH'
ID 'ERRNO' FIELD ERRNO
ID 'ERRMSG' FIELD ERRMSG.
Ist ein wenig umständlich, funktioniert aber.
Gruß
