jim zerbe
asked on
Create a Dir Listing as a Text File
Hi,
I’m going to put together a program to replace one
at work. What it does is take about 500 programs with
the names of ####.GL(#is a number) and renames them by removing the Ext part of the name. Then it moves a set number of files to drive A: and props for another disk
this goes on until all files are copied over. It also
makes a printout of the disk directory on drive A: on
each disk. A little history on this program. I work for
an Aircraft company as a CAD/CAM designer and there are programs for the CNC Mills. We have to make backups to
keep on the floor so if needed they can be copied into the machines if needed..
On the existing program I was able to make a text file
to use as a listing of the files to be moved.
Comamnd:=Dir C:\Temp\*.* /B >DirList.Doc
Then I user this file to Rename and move the files..
Is there a way to get this dir listing in Delphi 3 like the one I have above. Then I can use it to rename and move the files. Or if there is a better way to approach this project..
Thanks
Jim Zerbe
I’m going to put together a program to replace one
at work. What it does is take about 500 programs with
the names of ####.GL(#is a number) and renames them by removing the Ext part of the name. Then it moves a set number of files to drive A: and props for another disk
this goes on until all files are copied over. It also
makes a printout of the disk directory on drive A: on
each disk. A little history on this program. I work for
an Aircraft company as a CAD/CAM designer and there are programs for the CNC Mills. We have to make backups to
keep on the floor so if needed they can be copied into the machines if needed..
On the existing program I was able to make a text file
to use as a listing of the files to be moved.
Comamnd:=Dir C:\Temp\*.* /B >DirList.Doc
Then I user this file to Rename and move the files..
Is there a way to get this dir listing in Delphi 3 like the one I have above. Then I can use it to rename and move the files. Or if there is a better way to approach this project..
Thanks
Jim Zerbe
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Yes.
In fact only the second example will work on Windows 3.x
since "FindClose" is nonexistant in Delphi 1.x and since
"command" is replaced with "cmd" as the "DOS" command-interpreter
in NT.
Don't hesitate to ask if you run into more problems!
/// John
In fact only the second example will work on Windows 3.x
since "FindClose" is nonexistant in Delphi 1.x and since
"command" is replaced with "cmd" as the "DOS" command-interpreter
in NT.
Don't hesitate to ask if you run into more problems!
/// John
ASKER
Thanks for the speedy reply will try it out..
ASKER