home *** CD-ROM | disk | FTP | other *** search
- ; DiskSalv Installer Skript
- ;
-
- (welcome "DiskSalv 3 Installer")
-
- (complete 0)
-
- (set dirname
- (askdir
- (prompt "In welchem Verzeichnis wollen Sie DiskSalv installieren?")
- (disk)
- (newpath)
- (help @askdir-help)
- (default "SYS:Tools")
- )
- )
-
- (set dirname_cat (tackon dirname "Catalogs"))
-
- (if (= (exists dirname) 0)
- (makedir dirname
- (prompt "Das Verzeichnis " dirname " wird erzeugt...")
- (help @makedir-help)
- (infos)
- )
- )
-
- (makedir dirname_cat
- (prompt "Das Verzeichnis " dirname_cata " wird erzeugt...")
- (help @makedir-help)
- )
-
- (complete 10)
-
- (copyfiles
- (prompt "Kopiere Dateien nach " dirname ".")
- (help @copyfiles-help)
- (source "DiskSalv:")
- (pattern "DiskSalv#?")
- (dest dirname)
- )
-
- (complete 75)
-
- (copyfiles
- (prompt "Kopiere Dateien nach " dirname_cata ".")
- (help @copyfiles-help)
- (source "DiskSalv:Catalogs")
- (dest dirname_cat)
- (all)
- )
-
- (complete 100)
-