Thread: XAD commands
View Single Post
Old 10 June 2020, 22:26   #9
npagonis73
Registered User

npagonis73's Avatar
 
Join Date: Sep 2019
Location: Corfu / Greece
Posts: 139
Quote:
Originally Posted by jPV View Post
I once made this kind of AmigaDOS script for unarchiving adf files to a selected destination. It accepts adf filename as an argument and then it creates dirs with adf names to the destination where it unarchives them. Maybe there would be a simplier solution too, but if you want to test or play around:
Code:
.KEY FILE
If EXISTS "<FILE>"
    If EXISTS ENV:rnounadfd
        Set defdir $rnounadfd
    Else
        Set defdir "RAM:"
    EndIf
    C:RequestFile DRAWERSONLY TITLE "Select destination..." DRAWER="$defdir" > ENV:rnounadfd
    If NOT WARN
        CD $rnounadfd
        List "<FILE>" LFORMAT="%M" > ENV:rnounadff
        C:XADUnFile "<FILE>" "$rnounadff" DIMG
        Delete ENV:rnounadff >NIL:
    Else
        Delete ENV:rnounadfd >NIL:
    EndIf
    UnSet defdir
EndIf
BTW. I'm using this on MorphOS, so let me know if it fails on Amiga for some reason...
JPV does that script works as it is in dopus if I choose amigados or do I need to do anything else?
npagonis73 is online now  
 
Page generated in 0.04388 seconds with 11 queries