冒险解谜游戏中文网 ChinaAVG

标题: [VB Code]FindFileExst Module [打印本页]

作者: firendless    时间: 2009-3-19 08:09
标题: [VB Code]FindFileExst Module
一个Module,便于查找文件,dir函数不适用的情况下,此函数比较便捷。
/ u9 \6 s& }8 `, r. h拿的M$的eg,修改了一下,效果还可以。支持网络上的文件。  z4 S. U  r" O6 [  t& p: o
  1. 'by Firendless at 090319
  2. 'www.promiseforever.com
  3. Option Explicit
  4. Private Declare Function OpenFile _
  5.         Lib "kernel32" (ByVal lpFileName As String, _
  6.                         lpReOpenBuff As FirFile, _
  7.                         ByVal wStyle As Long) As Long
  8.    
  9. Private Type FirFile
  10.    
  11.     cBytes As Byte
  12.     fFixedDisk As Byte
  13.     nErrCode As Integer
  14.     Reserved1 As Integer
  15.     Reserved2 As Integer
  16.     szPathName(128) As Byte
  17.    
  18. End Type
  19.    
  20. Public Function CheckFileExist(strSearchFile As String) As Boolean
  21.     If strSearchFile = "" Then
  22.    
  23.         CheckFileExist = False
  24.         Exit Function
  25.         
  26.     End If
  27.    
  28.     Dim lngResult       As Long
  29.     Dim strFileBuff     As FirFile
  30.    
  31.     lngResult = OpenFile(strSearchFile, strFileBuff, &H4000)
  32.    
  33.     If lngResult = -1 Then
  34.         
  35.         CheckFileExist = False
  36.         Exit Function
  37.         
  38.     Else
  39.         
  40.         CheckFileExist = True
  41.         Exit Function
  42.         
  43.     End If
  44.    
  45. End Function
复制代码

作者: shane007    时间: 2009-3-19 11:14
学习了




欢迎光临 冒险解谜游戏中文网 ChinaAVG (https://chinaavg.com/) Powered by Discuz! X3.2