| 网站首页 | 业界新闻 | 小组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 420 人关注过本帖
标题:求助 If Dir(App.Path & "\" & text1.text, vbDirectory) = "&q ...
取消只看楼主 加入收藏
tieguanyin
Rank: 1
等 级:新手上路
帖 子: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







关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.025500 second(s), 9 queries.
Copyright©2004-2019, BCCN.NET, All Rights Reserved