如何去指定目录查找指定的文件是否存在,谢谢!

Question

我现在要作的为:到指定目录查找以当前日期命名的txt档是否存在，如不存在，则mail给相关人员。
指定目录、相关人员mail地址会在 程序同目录下 xxx.ini文件中定义，内容类似：
[paths]
c:\getdata
c:\mealdata[adm]
kitty sun
现在的问题为:
1.如何正确的读取xxx.ini
2.如何判断指定目录下以当前日期命名的txt档是否存在谢谢,新手,希望得到大家的支持

Answer 1

你可以看一下ReadPrivateXXXXXXString这样的Api函数来读ini文件中的内容(你可以在以前的贴子中具体查找一下，有这方面的详细说明)2.在VB中可以用Dir函数来测试一个文件或文件夹是否存在。

Answer 2

可以这样判断：1.
if dir("c:\1.exe") then...2.
dim fso as filesystemobject
if fso.fileexist("c:\1.exe") then

Answer 3

另：如果是在递归中，则不能用dir函数判断

Answer 4

操作ini
Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
然后用
dim fso as filesystemobject
if fso.fileexist(strFilePath) then ……

Answer 5

if len(dir("文件名", ))=0 then
   msgbox "文件不存在"
endif