关于文件夹解决办法

关于文件夹
建立了一个文件夹Dirtx,然后想把重新建立的a.txt,b.txt,c.txt文件放在Dirtx文件夹里。用代码实现，怎么做哦？ delphi?
[解决办法]
先定位到你创建的文件夹。
再AssignFile(MyTextFile, ‘a.txt’);
if FileExists(‘a.txt’) then
    Append(MyTextFile)
else
    Rewrite(MyTextFile);
[解决办法]
看看CreateDirectory
[解决办法]

   if not DirectoryExists(ExtractFilePath(Application.ExeName)+'wins')  then
  begin
     CreateDirectory(PChar(ExtractFilePath(ParamStr(0))+'文件名'),nil);
  end
  else
  begin
    在文件名下创建文件
  end;

[解决办法]
with TStringStrem.Create do
try
  SaveToFile(ExtractFilePath(ParamStr(0))+'文件名\a.txt');
  SaveToFile(ExtractFilePath(ParamStr(0))+'文件名\b.txt');
  SaveToFile(ExtractFilePath(ParamStr(0))+'文件名\c.txt');
finally
  Free;
end ;
[解决办法]

引用:

Quote: 引用:

with TStringStrem.Create do
try
  SaveToFile(ExtractFilePath(ParamStr(0))+'文件名\a.txt');
  SaveToFile(ExtractFilePath(ParamStr(0))+'文件名\b.txt');
  SaveToFile(ExtractFilePath(ParamStr(0))+'文件名\c.txt');
finally
  Free;
end ;

savetofile这个是要有依托才能保存的。不能实现的。

我也就随便写写，那这个呢？
with TMemoryStream.Create() do
try
  SaveToFile(ExtractFilePath(ParamStr(0))+'文件名\a.txt');
  SaveToFile(ExtractFilePath(ParamStr(0))+'文件名\b.txt');
  SaveToFile(ExtractFilePath(ParamStr(0))+'文件名\c.txt');
finally
  Free;
end ;

[解决办法]

引用:

Quote: 引用:

楼主的语言表达能力很有问题

也许吧。
用代码先建立一个文件夹dirtxt，然后再用代码生成文件a.txt放在起先建立的文件夹dirtxt里。怎么实现。这下你看懂了吗？国庆快乐！

楼主是在学习建立文件夹和文件的操作吧，这下明白了，但没有说文件里存什么，建几个空文件太没劲了吧？

procedure TForm1.Button1Click(Sender: TObject);
var
    dir,fn : string;
    fs : TFileStream;
begin
    dir := 'c:\20130930';
    CreateDirectory(pchar(dir), nil);
    fn := dir + '\a.txt';
    fs := TFileStream.Create(PChar(fn), fmCreate);
    fs.Free;
end;

查看更多 下一篇