如何判断我要找的一个文件是否存放在我的计算机上？

0551 2003-09-26 10:18:15

...全文

58 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

射天狼 2003-09-26

打赏
举报

如楼上所说~~

chao778899 2003-09-26

打赏
举报

If Dir("f:\aa.txt") = "" Then
MsgBox "no"
Else
MsgBox "yes"
End If

tonylk 2003-09-26

打赏
举报

Private Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long
Private Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
Private Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long

Private Const MAX_PATH = 260

Type FILETIME
dwLowDateTime As Long
dwHighDateTime As Long
End Type
Type WIN32_FIND_DATA
dwFileAttributes As Long
ftCreationTime As FILETIME
ftLastAccessTime As FILETIME
ftLastWriteTime As FILETIME
nFileSizeHigh As Long
nFileSizeLow As Long
dwReserved0 As Long
dwReserved1 As Long
cFileName As String * MAX_PATH
cAlternate As String * 14
End Type

Private Const FILE_ATTRIBUTE_DIRECTORY = &H10
Private Const FILE_ATTRIBUTE_NORMAL = &H80

Public Function FileExists(FileName As String) As Boolean
Dim FindHandle As Long
Dim FindData As WIN32_FIND_DATA

On Error GoTo ErrHandler
FindHandle = FindFirstFile(FileName, FindData)
FileExists = False
If FindHandle >= 0 Then
If (FindData.dwFileAttributes And FILE_ATTRIBUTE_DIRECTORY) = False Then
FileExists = True
End If
End If
FindClose (FindHandle)
Exit Function

ErrHandler:
MsgBox Err.Description
End Function

viber 2003-09-26