利用API检测文件是否存在

2016-02-19 18:51 4 1 收藏

下面这个利用API检测文件是否存在教程由图老师小编精心推荐选出，过程简单易学超容易上手，喜欢就要赶紧get起来哦！

【 tulaoshi.com - 编程语言】

在某些场合，我们需要确定特定目录下特定文件是否存在。VB自带的DIR函数可以查找符合条件的文件(在VB编程乐园已经有过介绍)，但用起来略显复杂。这里介绍一种较为简单的方法。
　　API函数的SHFileExists的功能，从其名字来看，应该是SearchFileExists，亦即查找存在的文件。用它来检测文件存在与否是很容易的。试看下面的例子。
　　
　　在标准EXE工程放置两个文本框和一个按钮，输入如下代码：
　　
　　PrivateDeclareFunctionSHFileExistsLib"shell32"Alias"#45"(ByValszPathAsString)AsLong
　　
　　PrivateSubCommand1_Click()
　　DimiAsInteger
　　i=Str$(SHFileExists(Text1.Text))
　　Ifi=0Then'Str$值只有两种可能，0或者1
　　Text2.Text="文件不存在"
　　Else
　　Text2="文件存在"
　　EndIf
　　EndSub
　　
　　按F5运行程序，在Text1输入要查找的文件的驱动器名、路径和名称，然后点击按钮，Text2会报告文件是否存在。
　　值得一提的是，SHFileExists函数支持对任何文件的查找，同时也支持对文件夹的查找。->

来源:http://www.tulaoshi.com/n/20160219/1619262.html

上一篇： DBGrid中用光标键控制Cell
下一篇：爱情像杯酒,但它只会让你越来越不清醒.

看过《利用API检测文件是否存在》的人还看了以下文章更多>>

利用API检测文件是否存在 02-19
IOS检测指定路径的文件是否存在 02-19
利用API创建文件目录 02-19
Ajax简单应用,检测用户名是否存在 02-19
excel用 vba判断文件是否存在 02-19
利用API播放声音文件 02-19
用javascript实现检测指定目录是否存在的方法 02-19
VB之Win32 API编程--判断本地或远程文件是否存在的简易方法 01-29
jquery ajax 检测用户注册时用户名是否存在 02-19
delphi编程实现检测声卡存在 02-19

检查当前目录下是否存在指定的文件如果存在就重新命名

标签： Web开发

% function JudgeFileExit(strFileName) Dim objFSO,objFile,objFJ Dim strFilePath Dim blFJ Dim intFlag intFlag=0 set objFSO=CreateObject("Scripting.FileSystemObject") strFilePath=server.MapPath("./") if right(strFilePath,1)"/" or right(strFilePath,1)"\" then strFilePath=strFilePath&"\" end if blFJ=objFSO.FileExists(st...

是否存在健康隐患

标签：营养价值

土豆，是我们日常生活当中常见的食物，经常会发现有土豆长芽的情况，挖掉芽以后是否就等于土豆是安全的了?很多人都很困惑，那么发芽的土豆到底能不能吃呢?发芽的土豆能吃吗?下面就让图老师小编带着大家一起来看看吧。其实并不是这样，隐患仍在，只是危险性减小了，因此在烹饪土豆的过程中，还要懂得一些烹饪技巧，减少发芽土豆可能...

利用API播放AVI

标签：编程语言网络编程

声明： DeclareFunctionmciSendStringLib"winmm.dll"Alias"mciSendStringA"(ByVallpstrCommandAsString,ByVallpstrReturnStringAsString,ByValuReturnLength AsLong,ByValhwndCallbackAsLong)AsLong 代码： DimreturnstringAsString FileNameAsString returnstring=Space(127) FileName="C:A1.avi" erg=mciSend...

检查当前目录下是否存在指定的文件如果存在就重新命名

标签： ASP

<% function JudgeFileExit(strFileName) Dim objFSO,objFile,objFJ Dim strFilePath Dim blFJ Dim intFlag intFlag=0 set objFSO=CreateObject("Scripting.FileSystemObject") strFilePath=server.MapPath("./") if right(strFilePath,1)<"/" or right(strFilePath,1)<"\" then strFilePath=strFilePath&"\" end if blFJ=objFSO.F...

怎么检测是否怀孕

标签：怀孕

怎么检测是否怀孕正确验孕一般验孕笔会标示准确率，例如95%、98%等，若无标示，并不表示准确率百分之百，因为有某些因素会造成验孕笔失效。验孕笔可能失效验孕笔失效可以两种型态表示： 1 已怀孕，但验出来显示没有怀孕，即验孕笔不够敏感：可能的原因包括验孕笔过期、药剂已失效;另一种原因是厂商使用的药剂有问题。 2 未怀孕，但...

查看更多精彩>>