home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Finance / Finance.zip / fibu19.zip / 1.cmd next >
OS/2 REXX Batch file  |  1996-10-18  |  752b  |  17 lines
  1. /**/
  2. arg Ziel
  3.  
  4. call sysini Ziel'\KTODAT.INI','KTO','ALL:','Konten'
  5. do i=1 to Konten.0
  6. Name="KTO"Konten.i
  7. inf=stream(Ziel'\'Name,'C','Query Exists')
  8. if inf='' then call lineout(Ziel'\'name) 
  9. end
  10.  
  11. /* Erstellen eines Ordnerobjekts, anschließend Erstellen eines */
  12. /* Programmobjekts in diesem Ordner.*/
  13. ERG=SysCreateObject("WPFolder", "Finanzbuchhaltung"d2c(10)"für OS/2", "<WP_DESKTOP>","OBJECTID=<FIBUORDNER>;ICONFILE="Ziel"\fibu.ico",'R')
  14. ERG=SysCreateObject('WPProgram', 'FIBU 1.9', '<FIBUORDNER>','EXENAME='Ziel'\FIBU.EXE;STARTUPDIR='Ziel';PROGTYPE=PM;', 'U')
  15. ERG=SysCreateObject('WPProgram', 'Wichtige'd2c(10)'Informationen', '<FIBUORDNER>','EXENAME='view.exe';STARTUPDIR='Ziel';PROGTYPE=PM;PARAMETERS='Ziel'\Readme.inf', 'U')
  16. exit
  17.