GetFileSize VB声明 Declare Function GetFileSize Lib "kernel32" Alias "GetFileSize" (ByVal hFile As Long, lpFileSizeHigh As Long) As Long 说明 判断文件长度 返回值 Long，返回文件长度。&HFFFFFFFF表示出错。注意如lpFileSizeHigh不为NULL，且结果为&HFFFFFFFF，那么必须调用GetLastError，判断是否实际发生了一个错误，因为这是一个有效的结果 参数表 参数 类型及说明 hFile Long，文件的句柄 lpFileSizeHigh Long，指定一个长整数，用于装载一个64位文件长度的头32位。如这个长度没有超过2＾32字节，则该参数可以设为NULL（变成ByVal） GetFileTime VB声明 Declare Function GetFileTime Lib "kernel32" Alias "GetFileTime" (ByVal hFile As Long, lpCreationTime As FILETIME, lpLastAccessTime As FILETIME, lpLastWriteTime As FILETIME) As Long 说明 取得指定文件的时间信息 返回值 Long，非零表示成功，零表示失败。会设置GetLastError 参数表 参数 类型及说明 hFile Long，文件的句柄 lpCreationTime FILETIME，用于装载文件的创建时间 lpLastAccessTime FILETIME，用于装载文件上一次访问的时间（FAT文件系统不支持这一特性） lpLastWriteTime FILETIME，用于装载文件上一次修改的时间 注解 如果不需要特定的信息，那么lpCreationTime，lpLastAccessTime，lpLastWriteTime都可以设置为零（用ByVal As Long）。这个函数返回的文件时间采用UTC格式 FindFirstFile VB声明 Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long 说明 根据文件名查找文件 返回值 Long，如执行成功，返回一个搜索句柄。如果出错，返回一个INVALID_HANDLE_VALUE常数，一旦不再需要，应该用FindClose函数关闭这个句柄 参数表 参数 类型及说明 lpFileName String，欲搜索的文件名。可包含通配符，并可包含一个路径或相对路径名 lpFindFileData WIN32_FIND_DATA，这个结构用于装载与找到的文件有关的信息。该结构可用于后续的搜索 注解 由这个函数返回的句柄可以作为一个参数用于FindNextFile函数。这样一来，就可以方便的枚举出与lpFileName参数指定的文件名相符的所有文件 FindNextFile VB声明 Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long 说明 根据调用FindFirstFile函数时指定的一个文件名查找下一个文件 返回值 Long，非零表示成功，零表示失败。如不再有与指定条件相符的文件，会将GetLastError设置成ERROR_NO_MORE_FILES 参数表 参数 类型及说明 hFindFile Long，由FindFirstFile函数返回的搜索句柄 lpFindFileData WIN32_FIND_DATA，这个结构用于装载与找到的文件有关的信息
'调用方法：MsgBox IsFile("C:\Autoexec.Bat") Public Function IsFile(Filename As String) As Boolean On Error Resume Next Dim FileID As Long FileID = FreeFile() Open Filename For Input As #FileID Close #FileID IsFile = (Err.Number = 0) Err.Clear End Function
GetFileSize VB声明 Declare Function GetFileSize Lib "kernel32" Alias "GetFileSize" (ByVal hFile As Long, lpFileSizeHigh As Long) As Long 说明 判断文件长度 返回值 Long，返回文件长度。&HFFFFFFFF表示出错。注意如lpFileSizeHigh不为NULL，且结果为&HFFFFFFFF，那么必须调用GetLastError，判断是否实际发生了一个错误，因为这是一个有效的结果 参数表 参数 类型及说明 hFile Long，文件的句柄 lpFileSizeHigh Long，指定一个长整数，用于装载一个64位文件长度的头32位。如这个长度没有超过2＾32字节，则该参数可以设为NULL（变成ByVal） GetFileTime VB声明 Declare Function GetFileTime Lib "kernel32" Alias "GetFileTime" (ByVal hFile As Long, lpCreationTime As FILETIME, lpLastAccessTime As FILETIME, lpLastWriteTime As FILETIME) As Long 说明 取得指定文件的时间信息 返回值 Long，非零表示成功，零表示失败。会设置GetLastError 参数表 参数 类型及说明 hFile Long，文件的句柄 lpCreationTime FILETIME，用于装载文件的创建时间 lpLastAccessTime FILETIME，用于装载文件上一次访问的时间（FAT文件系统不支持这一特性） lpLastWriteTime FILETIME，用于装载文件上一次修改的时间 注解 如果不需要特定的信息，那么lpCreationTime，lpLastAccessTime，lpLastWriteTime都可以设置为零（用ByVal As Long）。这个函数返回的文件时间采用UTC格式 FindFirstFile VB声明 Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long 说明 根据文件名查找文件 返回值 Long，如执行成功，返回一个搜索句柄。如果出错，返回一个INVALID_HANDLE_VALUE常数，一旦不再需要，应该用FindClose函数关闭这个句柄 参数表 参数 类型及说明 lpFileName String，欲搜索的文件名。可包含通配符，并可包含一个路径或相对路径名 lpFindFileData WIN32_FIND_DATA，这个结构用于装载与找到的文件有关的信息。该结构可用于后续的搜索 注解 由这个函数返回的句柄可以作为一个参数用于FindNextFile函数。这样一来，就可以方便的枚举出与lpFileName参数指定的文件名相符的所有文件 FindNextFile VB声明 Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long 说明 根据调用FindFirstFile函数时指定的一个文件名查找下一个文件 返回值 Long，非零表示成功，零表示失败。如不再有与指定条件相符的文件，会将GetLastError设置成ERROR_NO_MORE_FILES 参数表 参数 类型及说明 hFindFile Long，由FindFirstFile函数返回的搜索句柄 lpFindFileData WIN32_FIND_DATA，这个结构用于装载与找到的文件有关的信息
来晚了。楼上二位真详细。我也再发一下吧。GetFileSize VB声明 Declare Function GetFileSize Lib "kernel32" Alias "GetFileSize" (ByVal hFile As Long, lpFileSizeHigh As Long) As Long 说明 判断文件长度 返回值 Long，返回文件长度。&HFFFFFFFF表示出错。注意如lpFileSizeHigh不为NULL，且结果为&HFFFFFFFF，那么必须调用GetLastError，判断是否实际发生了一个错误，因为这是一个有效的结果 参数表 参数 类型及说明 hFile Long，文件的句柄 lpFileSizeHigh Long，指定一个长整数，用于装载一个64位文件长度的头32位。如这个长度没有超过2＾32字节，则该参数可以设为NULL（变成ByVal） GetFileTime VB声明 Declare Function GetFileTime Lib "kernel32" Alias "GetFileTime" (ByVal hFile As Long, lpCreationTime As FILETIME, lpLastAccessTime As FILETIME, lpLastWriteTime As FILETIME) As Long 说明 取得指定文件的时间信息 返回值 Long，非零表示成功，零表示失败。会设置GetLastError 参数表 参数 类型及说明 hFile Long，文件的句柄 lpCreationTime FILETIME，用于装载文件的创建时间 lpLastAccessTime FILETIME，用于装载文件上一次访问的时间（FAT文件系统不支持这一特性） lpLastWriteTime FILETIME，用于装载文件上一次修改的时间 注解 如果不需要特定的信息，那么lpCreationTime，lpLastAccessTime，lpLastWriteTime都可以设置为零（用ByVal As Long）。这个函数返回的文件时间采用UTC格式 FindFirstFile VB声明 Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long 说明 根据文件名查找文件 返回值 Long，如执行成功，返回一个搜索句柄。如果出错，返回一个INVALID_HANDLE_VALUE常数，一旦不再需要，应该用FindClose函数关闭这个句柄 参数表 参数 类型及说明 lpFileName String，欲搜索的文件名。可包含通配符，并可包含一个路径或相对路径名 lpFindFileData WIN32_FIND_DATA，这个结构用于装载与找到的文件有关的信息。该结构可用于后续的搜索 注解 由这个函数返回的句柄可以作为一个参数用于FindNextFile函数。这样一来，就可以方便的枚举出与lpFileName参数指定的文件名相符的所有文件 FindNextFile VB声明 Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long 说明 根据调用FindFirstFile函数时指定的一个文件名查找下一个文件 返回值 Long，非零表示成功，零表示失败。如不再有与指定条件相符的文件，会将GetLastError设置成ERROR_NO_MORE_FILES 参数表 参数 类型及说明 hFindFile Long，由FindFirstFile函数返回的搜索句柄 lpFindFileData WIN32_FIND_DATA，这个结构用于装载与找到的文件有关的信息
"文件是否存在"有三种方法: 1.引用"Microsoft Scripting Runtime" Dim fso As New FileSystemObject If fso.FileExists(PathName)=True Then '文件存在2.If Dir(PathName)<>"" Then '文件存在3 If FileLen(PathName)<>0 Then '文件存在
Declare Function GetFileSize Lib "kernel32" Alias "GetFileSize" (ByVal hFile As Long, lpFileSizeHigh As Long) As Long
说明
判断文件长度
返回值
Long，返回文件长度。&HFFFFFFFF表示出错。注意如lpFileSizeHigh不为NULL，且结果为&HFFFFFFFF，那么必须调用GetLastError，判断是否实际发生了一个错误，因为这是一个有效的结果
参数表
参数 类型及说明
hFile Long，文件的句柄
lpFileSizeHigh Long，指定一个长整数，用于装载一个64位文件长度的头32位。如这个长度没有超过2＾32字节，则该参数可以设为NULL（变成ByVal） GetFileTime VB声明
Declare Function GetFileTime Lib "kernel32" Alias "GetFileTime" (ByVal hFile As Long, lpCreationTime As FILETIME, lpLastAccessTime As FILETIME, lpLastWriteTime As FILETIME) As Long
说明
取得指定文件的时间信息
返回值
Long，非零表示成功，零表示失败。会设置GetLastError
参数表
参数 类型及说明
hFile Long，文件的句柄
lpCreationTime FILETIME，用于装载文件的创建时间
lpLastAccessTime FILETIME，用于装载文件上一次访问的时间（FAT文件系统不支持这一特性）
lpLastWriteTime FILETIME，用于装载文件上一次修改的时间
注解
如果不需要特定的信息，那么lpCreationTime，lpLastAccessTime，lpLastWriteTime都可以设置为零（用ByVal As Long）。这个函数返回的文件时间采用UTC格式
FindFirstFile VB声明
Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
说明
根据文件名查找文件
返回值
Long，如执行成功，返回一个搜索句柄。如果出错，返回一个INVALID_HANDLE_VALUE常数，一旦不再需要，应该用FindClose函数关闭这个句柄
参数表
参数 类型及说明
lpFileName String，欲搜索的文件名。可包含通配符，并可包含一个路径或相对路径名
lpFindFileData WIN32_FIND_DATA，这个结构用于装载与找到的文件有关的信息。该结构可用于后续的搜索
注解
由这个函数返回的句柄可以作为一个参数用于FindNextFile函数。这样一来，就可以方便的枚举出与lpFileName参数指定的文件名相符的所有文件
FindNextFile VB声明
Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long
说明
根据调用FindFirstFile函数时指定的一个文件名查找下一个文件
返回值
Long，非零表示成功，零表示失败。如不再有与指定条件相符的文件，会将GetLastError设置成ERROR_NO_MORE_FILES
参数表
参数 类型及说明
hFindFile Long，由FindFirstFile函数返回的搜索句柄
lpFindFileData WIN32_FIND_DATA，这个结构用于装载与找到的文件有关的信息
Public Function IsFile(Filename As String) As Boolean
On Error Resume Next
Dim FileID As Long
FileID = FreeFile()
Open Filename For Input As #FileID
Close #FileID
IsFile = (Err.Number = 0)
Err.Clear
End Function
Declare Function GetFileSize Lib "kernel32" Alias "GetFileSize" (ByVal hFile As Long, lpFileSizeHigh As Long) As Long
说明
判断文件长度
返回值
Long，返回文件长度。&HFFFFFFFF表示出错。注意如lpFileSizeHigh不为NULL，且结果为&HFFFFFFFF，那么必须调用GetLastError，判断是否实际发生了一个错误，因为这是一个有效的结果
参数表
参数 类型及说明
hFile Long，文件的句柄
lpFileSizeHigh Long，指定一个长整数，用于装载一个64位文件长度的头32位。如这个长度没有超过2＾32字节，则该参数可以设为NULL（变成ByVal） GetFileTime VB声明
Declare Function GetFileTime Lib "kernel32" Alias "GetFileTime" (ByVal hFile As Long, lpCreationTime As FILETIME, lpLastAccessTime As FILETIME, lpLastWriteTime As FILETIME) As Long
说明
取得指定文件的时间信息
返回值
Long，非零表示成功，零表示失败。会设置GetLastError
参数表
参数 类型及说明
hFile Long，文件的句柄
lpCreationTime FILETIME，用于装载文件的创建时间
lpLastAccessTime FILETIME，用于装载文件上一次访问的时间（FAT文件系统不支持这一特性）
lpLastWriteTime FILETIME，用于装载文件上一次修改的时间
注解
如果不需要特定的信息，那么lpCreationTime，lpLastAccessTime，lpLastWriteTime都可以设置为零（用ByVal As Long）。这个函数返回的文件时间采用UTC格式
FindFirstFile VB声明
Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
说明
根据文件名查找文件
返回值
Long，如执行成功，返回一个搜索句柄。如果出错，返回一个INVALID_HANDLE_VALUE常数，一旦不再需要，应该用FindClose函数关闭这个句柄
参数表
参数 类型及说明
lpFileName String，欲搜索的文件名。可包含通配符，并可包含一个路径或相对路径名
lpFindFileData WIN32_FIND_DATA，这个结构用于装载与找到的文件有关的信息。该结构可用于后续的搜索
注解
由这个函数返回的句柄可以作为一个参数用于FindNextFile函数。这样一来，就可以方便的枚举出与lpFileName参数指定的文件名相符的所有文件
FindNextFile VB声明
Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long
说明
根据调用FindFirstFile函数时指定的一个文件名查找下一个文件
返回值
Long，非零表示成功，零表示失败。如不再有与指定条件相符的文件，会将GetLastError设置成ERROR_NO_MORE_FILES
参数表
参数 类型及说明
hFindFile Long，由FindFirstFile函数返回的搜索句柄
lpFindFileData WIN32_FIND_DATA，这个结构用于装载与找到的文件有关的信息
Declare Function GetFileSize Lib "kernel32" Alias "GetFileSize" (ByVal hFile As Long, lpFileSizeHigh As Long) As Long
说明
判断文件长度
返回值
Long，返回文件长度。&HFFFFFFFF表示出错。注意如lpFileSizeHigh不为NULL，且结果为&HFFFFFFFF，那么必须调用GetLastError，判断是否实际发生了一个错误，因为这是一个有效的结果
参数表
参数 类型及说明
hFile Long，文件的句柄
lpFileSizeHigh Long，指定一个长整数，用于装载一个64位文件长度的头32位。如这个长度没有超过2＾32字节，则该参数可以设为NULL（变成ByVal） GetFileTime VB声明
Declare Function GetFileTime Lib "kernel32" Alias "GetFileTime" (ByVal hFile As Long, lpCreationTime As FILETIME, lpLastAccessTime As FILETIME, lpLastWriteTime As FILETIME) As Long
说明
取得指定文件的时间信息
返回值
Long，非零表示成功，零表示失败。会设置GetLastError
参数表
参数 类型及说明
hFile Long，文件的句柄
lpCreationTime FILETIME，用于装载文件的创建时间
lpLastAccessTime FILETIME，用于装载文件上一次访问的时间（FAT文件系统不支持这一特性）
lpLastWriteTime FILETIME，用于装载文件上一次修改的时间
注解
如果不需要特定的信息，那么lpCreationTime，lpLastAccessTime，lpLastWriteTime都可以设置为零（用ByVal As Long）。这个函数返回的文件时间采用UTC格式
FindFirstFile VB声明
Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
说明
根据文件名查找文件
返回值
Long，如执行成功，返回一个搜索句柄。如果出错，返回一个INVALID_HANDLE_VALUE常数，一旦不再需要，应该用FindClose函数关闭这个句柄
参数表
参数 类型及说明
lpFileName String，欲搜索的文件名。可包含通配符，并可包含一个路径或相对路径名
lpFindFileData WIN32_FIND_DATA，这个结构用于装载与找到的文件有关的信息。该结构可用于后续的搜索
注解
由这个函数返回的句柄可以作为一个参数用于FindNextFile函数。这样一来，就可以方便的枚举出与lpFileName参数指定的文件名相符的所有文件
FindNextFile VB声明
Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long
说明
根据调用FindFirstFile函数时指定的一个文件名查找下一个文件
返回值
Long，非零表示成功，零表示失败。如不再有与指定条件相符的文件，会将GetLastError设置成ERROR_NO_MORE_FILES
参数表
参数 类型及说明
hFindFile Long，由FindFirstFile函数返回的搜索句柄
lpFindFileData WIN32_FIND_DATA，这个结构用于装载与找到的文件有关的信息
1.引用"Microsoft Scripting Runtime"
Dim fso As New FileSystemObject
If fso.FileExists(PathName)=True Then '文件存在2.If Dir(PathName)<>"" Then '文件存在3 If FileLen(PathName)<>0 Then '文件存在