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