请问如果我要在Delphi工程所在目录下新建一个文件该怎么写？(50分)

J

jsongy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-10

• #1

在Delphi工程所在目录下，有一子目录temp，现在我想在temp目录下新建一个文件！
该怎么写？请大侠指点！

 

L

lxftwo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-10

• #2

Mkdir('dirname');建立目录就行了

 

J

jsongy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-10

• #3

不对!temp文件夹已经存在的！要在这个文件夹下新建文件！

 

L

lxftwo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-10

• #4

对呀,这就是建新目录的方法.你试试!

 

M

mlzhou

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-10

• #5

var
f: TStringList;
begin
f := TStringList.Create;f.savetofile(ExtractFilePath(Application.ExeName) + 'temp/abc.txt');
f.free;
end;

 

L

lxftwo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-10

• #6

对不起我看错了,是文件呀,我这眼睛.同意楼上的方法

 

J

jsongy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-10

• #7

还有一个问题：我要删除temp目录下所有扩展名为.txt的文件该怎么写？

 

0

001100

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-08

• #8

var
f: Textfile;
begin
Assignfile(f, 'c:/1.txt');
Rewrite(f)
...................
end;

 

小

小虫飞鱼

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-08

• #9

首先在进入程序时，得到。当前的路径了。好象是getdir（）就可以了。
不然你在运行程序时，可能会改变路径了。假如你是用memo的直接用它的属性保存就可以了。
在有是用openfile就可以了 。因为它是一个文件不存在就创建文件的功能了 。
Mkdir用它可能会和文件下拉标准控件冲突了（它改变了文件下拉标准控的默认路径了）。还有它需要什么开关了{+$}这个东西了。

 

L

liliy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-18

• #10

要删除temp目录下所有扩展名为.txt的文件这样写：
fname1:='command.com /c del '+'ExtractFilePath(Application.ExeName)+'temp/*.txt';
fname2:='cmd.exe /c del '+'ExtractFilePath(Application.ExeName)+'temp/*.txt';
if WinExec(Pchar(fname1),sw_hide)<31 then
//在Win9X下
WinExec(Pchar(fname2),sw_hide);
//在Win2K或WinXp下

 

张

张辉明

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-18

• #11

举双手赞成：mlzhou,

 

J

jsongy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-17

• #12

多人接受答案了。