Thread: XAD commands
View Single Post
Old 10 June 2020, 16:56   #6
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...
Thanks a lot Jpv. I will experiment with this for sure.

In the meantime what i found is the following:

1) xadunfile {fu} DESTDIR "RAM:{o}/" DARC

The above extracts a dms file and creates a folder in ram which has the same name as the dms file. Changing the DARC command with DIMG, it extracts adf files.

2) If you don't want automatic folder creation and you want to create your own then swap the "RAM:{o}/" with "{Rd}/" and a requester will come up and you choose where you want it extracted.

Now back to Jpv script to experiment.

Last edited by npagonis73; 10 June 2020 at 16:57. Reason: Mistake
npagonis73 is online now  
 
Page generated in 0.06805 seconds with 11 queries