求助 If Dir(App.Path & "\" & text1.text, vbDirectory) = "&q - VB6论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 开发语言 → 『 VB6论坛』 → 求助 If Dir(App.Path & "\" & text1.text, vbDirectory) = "&q

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 1668 人关注过本帖

标题：求助 If Dir(App.Path & "\" & text1.text, vbDirectory) = "&q ...

取消只看楼主加入收藏

tieguanyin

等　级：新手上路
帖　子：5
专家分：0
注　册：2019-1-7
结帖率：0

楼主

问题点数：0 回复次数：0

求助 If Dir(App.Path & "\" & text1.text, vbDirectory) = "&q

If Dir(App.Path & "\" & text1.text, vbDirectory) = "" Then
Label7.Caption = "不存在"
' 生成

Else
Label7.Caption = "已存在"
’创建生成
End If

text1.text 显示的事当前时间 20190555 我吧这个当做目录名创建
现在判断的时候 IF老出错我的写法哪里不对？？？？

If Dir(App.Path & "\" & text1.text, vbDirectory) = "" Then

搜索更多相关主题的帖子: If　App　Path　text　text1　

2019-01-08 13:03

快速回复：求助 If Dir(App.Path & "\" & text1.text, vbDirectory) = "&q ...