VB改变文件及文件夹属性的函数

'以下为FSO对象的使用示例(VB6.0)
Private myFSO As New FileSystemObject
Private myFile As File
Private myFolder As Folder
   'myFolder.Attributes = Alias
   'myFolder.Attributes = Archive　存档
   'myFolder.Attributes = Compressed　压缩
   'myFolder.Attributes = Directory　目录
   'myFolder.Attributes = Hidden
   'myFolder.Attributes = ReadOnly
   'myFolder.Attributes = System
   'myFolder.Attributes = Normal
   'myFolder.Attributes = Volume　卷
Private Function ChangeProperty(ByVal strFileAndPath As String, nType As Long) As Boolean
On Error GoTo deleteError
ChangeProperty = False
If myFSO.FileExists(strFileAndPath) = True Then
   Set myFile = myFSO.GetFile(strFileAndPath)
   myFile.Attributes = nType
   Set myFile = Nothing
   ChangeProperty = True
End If
Exit Function
deleteError:
  MsgBox Err.Description
  Err.Clear
  ChangeProperty = False
End Function

Private Function ChangeFolder(ByVal strFileAndPath As String, nType As Long) As Boolean
On Error GoTo deleteError
ChangeFolder = False
If myFSO.FolderExists(strFileAndPath) = True Then
   Set myFolder = myFSO.GetFolder(strFileAndPath)
   myFolder.Attributes = nType
   Set myFolder = Nothing
   ChangeFolder = True
End If
Exit Function
deleteError:
   MsgBox Err.Description
   Err.Clear
   ChangeFolder = False
End Function