home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Global Amiga Experience
/
globalamigaexperience.iso
/
applications
/
databases
/
databasepro
/
picbase
/
picturebase
< prev
next >
Wrap
Text File
|
1995-07-10
|
947b
|
20 lines
SYS:Rexxc/Rx 'ADDRESS DataBase DBTOFRONT'
C:Requestfile > ENV:picpath DRAWERSONLY TITLE="Quellpfad der Bilder" NOICONS PUBSCREEN DataBase
IF $picpath gt ""
CD > ENV:DBpath
C:Requestfile > ENV:thumb DRAWER $DBpath/PicBase DRAWERSONLY TITLE="Pfad für Vorschaubilder" NOICONS PUBSCREEN DataBase
IF $thumb gt ""
Echo > ENV:thumbpath $thumb
Echo > ENV:source $picpath
SYS:Rexxc/Rx 'ADDRESS DataBase Message "Erzeuge Verzeichnisstruktur für Vorschaubilder ..."'
List > T:script $picpath dirs all lformat="SYS:Rexxc/rx $DBpath/PicBase/MakeDirs.rexx $source %p%n $thumbpath"
Execute T:script
SYS:Rexxc/Rx 'ADDRESS DataBase Message "Scanne Quellpath der Bilder ..."'
List > T:script $picpath files all lformat="SYS:Rexxc/rx $DBpath/PicBase/Picbase.rexx $thumbpath $source %p%n %l $DBpath"
SYS:Rexxc/Rx 'ADDRESS DataBase Request "_Ja" "ADPro gestartet ?"'
Execute T:script
Delete > NIL: T:script
ENDIF
ENDIF