title image


Smiley Re: Datum einer Datei auslesen
Hallo Thommy!Wenn du API magst ...Private Type FILETIME dwLowDateTime As Long dwHighDateTime As LongEnd TypePrivate Type SYSTEMTIME wYear As Integer wMonth As Integer wDayOfWeek As Integer wDay As Integer wHour As Integer wMinute As Integer wSecond As Integer wMilliseconds As IntegerEnd TypePrivate Const GENERIC_WRITE = &H40000000Private Const OPEN_EXISTING = 3Private Const FILE_SHARE_READ = &H1Private Const FILE_SHARE_WRITE = &H2Private Const FO_DELETE = &H3Private Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, lpSecurityAttributes As Long, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As LongPrivate Declare Function FileTimeToSystemTime Lib "kernel32" (lpFileTime As FILETIME, lpSystemTime As SYSTEMTIME) As LongPrivate Declare Function FileTimeToLocalFileTime Lib "kernel32" (lpFileTime As FILETIME, lpLocalFileTime As FILETIME) As LongPrivate Declare Function GetFileTime Lib "kernel32" (ByVal hFile As Long, lpCreationTime As FILETIME, lpLastAccessTime As FILETIME, lpLastWriteTime As FILETIME) As LongPublic Sub HoleDateiDatum(sDatei As String) Dim lngHandle As Long Dim lngLong As Long Dim Ft1 As FILETIME Dim Ft2 As FILETIME Dim SysTime As SYSTEMTIME lngHandle = CreateFile(sDatei, GENERIC_WRITE, FILE_SHARE_READ Or FILE_SHARE_WRITE, ByVal 0&, OPEN_EXISTING, 0, 0) GetFileTime lngHandle, Ft1, Ft1, Ft2 FileTimeToLocalFileTime Ft2, Ft1 FileTimeToSystemTime Ft1, SysTime MsgBox "Die Datei wurde zuletzt am: " & DateSerial(SysTime.wYear, SysTime.wMonth, SysTime.wDay) & " bearbeitet!", vbInformation, "Hinweis" End SubLLAPManuelaDa könnte man auch was finden ;-)Karl Donaubauers Access-FAQ: http://www.donkarl.comDev Ashish FAQ (The Access Web): http://www.mvps.org/access/KnowHow von Klaus Oberdalhoff: http://www.accessware.de/accessware/index.htmlWie kann man im Forum ... (formatieren):http://www.spotlight.de/ewf-faq/forumslink.htmMSDN-Online: http://msdn.microsoft.com/default.aspAccess Archive: http://www.accessarchive.com/Microsoft Acces Knowledge-Base: http://www.microsoft.com/intlkb/germany/support/kb/B_WACCESS.HTMMicrosoft Online-Suche: http://support.microsoft.com/support/search/Microsoft dt. Online-KB: http://search.microsoft.com/germany/supportkb/Beiträge von verschiedenen Access-NGs: http://home.t-online.de/home/Heinrich.Schramm/deja.htmlWinSite Archive - Microsoft Access Files (Demos & Freeware): http://www.winsite.com/win95/access/index.html
VBA & Acces Tipps & Tricks - Tutorials - Downloads uvm.
Mathematische Definition des allgemeinen Dringlichkeitsaxioms:
D = (PZ/K) * (C + A + N) - Fazit: Alle Dinge werden unter Druck schlimmer


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: