BeforeRename
在重命名文件或目录之前执行，通过此事件可以可以禁止用户重命特定的文件或目录。
e属性属性：
| IsFolder | 逻辑型，如果要重命名的是目录，则此属性返回True。 |
| OldName | 字符型，原文件名或目录名。 |
| NewName | 字符型，新文件名或目录名。 |
| ModifyTime | 日期型，返回此文件或目录最近一次修改的日期。 |
| Cancel | 逻辑型，如果设置为True，将取消此次重命名操作。 |
| FTPName | 字符型，返回FTP的FTPName属性 |
示例一
假定根目录下有个名为“归档”的子目录，要求禁止重命名此目录下的任何文件或目录，可以将BeforeRename事件代码设置为：
If
e.IsFolder
AndAlso e.OldName
= "/归档" Then
'首先禁止重命名归档目录本身
e.Cancel
= True
ElseIf Left(e.OldName,4)
= "/归档/" Then
'禁止重命名归档目录下的文件和子目录
e.Cancel
= True
End
If
If e.Cancel
Then
MessageBox.Show("禁止
重命名归档目录下的内容",
"提示",
MessageBoxButtons.OK,MessageBoxIcon.Information)
End
If
示例二
如果要禁止重命名三个月之前的文件，可以将BeforeRename事件代码设置为：
Dim
tp As
Date = e.ModifyTime.AddMonths(3)
If
tp < Date.Today
Then
e.Cancel
= True
MessageBox.Show("禁止
重命名三个月以前的文件!",
"提示",
MessageBoxButtons.OK,
MessageBoxIcon.Information)
End
If