Office中国论坛/Access中国论坛

标题: 如何获取当前的MDE文件的修改时间? [打印本页]

作者: kingboyszxf 时间: 2006-8-30 19:56
标题: 如何获取当前的MDE文件的修改时间?
用ACCESS如何获取当前的MDE文件的修改时间和创建时间???

作者: hi-wzj 时间: 2006-8-30 21:17
摘要:通过读取文件的各日期，防止修改系统时间来避开试用期的程序。同时也能一定限度的防止通过备份文件的方式来避开试用期。
未做严格测试.

正文:

Private Sub FORM_Load()
Dim dd As String
dd = CurrentProject.Path
If Right(dd, 1) <> "\" Then dd = dd & "\"
ShowFileAccessInfo dd & CurrentProject.Name
End Sub
Sub ShowFileAccessInfo(filespec)
　　Dim fs, f, s, aa, bb, cc
　　Set fs = CreateObject("Scripting.FileSystemObject")
　　Set f = fs.GetFile(filespec)
　　aa = f.DateCreated　　 '建立日期
　　bb = f.DateLastAccessed　　'最后访问日期
　　cc = f.DateLastModified　　'最后更新日期
　　If aa > bb Then GoTo ww:
　　If aa > cc Then GoTo ww:
　　If bb > cc Then GoTo ww:
　　If cc > Date Then GoTo ww:
　　Exit Sub
ww:
MsgBox "请不要修改系统日期！": Quit
End Sub

作者: kingboyszxf 时间: 2006-8-30 23:37
这其中的GetFile() 是不是自己写的一个函数??运行通不过.. [em03][em03]

作者: andymark 时间: 2006-8-31 00:01
GetFile 方法

描述

返回一个和指定路径中文件相对应的 File 对象。.

语法

object.GetFile(filespec)

GetFile 方法语法有如下几部分：

部分

描述

object

必需的。始终是一个 FileSystemObject. 的名字。

filespec

必需的。Filespec 是到一个指定文件的路径（绝对的或相对的）。

说明

如果指定的文件不存在，则发生一个错误

作者: kingboyszxf 时间: 2006-8-31 01:01
谢谢帮忙,,问题解决,以下是我精简出来的代码:

Dim dd As String
dd = CurrentProject.Path
If Right(dd, 1) <> "\" Then dd = dd & "\"

dd = dd & CurrentProject.name

Text1 = dd

Dim fs, f, cc

  Set fs = CreateObject("Scripting.FileSystemObject")
  Set f = fs.GetFile(dd)

  cc = f.DateLastModified

  MsgBox cc

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)