如何判断一个文件夹下是否有文件？

Question

有直接可以用的函数吗？

Answer 1

'获取文件属性的API
Private Declare Function GetFileAttributes Lib "kernel32" Alias "GetFileAttributesA" (ByVal lpFileName As String) As Long
Const FILE_ATTRIBUTE_DIRECTORY = &H10
Public Function fileExists(ByVal PathN As String) As Boolean
  PathN = Trim(PathN)
  If PathN = "" Then Exit Function
  Dim r As Long
  r = GetFileAttributes(PathN)
  fileExists =  (r > 0) And (r <> FILE_ATTRIBUTE_DIRECTORY)
End FunctionPublic Function DirectoryExists(ByVal PathN As String) As Boolean
  PathN = Trim(PathN)
  If PathN = "" Then Exit Function
  Dim r As Long
  r = GetFileAttributes(PathN)
  DirectoryExists = (r > 0) And (r = FILE_ATTRIBUTE_DIRECTORY)
End Function

Answer 2

Dim f As Folder
debug.print f.Files.Count