home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Global Amiga Experience
/
globalamigaexperience.iso
/
applications
/
databases
/
databasepro
/
picbase
/
picturebasepbm
< prev
next >
Wrap
Text File
|
1995-07-10
|
977b
|
25 lines
Assign > NIL: JPEGTMP: EXISTS
IF WARN
Assign JPEGTMP: T:
ENDIF
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
Assign PBMBIN: PicBase/bin
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/PicbasePBM.rexx $thumbpath $source %p%n %l $DBpath"
Execute T:script
Delete > NIL: T:script
ENDIF
ENDIF