• Als Spam markieren
• Beitrag melden

• 
  Diese Gruppe Alles

• Archiv
• RSS-Feeds

• Kontakt
• Hilfe
• Impressum
• Datenschutz

SysCreateObject von echten Directories

Von diesem Objektkram hab ich mich ja bisher immer ferngehalten, aber
jetzt wird es wohl nötig: nach der Neuinstallation von DrDialog (nach
einer Neuinstallation von OS/2) gibt es einen Ordner "DrDialog" auf
der Arbeitsoberfläche (bzw. gleich verschoben nach "PDev" für
"Program
Development"), aber die Unterverzeichnisse des Directory DrDialog, die
früher immer in diesem Folder sichtbar waren, sind es nicht mehr.

In diesen Unterverzeichnissen sind meine DrDialog-Programme, und ich
brauche die als Icons oder Objekte in so einem Folder, um die mit
Drag-und-Drop auf REStoEXE z.B. zu ziehen.

Jetzt will ich in dem DrDialog-Folder die drei Unterverzeichnisse des
Verzeichnisses DrDialog erzeugen, und versuche das mit REXX
(natürlich), aber es klappt nicht. Diese Sub-Folder sollen natürlich
automatisch alle Dateien anzeigen, die in diesen Verzeichnissen
enthalten sind. Früher war das alles da, ohne Probleme...

Die Beschreibung der Funktion SysCreateObject in IBM's Handbuch zu
REXX (das allerdings noch aus der "OS/2 2.0 Technical Library" stammt)
paßt anscheinend nicht mehr zu dem, was heutzutage gefordert ist
(jetzt OS/2 Warp 4 mit FP15).

Welche Paramter muß ich dem SysCreateObject mitgeben? Mein letzter
Versuch sieht so aus (die Zitatzeichen am Zeilenanfang sollen ein
Umbrechen der Zeilen verhindern):

------- schnipp --------------------
> /* REXX */
> /* Register subdirectories as WP Objects */
>
> CALL RxFuncAdd "SysLoadFuncs", "RexxUtil",
"SysLoadFuncs"
> Call SysLoadFuncs
>
> verzeichnisAktuell = DIRECTORY()
> erg =
SysFileTree(verzeichnisAktuell"\*.*","subdir","DO")
> DO i = 1 TO subdir.0
>   rc = SysCreateObject("WPfolder",FILESPEC(subdir.i,
"NAME"),"<DRDIALOG>",subdir.i||"\")
>   IF rc = 1 THEN
>     SAY "Erfolg:  " subdir.i
>   ELSE
>     SAY "Fehler:  " subdir.i
> END
> EXIT

---------------- schnapp ------------------





-- -----------------------------------------------------
Was Ahmadinejad wirklich sagte:
<http://www.presstv.ir/detail.aspx?id’046>

Antworten