home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 22 / CD_ASCQ_22_0695.iso / win / fr / ectbarre / dsktodsk.ect < prev    next >
Text File  |  1995-03-19  |  950b  |  29 lines
  1. REM DskToDsk (c) 1995 ECT Soft
  2. REM Copie le contenue d'une disquette sur une autre disquette ( drive A: )
  3. REM Avec la possibilite de multi-copies d'une disquette
  4. REM Variables
  5. REM $D contient le nom d'un repertoire temporaire 
  6. $A = $Copie de Disquettes
  7. $B = $Inserez la disquette source.
  8. $C = $Inserez la disquette de destination.
  9. $D = $C:\DSKTODSK
  10. $E = $Voulez-vous copier une nouvelle fois les memes fichiers ?
  11. $F = $Voulez-vous copier une autre disquette ? 
  12. REM Demander la disquette source
  13. :DISK_OK
  14. MESSAGE($A,$B,INFORMATION)
  15. REM Creer un repertoire temporaire et y copier la disquette
  16. MKDIR($D)
  17. XCOPY($A:,$C:\DSKTODSK,!0,$*.*)
  18. REM Copier sur une autre disquette
  19. :COPY_DISK_TO_DD
  20. MESSAGE($A,$C,INFORMATION)
  21. XCOPY($C:\DSKTODSK,$A:,!0,$*.*)
  22. REM demander si on de nouveaux les memes fichiers
  23. IF[OUINON($A,$E,QUESTION)]==TRUE
  24. GOTO($:COPY_DISK_TO_DD)
  25. DELTREE($D,$*.*)
  26. IF[OUINON($A,$F,QUESTION)]==TRUE
  27. GOTO($:DISK_OK)
  28. END()
  29.