如何判断指定目录内文件

小旭旭

如何判断指定目录内是否有1.exe这个文件没有就提示错误有就提示成功

Ruang

  

如果 (文件是否存在 (“D:\Users\Black\Desktop\1.exe”) ＝ 真)
调试输出 (“提示成功”)
调试输出 (“提示错误”)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .如果 (文件是否存在 (“D:\Users\Black\Desktop\1.exe”) ＝ 真)<br />     调试输出 (“提示成功”)<br /> .否则<br />     调试输出 (“提示错误”)

xiechangmao

文件是否存在

aipca

精易模块，文件_是否存在（）

xiechangmao

.版本 2

.程序集 窗口程序集_启动窗口

.子程序 __启动窗口_创建完毕
.局部变量 目录, 文本型

目录 ＝ “”
.如果 (文件是否存在 (目录 ＋ “/1.exe”) ＝ 真)
    信息框 (“成功”, 0, , )
.否则
    信息框 (“失败”, 0, , )

xiechangmao

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
目录	文本型

目录 ＝ “”
如果 (文件是否存在 (目录 ＋ “/1.exe”) ＝ 真)
信息框 (“成功”, 0, , )
信息框 (“失败”, 0, , )

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 目录, 文本型<br /> <br /> 目录 ＝ “”<br /> .如果 (文件是否存在 (目录 ＋ “/1.exe”) ＝ 真)<br />     信息框 (“成功”, 0, , )<br /> .否则<br />     信息框 (“失败”, 0, , )

zainex

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
文件号	整数型

文件号 ＝ 打开文件 (“1.exe”, , )
如果 (文件号 ＝ 0)
调试输出 (“false”)  ' error
调试输出 (“true”)
关闭文件 (文件号)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 文件号, 整数型<br /> <br /> 文件号 ＝ 打开文件 (“1.exe”, , )<br /> .如果 (文件号 ＝ 0)<br />     调试输出 (“false”)  ' error<br /> .否则<br />     调试输出 (“true”)<br /> .如果结束<br /> 关闭文件 (文件号)

你的猫

  

子程序名	返回值类型	公开	备 注
查找指定文件

DLL命令名	返回值类型	公开	备 注
(暂未填写DLL命令名)
DLL库文件名:
(未填写库文件名)
在DLL库中对应命令名:
(未填写命令名)
参数名	类 型	传址	数组	备 注
目录路径	文本型

.局部变量 查找结果, 整数型
.局部变量 文件名, 文本型

' 设置查找条件
查找结果 ＝ 寻找文件 (目录路径 ＋ “\1.exe”, )

如果 (查找结果 ≠ 0)
文件名 ＝ 取找到的文件名 ()
信息框 (“成功：找到文件 ” ＋ 文件名, 0, “检查结果”)
信息框 (“错误：未找到1.exe文件”, 0, “检查结果”)

' 关闭查找
关闭文件 (查找结果)

.版本 2<br /> <br /> .子程序 查找指定文件<br />     .参数 目录路径, 文本型<br />     <br />     .局部变量 查找结果, 整数型<br />     .局部变量 文件名, 文本型<br />     <br />     ' 设置查找条件<br />     查找结果 ＝ 寻找文件 (目录路径 ＋ “\1.exe”, )<br />     <br />     .如果 (查找结果 ≠ 0)<br />         文件名 ＝ 取找到的文件名 ()<br />         信息框 (“成功：找到文件 ” ＋ 文件名, 0, “检查结果”)<br />     .否则<br />         信息框 (“错误：未找到1.exe文件”, 0, “检查结果”)<br />     .如果结束<br />     <br />     ' 关闭查找<br />     关闭文件 (查找结果)

  

子程序名	返回值类型	公开	备 注
判断文件是否存在

DLL命令名	返回值类型	公开	备 注
(暂未填写DLL命令名)
DLL库文件名:
(未填写库文件名)
在DLL库中对应命令名:
(未填写命令名)
参数名	类 型	传址	数组	备 注
目录路径	文本型

.局部变量 文件路径, 文本型
.局部变量 文件存在, 逻辑型

' 组合完整文件路径
文件路径 ＝ 目录路径 ＋ “\1.exe”

' 判断文件是否存在
文件存在 ＝ 文件是否存在 (文件路径)

如果 (文件存在)
信息框 (“成功：1.exe文件存在！”, 0, “检查结果”)
信息框 (“错误：1.exe文件不存在！”, 0, “检查结果”)

.版本 2<br /> <br /> .子程序 判断文件是否存在<br />     .参数 目录路径, 文本型<br />     <br />     .局部变量 文件路径, 文本型<br />     .局部变量 文件存在, 逻辑型<br />     <br />     ' 组合完整文件路径<br />     文件路径 ＝ 目录路径 ＋ “\1.exe”<br />     <br />     ' 判断文件是否存在<br />     文件存在 ＝ 文件是否存在 (文件路径)<br />     <br />     .如果 (文件存在)<br />         信息框 (“成功：1.exe文件存在！”, 0, “检查结果”)<br />     .否则<br />         信息框 (“错误：1.exe文件不存在！”, 0, “检查结果”)<br />     .如果结束

  

子程序名	返回值类型	公开	备 注
_按钮_检查_被单击

.局部变量 目录路径, 文本型
.局部变量 完整路径, 文本型

' 获取要检查的目录路径（这里以编辑框输入为例）
目录路径 ＝ 编辑框_目录路径.内容

' 处理路径格式（确保路径结尾没有多余的反斜杠）
如果真 (取文本右边 (目录路径, 1) ＝ “\”)
目录路径 ＝ 取文本左边 (目录路径, 取文本长度 (目录路径) － 1)

' 组合完整路径
完整路径 ＝ 目录路径 ＋ “\1.exe”

' 检查路径有效性
如果真 (目录路径 ＝ “”)
信息框 (“请输入要检查的目录路径！”, 0, “错误”)
返回 ()

' 判断文件是否存在
如果 (文件是否存在 (完整路径))
信息框 (“检查成功：1.exe文件存在！”, 0, “结果”)
信息框 (“检查失败：1.exe文件不存在！”, 0, “结果”)

.版本 2<br /> <br /> .子程序 _按钮_检查_被单击<br />     .局部变量 目录路径, 文本型<br />     .局部变量 完整路径, 文本型<br />     <br />     ' 获取要检查的目录路径（这里以编辑框输入为例）<br />     目录路径 ＝ 编辑框_目录路径.内容<br />     <br />     ' 处理路径格式（确保路径结尾没有多余的反斜杠）<br />     .如果真 (取文本右边 (目录路径, 1) ＝ “\”)<br />         目录路径 ＝ 取文本左边 (目录路径, 取文本长度 (目录路径) － 1)<br />     .如果真结束<br />     <br />     ' 组合完整路径<br />     完整路径 ＝ 目录路径 ＋ “\1.exe”<br />     <br />     ' 检查路径有效性<br />     .如果真 (目录路径 ＝ “”)<br />         信息框 (“请输入要检查的目录路径！”, 0, “错误”)<br />         返回 ()<br />     .如果真结束<br />     <br />     ' 判断文件是否存在<br />     .如果 (文件是否存在 (完整路径))<br />         信息框 (“检查成功：1.exe文件存在！”, 0, “结果”)<br />     .否则<br />         信息框 (“检查失败：1.exe文件不存在！”, 0, “结果”)<br />     .如果结束

as790912701

  

子程序名	返回值类型	公开	备 注
检查文件是否存在	逻辑型
参数名	类 型	参考	可空	数组	备 注
目录路径	文本型

变量名	类 型	静态	数组	备 注
完整路径	文本型

如果真 (取文本右边 (目录路径, 1) ≠ “\”)
目录路径 ＝ 目录路径 ＋ “\”
完整路径 ＝ 目录路径 ＋ “1.exe”
如果 (文件是否存在 (完整路径))
信息框 (“成功：1.exe 存在！”, 0, , )
返回 (真)
信息框 (“错误：1.exe 不存在！”, 0, , )
返回 (假)

.版本 2<br /> <br /> .子程序 检查文件是否存在, 逻辑型<br /> .参数 目录路径, 文本型<br /> .局部变量 完整路径, 文本型<br /> <br /> .如果真 (取文本右边 (目录路径, 1) ≠ “\”)<br />     目录路径 ＝ 目录路径 ＋ “\”<br /> .如果真结束<br /> 完整路径 ＝ 目录路径 ＋ “1.exe”<br /> .如果 (文件是否存在 (完整路径))<br />     信息框 (“成功：1.exe 存在！”, 0, , )<br />     返回 (真)<br /> .否则<br />     信息框 (“错误：1.exe 不存在！”, 0, , )<br />     返回 (假)