[求助]：判断某目录下某文件是否存在

fengjianwei

如题

oyxx_1023

语法

    (findfile filename)

功能及参数

     此函数将提供用户利用程序针对一个特定的文件来找出AutoCAD  数据库名称。此 AutoCAD 数据库路径的组成是由目前的文件夹, 接着含有目前编辑图形文件的文件夹, 再接着以 ACAD 系统变量命名的文件夹(如果有的话), 而最后则是此 AutoCAD 文件名的文件夹。

   findfile 并没有缺省的扩展名, 或是文件名。因而使用时, 您必须给予文件名称。如果此名称不合法, AutoCAD将自动搜寻并将完整合法的文件名称返回, 当寻找不到时则返回nil。如果提供有一个磁盘/文件夹路径, 那么AutoCAD将只在此文件夹中寻找 (而不会执行数据库搜寻)。findfile 函数所返回的完整名称将适用于 open 函数。(在以下范例中, 我们将使用“/”当做文件夹的分别间隔。而在DOS操作系统中, 您亦可以使用“\”或是“/”)。

范例

在下列假设条件下：

       目前的文件夹是 /r14 而且含有 abc.lsp 文件

       我们正在 /r14/drawings 文件夹中编辑图形

       ACAD 环境参数设定成 /r14/support

       xyz.txt 文件只存在于 /r14/support 文件夹中

       nosuch 文件并不存在于数据库搜寻路径中的任何文件夹之下

则：

    (findfile "abc.lsp")   返回   "/r14/abc.lsp"

       (findfile "xyz.txt")   返回  "/r14/support/xyz.txt"

       (findfile "nosuch")    返回   nil

fengjianwei

我要的不是这个 不是CAD搜索路径下的

carrot1983

至于你要确定存在什么文件名。
自己用记事本打开后再编缉。
附件里面是存在.bat默认确定是否存在1.txt
可以自己修改文件名及路径
代码是：
[php]
rem 批处理存在.BAT内容如下:
rem 可这个程序放在所要的路径下面。
rem 更改1.txt或者完整路径达到目的。
@echo off
if exist 1.txt ECHO 存在1.txt
if not exist 1.txt echo 不存在1.txt
pause
[/php]

橄榄滋味

我觉得是不是应该这样:
假设有个文件1.txt在C:/program files/my folders，但是我只是知道它在C盘上，却不知道它的详细路径。所以如何编制一个函数，参数是盘附和文件名，就可以返回改文件名的详细路径列表，如果同名，可以返回多个路径列表。
（FOO  "c:"  "1.txt"） retuns （"C:/program files/my folders"）

Hart

用dir c:\1.txt /s >list.txt 然后读取list.txt进行分析就可得到详细路径列表.

橄榄滋味

谢谢楼上，只是怎样用lisp获得呢？