handel=readfile("C:\beispiel.txt")

api_GetFileTime% (handel, lpCreationTime, lpLastAccessTime, lpLastWriteTime)

print lpCreationTime

Const GENERIC_READ     = $80000000
Const GENERIC_WRITE    = $40000000
Const FILE_SHARE_READ  = 1
Const FILE_SHARE_WRITE = 2
Const OPEN_EXISTING    = 3

Const Accessed         = 1
Const Creation         = 2
Const LastWrite        = 3




;--- the test code

Filename$="e:\main.html"

Print Filename$
Print  " Last Accessed " + GetFileTime(Filename$,Accessed)
Print  " Creation Time " + GetFileTime(Filename$,Creation)
Print  " Last Written to " +GetFileTime(Filename$,LastWrite)

WaitKey()
End




Function GetFileTime$(Filename$,TimeMode,LocalTime=True)
;  ADAmor ZILTCH 2 july 2003
;  version 1.1

  FileHandle = CreateFile(Filename$, GENERIC_READ, FILE_SHARE_READ Or FILE_SHARE_WRITE, 0, OPEN_EXISTING, 0, 0)

  If FileHandle = 0 Then Return

  FiletimeBank      = CreateBank(16)
  LocalFiletimeBank = CreateBank(16)

  Select TimeMode

    Case Accessed
     fail = GetFileAccessTime(FileHandle,0,Filetimebank,0)
    Case Creation
     fail = GetFileCreationTime(FileHandle,Filetimebank,0,0)
    Case LastWrite
     fail = GetFileLastWriteTime(FileHandle,0,0,Filetimebank)

  End Select

  If fail=0 Then
      api_CloseHandle(FileHandle)
      FreeBank LocalFiletimeBank
      FreeBank FiletimeBank
      Return
  End If
 
  FileSysTimeBank = CreateBank(16)
 
  If LocalTime Then
    FileTimeToLocalFileTime%(FiletimeBank,LocalFiletimeBank)
    FileTimeToSystemTime(LocalFiletimeBank,FileSysTimeBank)
  Else
    FileTimeToSystemTime(FiletimeBank,FileSysTimeBank)
  End If




  api_CloseHandle(FileHandle)

  wYear% = PeekShort(FileSysTimeBank,0)
  wMonth% = PeekShort(FileSysTimeBank,2)
; wDayOfWeek% = peekshort(FileSysTimeBank,4)
  wDay% = PeekShort(FileSysTimeBank,6)
  wHour%= PeekShort(FileSysTimeBank,8)
  wMinute%= PeekShort(FileSysTimeBank,10)
  wSecond%= PeekShort(FileSysTimeBank,12)
  wMilliseconds%= PeekShort(FileSysTimeBank,14)

  Filetime$ =  wYear+ "/" +wMonth+ "/" +wDay+ " " +wHour+ ":" +wMinute+ ":" +wSecond;+ " :" +wMilliseconds%

  FreeBank LocalFiletimeBank
  FreeBank FiletimeBank
  FreeBank FileSysTimeBank

  Return Filetime

End Function
 

Pfad$="C:\Blitz\test\"
Zuda$=".jpg"
inwa$=Input("In Wass sollen die daten umbenand werden : ")

Write "Datei:           Name:          Zeit:

Verz=ReadDir(Pfad$)
Repeat
Datei$=NextFile$(Verz)
txt=Instr(Lower(Datei$),Zuda$)
If Datei$="" Then Exit
If FileType(Pfad$+Datei$)=1 Then
Write "Datei: " +datei$
Zeit$=Filetime$(Pfad$+Datei$,2)
Write "   "+Zeit$
CopyFile Pfad$+datei$,Pfad$+inwa$+" "+Zeit$+Zuda$
DeleteFile Pfad$+Datei$
End If
Print ""
Forever
CloseDir Verz
Print
Print "-Ende-"


Function FileDate$(file$,mode=2)
   bank=GetFileTime(file$,mode)   
   month = FileMonth(bank) : myMonth$ = month
   If month < 10 Then myMonth$ = "0"+ month      
   day = FileDay(bank) : myDay$ = day
   If day < 10 Then myDay$ = "0"+ day
   year = FileYear(bank)
   FreeBank bank
   Return myDay$+ "-" +  myMonth$ + "-" + year
End Function


Function FileTime$(file$,mode=2)
   bank=GetFileTime(file$,mode)      
   hour = FileHour(bank) : myHour$ = hour
   If hour < 10 Then myHour$ = "0"+ hour
   minute = FileMinute(bank) : myMinute$ = minute
   If minute < 10 Then myMinute$ = "0"+ minute
   second = FileSecond(bank) : mySecond$ = second
   If second < 10 Then mySecond$ = "0"+ second
   FreeBank bank   
   Return myHour$ + "." + myMinute$ + "." + mySecond   
End Function


Function GetFileTime(file$,mode=2)
   If mode < 0 Or mode > 2 Then Return
   If file$ = "" Then Return
   lpReOpenBuff = CreateBank (150)
   lpCreationTime = CreateBank (8)
   lpLastAccessTime = CreateBank (8)
   lpLastWriteTime = CreateBank (8)
   lpLocalFileTime = CreateBank (8)
   lpSystemTime = CreateBank (16)   
   
   hFile = api_OpenFile% (file$, lpReOpenBuff, 0)
   If hFile <> -1
      result = api_GetFileTime (hFile, lpCreationTime, lpLastAccessTime, lpLastWriteTime)
      If result = 1       
         If mode = 0 Then result = api_FileTimeToLocalFileTime(lpCreationTime,lpLocalFileTime)
         If mode = 1 Then result = api_FileTimeToLocalFileTime(lpLastAccessTime,lpLocalFileTime)
         If mode = 2 Then result = api_FileTimeToLocalFileTime(lpLastWriteTime,lpLocalFileTime)      
         If result = 1
            result = api_FileTimeToSystemTime (lpLocalFileTime,lpSystemTime)
         
         End If
      End If
      api_CloseHandle(hFile)            
   End If   


   FreeBank lpReOpenBuff : FreeBank lpCreationTime : FreeBank lpLastAccessTime
   FreeBank lpLastWriteTime : FreeBank lpLocalFileTime
   Return lpSystemTime
End Function

Function FileYear(bank)
   If bank <= 0 Then Return
   Return PeekShort(bank,0)
End Function

Function FileMonth(bank)
   If bank <= 0 Then Return
   Return PeekShort(bank,2)
End Function

Function FileDayOfWeek(bank)
   If bank <= 0 Then Return
   Return PeekShort(bank,4)
End Function

Function FileDay(bank)
   If bank <= 0 Then Return
   Return PeekShort(bank,6)
End Function

Function FileHour(bank)
   If bank <= 0 Then Return
      Return PeekShort(bank,8)
End Function

Function FileMinute(bank)
   If bank <= 0 Then Return
   Return PeekShort(bank,10)
End Function

Function FileSecond(bank)
   If bank <= 0 Then Return
   Return PeekShort(bank,12)
End Function

Function FileMillisec(bank)   
   If bank <= 0 Then Return
   Return PeekShort(bank,14)
End Function