很简单的问题。就是如果知道我的指定目录里面有没有一个文件，有就略过。没有就创建。(0分)

inbreak · 2003-01-27

如题。我在作一个数据库的程序。 可是有一个麻烦。我是想法是只发布一个可执行文件，数据库是后期创建的。。 也就是说，我要在程序启动时检查有没有luozs.db　文件，没有就创建。有就不创建喽。 程序如下： var   Luozs:string; begin   Luozs:='Luozs.db';   if Luozs <> (ExtractFilePath(Application.ExeName)+luozs) then      {先检查目录下是否存在 Luozs.db 数据库,如果不存在则...}       begin       showmessage('数据库不存在');       ................{此部分为我创建数据库的部分}       end; end; 当然编译说，不管有没有luozs.db文件。程序都说‘数据库不存在’（也就是我showmessage的那句话） 各位大哥各位大姐各位侠，帮帮小弟。。 小弟现在正在线等待中￣￣￣￣￣￣￣￣￣￣￣￣

ufo! · 2003-01-27

不好意思，刚才看错了 用这个函数试试看：fileexists  if fileexists(ExtractFilePath(Application.ExeName)+luozs)= false then  begin   showmessage('数据库不存在'); …………  end;

inbreak · 2003-01-27

to:ufo! if 非要是这样吗？？ If...then...else　？？？ 你有没有搞错呀。

春意 · 2003-01-27

var     s: String; begin     s := FileSearch('Luozs.db',ExtractFilePath(Application.ExeName));     if s<>'' then     begin         //执行相应的代码         showmessage('已经找到！');     end     else     begin         //创建数据库     end; //新年到了，没分也送个祝福吧！

yeskert1 · 2003-01-27

to inbreak： 小气鬼，应该这样： if Luozs <> (ExtractFilePath(Application.ExeName)+'/'+luozs) then

sccphi · 2003-01-27

用FileExists函数吧，没有问题 举例如下：    if FileExists('g:/netcollectErr.txt') then         ShowMessage('Find')     else         ShowMessage('No Find');

ufo! · 2003-01-27

to yeskert1：  ExtractFilePath函数返回值最后面是包含了"/"的。  extractfiledir 函数是不包含最后的"/"的。 我记得是这样的。

inbreak · 2003-01-27

谢谢大家。 祝大家新年快乐。万事如意！！ 由于小弟我初来这个论坛。穷一个。。积分不多。 所以￣￣￣

ptarmigans · 2003-01-27

使用FileOpen(filename, fmCreate);

fmz · 2003-01-27

to inbreak: var   Luozs:string; begin   Luozs:='Luozs.db';   if Luozs <> (ExtractFilePath(Application.ExeName)+luozs) then      {先检查目录下是否存在 Luozs.db 数据库,如果不存在则...}       begin       showmessage('数据库不存在');       ................{此部分为我创建数据库的部分}       end; end; 问题可能就出来你上面的Luozs <> (ExtractFilePath(Application.ExeName)+luozs)这句 话，这是STRING比较，你Luozs:='Luozs.db'和ExtractFilePath(Application.ExeName)+luozs 得到的字符串肯定不一样，最起码的他们的长度都不一样。改用其它的方法很多的，或都你 把Luozs这个前边加上路径看看

inbreak · 2003-01-27

to fmz: 非常感谢你的回答，在此，我祝你新年快乐。。 我试过以上的诸哥哥的说明。基中　UFO！是方法是正确而且也是最简单的。完全可以达到我的要求！ 真是谢谢各们的热心。。 谢谢各位。祝大家新年快乐。万事如意！

inbreak · 2003-02-20

接受答案了.

很简单的问题。就是如果知道我的指定目录里面有没有一个文件，有就略过。没有就创建。(0分)

inbreak

Unregistered / Unconfirmed

ufo!

Unregistered / Unconfirmed

inbreak

Unregistered / Unconfirmed

春意

Unregistered / Unconfirmed

yeskert1

Unregistered / Unconfirmed

sccphi

Unregistered / Unconfirmed

ufo!

Unregistered / Unconfirmed

inbreak

Unregistered / Unconfirmed

ptarmigans

Unregistered / Unconfirmed

fmz

Unregistered / Unconfirmed

inbreak

Unregistered / Unconfirmed

inbreak

Unregistered / Unconfirmed

Similar threads