source: trunk/essentials/dev-lang/perl/win32/mdelete.bat

Last change on this file was 3181, checked in by bird, 18 years ago

perl 5.8.8

File size: 539 bytes
Line 
1@echo off
2rem ! This is a batch file to delete all the files on its
3rem ! command line, to work around command.com's del command's
4rem ! braindeadness
5rem !
6rem ! -- BKS, 11-11-2000
7
8:nextfile
9set file=%1
10shift
11if "%file%"=="" goto end
12del %file%
13goto nextfile
14:end
15
16@echo off
17rem ! This is a batch file to delete all the files on its
18rem ! command line, to work around command.com's del command's
19rem ! braindeadness
20rem !
21rem ! -- BKS, 11-11-2000
22
23:nextfile
24set file=%1
25shift
26if "%file%"=="" goto end
27del %file%
28goto nextfile
29:end
Note: See TracBrowser for help on using the repository browser.