就上午那个关于文件夹改名的问题:不好意思,程序还得改进下,对于某一目录下文件夹少的情况下可以,但是文件夹一多的话就不可以了(情况是一个文件夹添加多个要添加的字符),还有能不能做成执行完这一功能后它就自动退出呢?
解决方案 »
- Delphi求职(既不是高手也不是新手)
- advstringgrid的问题 用过的朋友进来指点下
- 新人求助关于类的构造和封装问题
- 正在開發人事考勤薪資系統﹐各位大哥提點意見。
- 先谢了!在线等待!解决就给分!用sql统计后如何新生成一行:总计
- 谁有FlatStyle基础上编写的数据感知控件
- 比较头痛:按照输入拼音查询相关的选项,比如输入h,就把以h打头的所有选项筛选出来,随着以后输入依次筛选
- 询问DELPHI中的一个函数,紧急
- 关于操作注册表
- 在mdi表單中調用設為最大化的子表單時,它首先顯示小的子表單,然后才把它最大化,影響美觀,有何辦法解決?
- 一个另类的计算器实现问题!
- 初学者调用WIN32 API的问题
在最后加一句 Application.Terminate
procedure TForm1.Button2Click(Sender: TObject);
var
i:Integer;
begin
for i := 1 to 10000 do
ForceDirectories('C:\Rename\' + IntToStr(i));
end;procedure TForm1.Button1Click(Sender: TObject);
var
sr : TSearchRec;
const
s = 'c:\Rename'; //把所有要改名的都放在这个文件夹下,根据你的情况修改。
begin
if DirectoryExists(s) then
begin
if FindFirst(s+'\*.*', faAnyFile, sr) = 0 then
begin
repeat
if (sr.Attr and faAnyFile) = sr.Attr then
begin
if (sr.Attr=faDirectory) and (sr.Name<>'.') and
(sr.Name<>'..') then
RenameFile(s+'\'+sr.Name, s+'\SH-'+ sr.Name);
end;
until FindNext(sr) <> 0
end;
FindClose(sr);
end;
end;我上班不让用聊天工具。
var
sr : TSearchRec;
const
s = 'c:\gyj\'; //把所有要改名的都放在这个文件夹下,根据你的情况修改。
begin
if DirectoryExists(s) then
begin
if FindFirst(s+'*.*', faDirectory , sr) = 0 then
begin
repeat
if (sr.Attr and faDirectory ) = sr.Attr then
begin
if (sr.Name<>'.') and (sr.Name<>'..') then
begin
FileSetAttr(s+sr.Name,faArchive);
RenameFile(s+sr.Name,s+'SH-'+ sr.Name );
end;
end;
until FindNext(sr) <> 0
end;
FindClose(sr);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
sr : TSearchRec;
ts : TStringList;
i : Integer;
const
s = 'c:\gyj\'; //把所有要改名的都放在这个文件夹下,根据你的情况修改。
begin
if DirectoryExists(s) then
begin
ts := TStringList.Create;
try
if FindFirst(s+'*.*', faDirectory , sr) = 0 then
begin
repeat
if (sr.Attr and faDirectory ) = sr.Attr then
begin
if (sr.Name<>'.') and (sr.Name<>'..') then
ts.Add(sr.Name);
end;
until FindNext(sr) <> 0
end;
FindClose(sr); if ts.Count > 0 then
for i := 0 to ts.Count - 1 do
if DirectoryExists(s+ts.Strings[i]) then
RenameFile(s+ts.Strings[i],s+'SH-'+ts.Strings[i]);
finally
ts.Free;
end;
end;
end;