VB之Win32 API编程--判断本地或远程文件是否存在的简易方法

原创 2004年08月27日 09:15:00

中午休息时,在FOX API(我常用的Win32 API浏览器)上发现了一个简单极好用的Win32API函数,是用来判断本地文件或远程机器文件是否存在的:

1.   Private Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long

这是封装在Shell32.DLL系统文件里的一个函数,既可以判断本地文件是否存在,又可以判断远程电脑上的文件是否存在。函数返回值是个Long型变量,返回两个值0,1。1表示文件存在(True),0表示文件不存在(False)。而且只有一个参数szPath,是个字符串变量,如果要判断本地的文件是否存在其路径可写为:”C:/Windows/Config/SysBook.Txt”),如果文件在远程电脑上,其路径可写为(假设对方电脑IP为192.168.0.2)

"//192.168.0.2/d$/javatools/somefile.txt",如果其电脑名为WorkStation可写为

“//workstation/javatools/somefile.txt",当然这个函数还可以查找网站上的网页文件如:"http://www.microsoft.com/ms.htm"

我们可以写个简单的自定义公用函数来完成这个功能,在自定义函数里调用这个API函数

Public Function GetFileExists(ByVal FileName As String) As Boolean
    If FileName = "" Then
        MsgBox "请输入文件名", vbInformation, "提示"
        Exit Function
    Else
        GetFileExists = CBool(PathFileExists(FileName))
    End If
End Function

在窗体界面上加一按钮,和一文本框

Private Sub Command1_Click()
    Dim T As Boolean
    T = GetFileExists("F:/it/Develope/Retail/Bill/vssver.scc")
    If T = True Then
        Text1.Text = "该文件存在"
    Else
        Text1.Text = "该文件不存在"
    End If
End Sub

当然GetFileExists其中的参数还可以写成

"//192.168.0.2/d$/javatools/somefile.txt"

"//workstation/javatools/somefile.txt"

"http://www.microsoft.com/ms.htm"

这个函数除了能判断文件是否存在外,还可以判断本地或远程文件夹

是否存在,我觉得这要比用Dir这个VB自带函数来判断文件是否存在要好用多了,而且也不需要调用FileSystemObject组件来操作了。

 

PHP 判断远程或者本地文件是否存在

$baidu_logo = "http://pr.bdimg.com/static/princess/img/misc/baidu_logo.gif"; $logo       = "http://...
  • wjc19911118
  • wjc19911118
  • 2014年12月29日 13:39
  • 1219

判断文件、目录是否存在:C、C++、Windows API、 boost

一、判断文件是否存在 #ifdef WIN32 #include //C (Windows) access #else #include ...
  • kanguolaikanguolaik
  • kanguolaikanguolaik
  • 2013年12月11日 10:15
  • 7453

在VB中如何判断文件、文件夹是否存在和生成文件夹

一、在VB编程中,经常需要判断一个文件和文件夹是否存在,以便执行相应的操作,这可以用下列语句进行判断。  Dir ([PathName],[Attributes as VbFileAttri...
  • angel20082008
  • angel20082008
  • 2015年04月24日 19:39
  • 5453

php如何判断文件是否存在,包括本地和远程文件

当检查的文件是本地时用php自带的file_exists检查就行了,而此函数只能检查本地的函数是否存在, 所以如果要检查远程的文件是否存在只能用其它的方法了。 如果所服务器中php的配置开启了“a...
  • jijun7885417
  • jijun7885417
  • 2012年01月02日 16:00
  • 7479

VB中如何判断文件、文件夹是否存在

在VB中编程中,经常需要判断一个文件是否存在,以便执行相应的操作,这可用下列语句进行判断        Dir([pathname],[Attributes as VbFileAttribute=vb...
  • changleqy
  • changleqy
  • 2007年08月05日 10:39
  • 6832

java访问远程文件判断是否存在的问题

最近做了一个访问远程文件是否存在的程序 其中判断远程文件是否存在的内容是这样的: import java.net.HttpURLConnection; import java.net.URL; ...
  • liqingzhu7
  • liqingzhu7
  • 2017年06月28日 11:42
  • 818

php判断本地及远程文件是否存在

本文介绍使用php判断文件是否存在的方法,支持本地及远程文件判断,提供完整调用代码及演示。...
  • fdipzone
  • fdipzone
  • 2017年07月23日 10:43
  • 43196

如何验证远程服务器上文件是否存在

转载:http://blog.csdn.net/soundfly/article/details/6177535 没有废话,只有代码。   [java] view...
  • u011203602
  • u011203602
  • 2015年09月22日 18:09
  • 1078

shell ftp判断远程主机是否存在某目录

. $HOME/.profile WORK_HOME="/data/log" Login() { HOST_IP='10.25.79.112' USRNM='xxx' PWD='xxx' R...
  • tower888
  • tower888
  • 2014年03月20日 13:14
  • 6178

Java判断远程服务器上文件是否存在(跨服务器)

http://www.cnblogs.com/luckydog1/p/5772259.html       方法一:        URL serverUrl = new URL...
  • mengzhengjie
  • mengzhengjie
  • 2016年12月07日 10:05
  • 1271
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:VB之Win32 API编程--判断本地或远程文件是否存在的简易方法
举报原因:
原因补充:

(最多只允许输入30个字)