[VB Code]FindFileExst Module

firendless

一个Module,便于查找文件,dir函数不适用的情况下,此函数比较便捷。
拿的M$的eg,修改了一下,效果还可以。支持网络上的文件。
/ Y( ?- m- ]: [- O; \( U' a

1. 'by Firendless at 090319
2. 'www.promiseforever.com
3. Option Explicit
5. Private Declare Function OpenFile _
6.         Lib "kernel32" (ByVal lpFileName As String, _
7.                         lpReOpenBuff As FirFile, _
8.                         ByVal wStyle As Long) As Long
9.    
10. Private Type FirFile
11.    
12.     cBytes As Byte
13.     fFixedDisk As Byte
14.     nErrCode As Integer
15.     Reserved1 As Integer
16.     Reserved2 As Integer
17.     szPathName(128) As Byte
18.    
19. End Type
20.    
21. Public Function CheckFileExist(strSearchFile As String) As Boolean
23.     If strSearchFile = "" Then
24.    
25.         CheckFileExist = False
27.         Exit Function
28.         
29.     End If
31.    
32.     Dim lngResult       As Long
33.     Dim strFileBuff     As FirFile
34.    
35.     lngResult = OpenFile(strSearchFile, strFileBuff, &H4000)
36.    
37.     If lngResult = -1 Then
38.         
39.         CheckFileExist = False
40.         Exit Function
41.         
42.     Else
43.         
44.         CheckFileExist = True
45.         Exit Function
46.         
47.     End If
48.    
49. End Function

复制代码

shane007

学习了