Diskette Imaging Software?

[Mac the Knife]

Try this Feline. Tested and it works. Can't check that it picks up ALL the errors that it should but it should. Proper copy of FELDUPE.BAT sent to your addy. BTW cutting and pasting won't work because for some reason my main editor strips all the ^G s (BEL) out of the ring-a-bell echo statements. Can be replaced using the DOS Edit editor by typing echo<space><Ctrl-P><Ctrl-G>

[Edit: To anyone interested the batch file listing below has subseqently been modified quite a bit to tart it up & add refinements. The core below however remains the same. Feline says it works for him and is busy adding some personalised refinements of his own.]

I'd almost forgotten how much fun batch files could be.


@echo off
cls

echo.
if [%1]==[] goto syntax
if [%2]==[] goto syntax

if not exist %1\nul goto notfound

echo FELDUPE.BAT
echo.
echo This batchfile will format the disk in the A drive (which is assumed to be a
echo 1.44M stiffy) and copy ALL the files in the source directory to the disk.
echo.
echo After each copy is finished you will be asked to insert another disk.
echo.
echo The process will continue indefinitely until you Press Ctrl-C to halt
echo [it may take a moment to complete the current write before stopping].
echo.
echo You must enclose file or pathnames which have a space in them in quotes
echo (eg "CProgram Files\My Files") or you'll get an error.
echo.

echo Source directory is %1
choice /c:yn Is this correct?
echo.
if errorlevel 2 goto end

echo Disk label is %2
choice /c:yn Is this correct?
if errorlevel 2 goto end

:start
echo ^G
echo.
echo Insert disk in A: drive
echo Press any key to continue or Ctrl-C to stop copying
pause > nul
echo.
format a: /autotest
if errorlevel 0 goto label
if errorlevel 5 if not errorlevel 6 echo User halted format process
if errorlevel 4 if not errorlevel 5 echo Fatal error - disk may be bad
if errorlevel 3 if not errorlevel 4 echo User halted format process
echo.
goto end

:label
label a: %2

:copy
xcopy %1\*.* a:
if errorlevel 0 goto start
if errorlevel 5 if not errorlevel 6 echo Disk write error occurred
if errorlevel 4 if not errorlevel 5 goto initerr
if errorlevel 2 if not errorlevel 3 echo User halted Xcopy process
if errorlevel 1 if not errorlevel 2 echo No files were found to copy!
echo.
goto end

:syntax
echo ^G
echo.
echo Syntax is FelDupe source disklabel
echo.
goto end

:notfound
echo ^G
echo.
echo The source directory was NOT found!
echo Please check your typing & try again.
echo.
goto end

:initerr
echo ^G
echo.
echo Initialization error occurred. There is not enough memory or disk space.
echo.
echo Most probable cause is that there are too many files to fit on the disk
echo Please check yours filesize totals and try again
echo.
goto end

:end