做个简单会更新的程序,高手进____本人新手使用方法很菜!!还请高手们帮忙实现!
做个简单会更新的程序,高手进____本人新手使用方法很菜!!还请高手们帮忙实现!
比如C:\有个Update.txt文件 里面内容是(日期形式): 2009-12-21
C: \还有个文件是用做来更新的 文件名: Up_.txt 内容也是(日期形式)
当Up_.txt里面内容大于Update.txt里面内容(日期)的时候就提示要更新了!
比如Update.txt里面内容是:2009-12-21 而Up_.txt 里面内容是: 2009-12-22或者更高的话就提示更新!
Private Sub Form_Load()
'运行程序的时候判断Up_.txt里面内容是否比Update.txt里面的内容(日期)要大,比他大的话就提示“发现新版本”
如果 C:\Up_.txt(日期形式) 大于 C:\Update.txt(日期形式) 则
提示 “发现新版本”
如果不大于则
提示 "没有新版本"
结束 如果
If C:\Up_.txt > C:\Update.txt Then
MsgBox "发现新版本,请及时下载"
Else
MsgBox "没有新版本"
End If
End Sub
这样应该写的很明白了,还望高手们帮我实现!
[解决办法]
用了小雨大哥的代码,在此谢过。
Private Sub Form_Load()
Dim Date1 As Date
Dim Date2 As Date
Date1 = 文件读取实例("c:\Update.txt")
Date2 = 文件读取实例("c:\Up_.txt")
If DateDiff("d", Date1, Date2) > 0 Then
MsgBox "发现新版本,请及时下载"
Else
MsgBox "没有新版本"
End If
End Sub
Function 文件读取实例(str As String) As Date
Dim StrTmp As String
Dim TextLine As String
Dim strAry() As String
Dim TimeApp As Date
Open str For Input As #1 ' 打开文件。
Do While Not EOF(1) ' 循环至文件尾。
Line Input #1, TextLine ' 读入一行数据并将其赋予某变量。
StrTmp = StrTmp & TextLine & Chr(13)
Loop
Close #1 ' 关闭文件。
strAry = Split(StrTmp, Chr(13))
Debug.Print CDate(strAry(0))
文件读取实例 = CDate(strAry(0))
End Function