| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 178 人关注过本帖
标题:VB6拿到序号后,检查连续三天的文件夹里面是否有相同序号,可以实现吗?
只看楼主 加入收藏
宋政林
Rank: 1
等 级:新手上路
帖 子:25
专家分:0
注 册:2020-9-16
结帖率:100%
收藏
已结贴  问题点数:20 回复次数:4 
VB6拿到序号后,检查连续三天的文件夹里面是否有相同序号,可以实现吗?
各位老师:1,如下图片中的对话框输入序号后,要进行以天数在文件夹里面找有没有相同的序号.txt,有就提示讯息!能实现吗?谢谢
图片附件: 游客没有浏览图片的权限,请 登录注册
图片附件: 游客没有浏览图片的权限,请 登录注册
搜索更多相关主题的帖子: 相同 是否 文件夹 VB6 序号 
2021-11-18 05:58
apull
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:三体星系
等 级:版主
威 望:93
帖 子:981
专家分:5330
注 册:2010-3-16
收藏
得分:10 
strDir = Format(DateAdd("d", -3, Now()), "yyyy-mm-dd")

获取3天前的文件夹名称,之后用dir判断文件是否存在。
2021-11-18 08:43
宋政林
Rank: 1
等 级:新手上路
帖 子:25
专家分:0
注 册:2020-9-16
收藏
得分:0 
回复 2楼 apull
老师,您好,可能是我没太描述清楚,谢谢!
      :1,连续检测三天,(例如:今天是2021-11-18,那就要检查2021-11-16,2021-11-17,2021-11-18的文件夹,)
        2,text1.text里面输入进去序号后,每天会新建一个文件夹,是以当天的日期命名。(已完成)
          文件夹里面就是输入进去的序号,例如:123456789.txt.(已完成)
        
       问题点:在任何时候输入序号进去(例如输入:3456789),就去这三天里面寻找3456789.txt,如有就提示。
      
        例如:以当天(包含当天)2021-11-16,2021-11-17,2021-11-18
                                2021-11-17,2021-11-18,2021-11-19
                                2021-11-18,2021-11-19,2021-11-20
                                ...

'-----每天新加一个以当天日期为文件夹名的文件夹,
   
    Dim curDir As String '定义文件夹目录名
    curDir = "C:\result\" & Format$(Now, "YYYY-MM-DD") & "\" '以年月日 组成文件夹名称
    '判断该文件夹是否存在,不存在就新建
    If Len(Dir$(curDir, vbDirectory)) = 0 Then
    MkDir curDir
    End If
'--------------------------------------------------
'    Open "C:\result\curDir\.txt" For Output As #1     '打开XXX路径的XXX文件(双引号里表示文件位置和文件名)
'    Print #1, Txt_scan.Text     '写入Text1的Text内容
'    Close #1     '关闭
   
    sFile = curDir
    sPath = curDir '文件路徑存在sPath裡面
    sFile = sPath & "\" & Txt_scan.Text & ".txt"
    Open sFile For Output As #1 'Aspend Append才是附加写入
      Print #1, Txt_scan.Text
    Close #1

    strDir = Format(DateAdd("d", -3, Now()), "yyyy-mm-dd")

        
    '
    Shell ("C:\SM100\jig0.bat")
     'List1.AddItem "2,通知列印OK...!" ', 0 '用作狀態顯示
    Txt_scan.Text = ""

End Sub

2021-11-18 10:49
apull
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:三体星系
等 级:版主
威 望:93
帖 子:981
专家分:5330
注 册:2010-3-16
收藏
得分:0 
给你个提示别太死板呀,套个循环就解决了哈。

日期的加减用 DateAdd
DateAdd("d", -3, Now())
"d",表示加减的是日;
-3表示往前3天,往前2天用-2;往后算用正值,比如2表示后天。
Now()表示以今天开始计算。
for i=-3 to 0
strDir = Format(DateAdd("d", i, Now()), "yyyy-mm-dd")
next
就能得到今天到3前之间的日期,也就是文件夹名字,文件夹名字有了dir一下就能得到有没有这个文件了。
2021-11-18 21:12
you157827715
Rank: 2
来 自:湖南
等 级:论坛游民
威 望:1
帖 子:32
专家分:91
注 册:2021-4-24
收藏
得分:10 
学习了!
小白路过!
2021-11-19 09:38
快速回复:VB6拿到序号后,检查连续三天的文件夹里面是否有相同序号,可以实现吗? ...
数据加载中...
 
   



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

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