标题:请教有关以时间为文件名(txt)的读取
只看楼主
hbwhlch
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2006-5-5
 问题点数:0 回复次数:3 
请教有关以时间为文件名(txt)的读取

问下坛上的高手,我想读取一个类似"20050504.txt"的文件,我用i=format(date(),yyyymmdd)&".txt"来取文件名,得到的是2005-5-4.txt,是为什么,该如何办?

搜索更多相关主题的帖子: txt 文件名 时间 
2006-05-05 10:41
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
得分:0 

Option Explicit

Private Sub Command1_Click()
Dim strFileName As String
Dim FileNum As Integer
Dim strInput As String
strFileName = Format$(Date, "YYYYMMDD")
'Print strFileName
FileNum = FreeFile()
Open App.Path & "\" & strFileName & ".txt" For Output As #FileNum
Print #FileNum, "梁嘉辉编写"
Close #FileNum
FileNum = FreeFile()
Open App.Path & "\" & strFileName & ".txt" For Input As #FileNum
Input #FileNum, strInput
Close #FileNum
Print strInput
End Sub


我的msn: myfend@
2006-05-05 10:59
leon2
Rank: 3Rank: 3
等 级:新手上路
威 望:7
帖 子:731
专家分:0
注 册:2005-3-18
得分:0 
i = Year(Now) & Format(Month(Now), "0#") & Format(Day(Now), "0#") & ".txt"
复杂了点
2006-05-05 16:06
VB爱上我
Rank: 6Rank: 6
等 级:贵宾
威 望:25
帖 子:478
专家分:52
注 册:2005-10-14
得分:0 
replace(format(date(),yyyymmdd),"-","")&".txt"

IT618资讯网 提供服务端开发,前端开发,网页特效,热门开源系统研究,软件下载,站长建站,淘宝开店等学习资料.
2006-05-06 16:42



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-61947-1-1.html




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

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