fortran中使用getfiletime来得到文件最后时间的问题

long

我想得到文件夹的最后修改时间，使用下面的程序，但是得不到结果，这是为什么呢？请求高手解答
  Program Main
  Use Kernel32
  Integer iHandle , iRes
  TYPE (T_SECURITY_ATTRIBUTES) :: stSec
  TYPE (T_FILETIME) :: stCreate , stModify , stAccess
  TYPE (T_SYSTEMTIME) :: stSysTime
iHandle = CreateFile( "F:\fortran\data\123",GENERIC_READ,FILE_SHARE_READ,stSec,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL, 0 )
  iRes = GetFileTime( iHandle , stCreate , stAccess , stModify )
  iRes = FileTimeToLocalFileTime( stModify , stModify )
  iRes = FileTimeToSystemTime( stModify , stSysTime )
  write(*,*) stSysTime%wYear , stSysTime%wMonth , stSysTime%wDay , stSysTime%wHour , stSysTime%wMinute , stSysTime%wSecond
End Program Main

topmad

原来用过systemclock 测试程序运行时间  调用系统时间没用过  楼主再试试  我也看看