关于创建文件的问题(100分)

huajian5410 · 2003-03-01

各位大侠：小弟有个问题，如下：先创建一个文本文件，用 createfile('d:/3.txt',GENERIC_WRITE,0,NIL,CREATE_NEW,FILE_ATTRIBUTE_NORMAL,0);我想将这个文件从c盘移动到d盘，用movefile('d:/3.txt','c:/3.txt')，但是文件创建成功了,但调用movefile函数却失败了，请指教，sos!! 另：如果我想在一个复杂的目录s下创建一个文件，请问代码如何，谢谢！

cwmdelpher · 2003-03-01

movefile是API函数　作用是可以对目录改名。

cwmdelpher · 2003-03-01

procedute ConvertTo(inFile,outFile:String); var fi,fo:TextFile;     li,lo:String;     i,ln,flag:integer; begin  AssignFile(fi,inFile);  reset(fi);  AssignFile(fo,outFile);  reWrite(fo);  while not Eof(fi) do  begin  Readln(fi,li);  //li->lo; WriteLn(fo,lo)；    end;  closefile(fi);  closefile(fo); end;

azi79 · 2003-03-01

cwmdelpher · 2003-03-01

用这个过程读入你的文本文件　然后再删除不就可以了吗？不知道达到你的要求了吗？？

kaida · 2003-03-01

移动文件： procedure TForm1.Button1Click(Sender: TObject); Var    F : File; begin    AssignFile(F, 'c:/a.txt');    Rename (F, 'd:/a.txt'); End;

randyamis · 2003-03-01

也可以创建stream流格式传文件内容

zjan521 · 2003-03-02

Move只能在同一个盘符下用,不同盘符下Copy&Del,均有SDK和PAS函数的 复杂CreateFileEx应该也可以吧,你具体查查

dodo5127 · 2003-03-03

kaida的方法的切不错，快书有效

wr960204 · 2003-03-03

createfile创建后文件处于打开状态. 要先CloseHandle或者FileClose关闭文件;然后才能移动

huajian5410 · 2003-03-03

谢谢各位大侠的指点：）KAIDA方法GOOD！

关于创建文件的问题(100分)

huajian5410

Unregistered / Unconfirmed

cwmdelpher

Unregistered / Unconfirmed

cwmdelpher

Unregistered / Unconfirmed

azi79

Unregistered / Unconfirmed

cwmdelpher

Unregistered / Unconfirmed

kaida

Unregistered / Unconfirmed

randyamis

Unregistered / Unconfirmed

zjan521

Unregistered / Unconfirmed

dodo5127

Unregistered / Unconfirmed

wr960204

Unregistered / Unconfirmed

huajian5410

Unregistered / Unconfirmed

Similar threads