API函數(shù) PathFileExists
聲明
Private Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long
PathFileExists("一個(gè)文件或文件夾") 如果存在 返回1 不存在返回0
If PathFileExists("C:\123") then ...
Dir不準(zhǔn)確
如果有下列
目錄結(jié)構(gòu)D
盤(pán)中有文件夾 test 文件夾中有testFile.txt文件
還有空文件夾 testEmpty
則
Dir("d:\test\testFIie.txt") 返回 testFile.txt
Dir("d:\test\testFIie11111111.txt") 返回 ""
Dir("d:\test\") 返回 testFile.txt (返回此文件夾第一個(gè)文件)
Dir("d:\testEmpty") 返回空
dir("一個(gè)不存在的文件夾")返回空
也就是說(shuō)如果一個(gè)文件夾下沒(méi)有文件（不管有沒(méi)有子文件夾）則 dir("一個(gè)文件夾")就返回空
所以不能通過(guò) dir("一個(gè)文件夾")來(lái)判斷一個(gè)文件夾是否存在。
只能調(diào)用api
函數(shù)Private Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long
PathFileExists("一個(gè)文件或文件夾") 如果存在 返回1 不存在返回0
