Eigenschaften einer Datei auslesen

13/06/2009 - 19:04 von Joerg M. | Report spam
Hallo NG,

ich möchte die Eigenschaften einer Datei auslesen und anschließend in Access
verwenden, z.B. für einen Bericht.

Es interessieren mich:

Dateiname (habe ich über OpenFileDialog)
Speicherort (habe ich über OpenFileDialog)
Größe (exakt auf Bytes)
Erstellungsdatum
Letztes Änderungsdatum

Wie kann ich diese auslesen?

Außerdem würde ich gerne eine eindeutige Kennung der Datei auslesen. Ist das
der sog. MD5 oder was eignet sich da?

Wie kann ich dies auslesen?

DANKE

Gruß Jörg
 

Lesen sie die antworten

#1 Wolfgang Badura
13/06/2009 - 19:37 | Warnen spam
Hallo Joerg!
"Joerg M." wrote in message
news:
Größe (exakt auf Bytes)


Das geht am besten mit dem Scripting Host, weil der das Größenlimits für
eine int32-Variable nicht kennt:

Function FileExists_FSO(FileName As String) As Boolean
Dim OFS
FileExists_FSO = False

If FileName <> "" Then
Set OFS = CreateObject("Scripting.FileSystemObject")
FileExists_FSO = OFS.FileExists(FileName)
Set OFS = Nothing
End If
End Function

' Dateigröße ermitteln mit dem FSO, sFile=voll ausqualifiziert
Public Function GetFileSizeFSO(ByVal sFile As String) As Double
Dim objFso As FileSystemObject
Dim objFile As File

If FileExists_FSO(sFile) Then
Set objFso = New FileSystemObject
Set objFile = objFso.GetFile(sFile)
GetFileSizeFSO = objFile.Size
Set objFile = Nothing
Set objFso = Nothing
End If
End Function

Function FileExists_FSO(FileName As String) As Boolean
Dim OFS As Object
FileExists_FSO = False

If FileName <> "" Then
Set OFS = CreateObject("Scripting.FileSystemObject")
FileExists_FSO = OFS.FileExists(FileName)
Set OFS = Nothing
End If
End Function

Erstellungsdatum
Letztes Änderungsdatum

Wie kann ich diese auslesen?



Das geht mit den API´s
OpenFile, GetFileTime
plus den Types OFSTRUCT, FILETIME sowie SYSTEMTIME (wenn Du die Zeitangaben
lesen/àndern können möchtest).

Mit Gruß aus Wien
Wolfgang

Ähnliche fragen