AW: Eigenschaften von xls.Dateien auf WebServer
14.10.2008 13:15:00
xls.Dateien
Hallo Kernbaum,
vielleicht klappt es mit den API-Funktionen
Gruß
Fritz
Option Explicit
Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" ( _
ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
Private Declare Function FileTimeToSystemTime Lib "kernel32" _
(lpFileTime As FILETIME, lpSystemTime As SYSTEMTIME) _
As Long
Private Declare Function FindClose Lib "kernel32" ( _
ByVal hFindFile As Long) As Long
Const MAX_PATH = 260
Public Type FILETIME
dwLowDateTime As Long
dwHighDateTime As Long
End Type
Public 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 Integer
End Type
Public 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
Sub CheckDateiDatum()
Dim hFile&, L&
Dim FD As WIN32_FIND_DATA
Dim sTime As SYSTEMTIME, lTime As FILETIME
hFile = FindFirstFile("c:\temp\testdatei.xls", FD)
If hFile > 0 Then
lTime = FD.ftLastWriteTime
L = FileTimeToSystemTime(lTime, sTime)
MsgBox (CalcFTime(sTime))
End If
FindClose (hFile)
End Sub
Private Function CalcFTime(FTime As SYSTEMTIME) As String
Dim WT(0 To 6) As String, Datum$, Zeit$, aa$, TT$, MM$, JJ$, HH$, MIN$, JJJJ$
WT(0) = "So"
WT(1) = "Mo"
WT(2) = "Di"
WT(3) = "Mi"
WT(4) = "Do"
WT(5) = "Fr"
WT(6) = "Sa"
With FTime
TT = .wDay
MM = .wMonth
JJJJ = .wYear
HH = .wHour
MIN = .wMinute
If Len(TT) = 1 Then TT = "0" & TT
If Len(MM) = 1 Then MM = "0" & MM
If Len(HH) = 1 Then HH = "0" & HH
If Len(MIN) = 1 Then MIN = "0" & MIN
CalcFTime = TT & "." & MM & "." & JJJJ
End With
End Function