设为首页收藏本站官方微博

[VB Code]FindFileExst Module

[复制链接]
查看: 1331|回复: 1
打印 上一主题 下一主题

[VB Code]FindFileExst Module

跳转到指定楼层
楼主
发表于 2009-3-19 08:09 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

[VB Code]FindFileExst Module

一个Module,便于查找文件,dir函数不适用的情况下,此函数比较便捷。6 K( N1 Y1 w: Z1 ]# {- I- c  h
拿的M$的eg,修改了一下,效果还可以。支持网络上的文件。+ F" y9 ]2 _+ w0 S( b2 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
复制代码
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 很美好很美好 很差劲很差劲
回复

使用道具 举报

沙发
发表于 2009-3-19 11:14 | 只看该作者
学习了
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

冒险解谜游戏中文网 ChinaAVG

官方微博官方微信号小黑屋 微信玩家群  

(C) ChinaAVG 2004 - 2019 All Right Reserved. Powered by Discuz! X3.2
辽ICP备11008827号 | 桂公网安备 45010702000051号

冒险,与你同在。 冒险解谜游戏中文网ChinaAVG诞生于2004年9月9日,是全球华人共同的冒险解谜类游戏家园。我们致力于提供各类冒险游戏资讯供大家学习交流。本站所有资源均不用于商业用途。

快速回复 返回顶部 返回列表