升二星散分，兼征代码！解决方法

'---------------------------------------------------
' 模块      : File
' 时间      : 2010-7-10 07:20
' 作者      : 杨过.网狐.cn 等
' 功能      : 使用近似.net Framework中System.IO名称空间中File类成员设计的方式设计VB6版的File类
' 备注      :
'---------------------------------------------------

Option Explicit
Private Declare Function GetFileAttributesAPI Lib "kernel32" Alias "GetFileAttributesW" (ByVal lpFileName As Long) As Long
Private Function GetFileAttributes(ByVal lpFileName As String) As Long
    GetFileAttributes = GetFileAttributesAPI(StrPtr(lpFileName))
End Function

Public Sub Delete(ByVal path As String)
    Dim blnResult As Boolean
    
    blnResult = DeleteFile(path)
    If (Not blnResult) Then
        Err.Raise GetLastError
    End If
End Sub

Public Function Exists(path As String) As Boolean
    Exists = (GetFileAttributes(path) <> &HFFFFFFFF)
    
End Function
Public Function GetAttributes(ByVal path As String) As Long ' FileAttributes
    GetAttributes = GetFileAttributes(path)
End Function