[ - Answer - Quote - Direct link - ]

code:

---

list >ram:script work:spiele/#?.adf lformat="requestchoice ADF-Screiber *"Bitte neue Diskette für %n einlegen !*" Ok*ntsgui write df0: *"%p%n*""
execute ram:script

---

[ - Answer - Quote - Direct link - ]

Achso!

Gibs das auch für doofe? So wie mich?
Gruß notime

[ - Answer - Quote - Direct link - ]

Zitat:

---

Original von notime:
Achso!

Gibs das auch für doofe? So wie mich?
Gruß notime

---

Wie meinst Du das? Kopiere die Zeilen in einen Editor und speichere
es unter S:DeinScript ab. Für DeinScript kannst Du natürlich einen
beliebigen Namen wählen. Dann machst eine Shell (CLI) auf, tippst
"protect S:DeinScript +s" und dann kannst Du es ganz einfach durch
Eingabe des Namens starten.

Gruß Stefan

[ - Answer - Quote - Direct link - ]

[ - Answer - Quote - Direct link - ]

@ notime

Ich habe das Script von thomas noch ein bisschen "aufgemotzt" - (ich glaub ich habe zuviel Zeit )
Andererseits befriedigt mich der Gedanke, das dir jetzt die Haare wohl richtig hochstehen!

Die Verbesserung an diesem Skript ist, das es bei allen ADF-Files, die du schon auf Diskette hast, das sogenannte Archived-Schutzbit setzt, und diese schon geschriebenen ADF's nicht nochmal schreiben will - ich gehe mal davon aus, das du nicht alle 400 ADF's in einem Rutsch schreiben willst.
Kurz gesagt, es macht beim nächsten mal dort weiter, wo du aufgehört hast.
Du benötigst natürlich dazu TSGui, was du z.B.
hier im Downloadbereich bekommst. TSGui selber gehört z.B. dann nach C: oder ein Verzeichnis, wo es gefunden wird.
Mit dem Script kannst du so verfahren, wie es Stefan vorgeschlagen hat.
Speicherst du es bsw. in S: unter WriteADF ab, kannst du es aufrufen,
indem du in eine Shell eingibst:

execute WriteADF _Dein_ADF_Directory_Pfad/

oder nach setzen das Script-Bits einfach mit

WriteADF _Dein_ADF_Directory_Pfad/

Du musst allerdings noch eine kleine Änderung vornehmen. Alle
Anführungszeichen wie diese >>''<< müssen in andere Anführungszeichen umgewandelt werden. Diese Zeilen habe ich rechts mit einen ;* gekennzeichnet
Die benötigten Anführungszeichen laufen von oben links nach unten rechts - musst Du mal auf der Tastatur suchen.

code:

---

.key Dir/A
.bra {
.ket }

echo ".key File*n.bra [*n.ket ]" >T:Temp.script
echo noline "echo noline first 4 len 1 '" >>T:Temp.script ;*
echo "list *"[File]*" lformat %a' >ENV:Attr" >>T:Temp.script ;*
echo noline "If $" >>T:Temp.script
echo "Attr EQ *"-*"" >>T:Temp.script
echo noline "If '" >>T:Temp.script ;*
echo "requestchoice *"Next ADF*" *"Neue Disk einlegen für [File]*" Ok Ende' EQ *"1*" VAL" >>T:Temp.script ;*
echo "tsgui write DF0: *"[File]*"" >>T:Temp.script
echo "protect *"[File]*" +a" >>T:Temp.script
echo "else*nquit 5*nendif*nendif" >>T:Temp.script

list {Dir}#?.adf >T:Temp2.script sort name lformat "execute T:Temp.script *"%p%n*""
execute T:Temp2.script

---

[ - Answer - Quote - Direct link - ]