| 网站首页 | 业界新闻 | 群组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 110 人关注过本帖
标题:求助 If Dir(App.Path & "\" & text1.text, vbDirectory) = "&q ...
只看楼主 加入收藏
tieguanyin
Rank: 1
等 级:新手上路
帖 子: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
2019-01-08 13:03
ictest
Rank: 2
等 级:论坛游民
帖 子:234
专家分:97
注 册:2010-2-17
  得分: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
2019-01-08 14:37
wds1
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:33
帖 子:341
专家分:1797
注 册:2016-3-10
  得分:0 
出错可能是text1.text没有赋值。
2019-01-08 14:48







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

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