400分请高手帮忙：文件监控

来源：百度知道 编辑：UC知道 时间：2024/06/14 00:39:02
写一个函数，能监控对磁盘写操作，要求能返回哪个文件准备写入，要写入的文件名和路径。
这个问题我问两遍，每遍200分，分数将给同一个人，请回答两遍。

给你写了一个，不知行不？

看第三条

添加定时保存功能

我们对上面的程序稍作改动，即可实现定时把当前访问的网址保存到文件，这样就为我们进行网络监控提供了保证。

1．在窗体上添加Timer控件Timer1，并将其属性Interval设置为1000，双击此控件，定义代码如下：

Private Sub Timer1_Timer()

GetURLstring_Click

End Sub

2． 在窗体代码开始的声明部分定义变量curUrl

Dim curUrl As String

3．用文件操作函数把Buffer变量中的字符串写进磁盘文件中，添加代码如下

Private Sub Form_Load()

Open App.Path ＆ 〃TestFile.txt〃 For Output Access Write As ＃1 ′打开一个文件End Sub

Private Sub Form_QueryUnload(Cancel As Integer， UnloadMode As Integer)

Close ＃1 ′关闭开始打开的文件

End Sub

并把GetURLstring_Click()中的如下部分

If buffer = 〃〃 Then

MsgBox 〃MicroSoft InternetExplorer浏览器没有运行.〃， vbOKOnly

Else

MsgBox buffer ′IE运行时显示当前网址

End If

改为如下代码:

If buffer <> 〃〃 And buffer <> curUrl Then

Write ＃1， Now ＆