R Richard3000 Unregistered / Unconfirmed GUEST, unregistred user! 2002-09-05 #1 在同一個文件夾下有兩個文件夾D1,D2(都有子文件夾),現在我想把d1和d2換名怎麼做?<br>Win98,WinME,Win2k,WinNT
Y yzhshi Unregistered / Unconfirmed GUEST, unregistred user! 2002-09-05 #2 RenameFile('E:/Temp','E:/Tmp')<br>使用临时文件名交换，就像两个变量互换一样。
R Richard3000 Unregistered / Unconfirmed GUEST, unregistred user! 2002-09-05 #3 MoveFileEx(d1,temp,MOVEFILE_REPLACE_EXISTING);<br> MoveFileEx(d2,d1,MOVEFILE_REPLACE_EXISTING);<br> MoveFileEx(temp,d2,MOVEFILE_REPLACE_EXISTING);
MoveFileEx(d1,temp,MOVEFILE_REPLACE_EXISTING);<br> MoveFileEx(d2,d1,MOVEFILE_REPLACE_EXISTING);<br> MoveFileEx(temp,d2,MOVEFILE_REPLACE_EXISTING);
C CrendKing Unregistered / Unconfirmed GUEST, unregistred user! 2002-09-07 #5 很简单：<br>先在 uses 中加入 FileCtrl ，然后这样：<br>假设有这两个文件夹 C:/A （含 C:/A/C）和 C:/B （含 C:/B/D）<br> 代码: <br>procedure TForm1.Button1Click(Sender: TObject);<br>begin<br> RenameFile('C:/A', 'C:/TempDirName');<br> RenameFile('C:/B', 'C:/A');<br> RenameFile('C:/TempDirName', 'C:/B');<br>end;<br>
很简单：<br>先在 uses 中加入 FileCtrl ，然后这样：<br>假设有这两个文件夹 C:/A （含 C:/A/C）和 C:/B （含 C:/B/D）<br> 代码: <br>procedure TForm1.Button1Click(Sender: TObject);<br>begin<br> RenameFile('C:/A', 'C:/TempDirName');<br> RenameFile('C:/B', 'C:/A');<br> RenameFile('C:/TempDirName', 'C:/B');<br>end;<br>
