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

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

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

我的收件箱(0)

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

共有 1667 人关注过本帖

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

只看楼主加入收藏

tieguanyin

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

楼主

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

求助 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

ictest

等　级：论坛游侠
帖　子：333
专家分：114
注　册：2010-2-17

第 2 楼

得分:0

程序代码：

Private Sub Command1_Click()
If Dir(App.Path & "\" & Text1.Text, vbDirectory) = "" Then
Label1.Caption = "不存在,准备生成 " & Format(Date, "yyyymmdd") & " 目录"
MkDir App.Path & "\" & Text1.Text
Else
Label1.Caption = "已存在 " & Format(Date, "yyyymmdd") & " 目录，不再生成"
End If
End Sub

Private Sub Form_Load()
Text1.Text = Format(Date, "yyyymmdd")
Label1.Caption = ""
End Sub

一般我就写一句就完了，没有就直接生成，有就不生成，不高兴加提示。

程序代码：

Private Sub Command1_Click()
If Dir(App.Path & "\" & Text1.Text, vbDirectory) = "" Then MkDir （App.Path & "\" & Text1.Text）
End Sub

Private Sub Form_Load()
Text1.Text = Format(Date, "yyyymmdd")
End Sub