调用API为什么不对！

Question

“用户定义类型”是指WIN32_FIND_DATA吧？
你copy了这个类型（type）没有？

Answer 1

Private Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As LongPrivate Type WIN32_FIND_DATA
  dwFileAttributes As Long
  ftCreationTime As FILETIME
  ftLastAccessTime As FILETIME
  ftLastWriteTime As FILETIME
  nFileSizeHigh As Long
  nFileSizeLow As Long
  dwReserved0 As Long
  dwReserved1 As Long
  cFileName As String * MAX_PATH
  cAlternate As String * 14
End Type定义一下！

Answer 2

补充：
Public Const MAX_PATH = 1000Private Type FILETIME
  dwLowDateTime As Long
  dwHighDateTime As Long
End Type摘自：y1g1y1(袁飞☆曾经沧海难为水，除却VB不是云☆)