输入序号进去后,拿着序号在最近三天的文件夹里面找有没有相同的序号

  • 给人好评:尚无评价
  • 消费总额:5.0 元
  • 问题总数:1
发布于:2021-11-17 19:26:20
问题红包:5.0
'-----每天新加一个以当天日期为文件夹名的文件夹, 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
  • 如果对上面问题的描述有疑问,可以在这里询问题主,以便于在下面撰写出更准确的答案。
  • 不要在询问区写答案,在询问区写答案赚不到红包。
  • 在询问区每个人最多询问5个问题,所以询问时尽量言简意赅
  • 如果对题主的问题很清楚了,就没必要再询问了,直接在下面撰写答案即可。

问题回答(1)

回答于:2021-11-18 14:31:16
身边没有电脑,手机打的字。你看看符不符合要求
上面只是免费部分,更多内容在收费部分,收费部分只有题主和答主本人能看得见