VB-Homepage Tipp 020

Dateiinformationen Datum/Zeit ändern

Aktualisierung des Datums und der Zeit von einer Datei, ohne diese zu verändern.
(Im Beispiel auf das aktuelle Datum und die aktuelle Zeit)
Fügen Sie einen Commandbutton und zwei Labels ihrer Form hinzu

General/Declarations '(der Form)
Declare Function SetTime Lib "SETUPKIT.DLL" (ByVal A$, ByVal b$) As Integer

Form1/Load  'nur zur Anzeige des alten Datums & Zeitformats
Label1.Caption = FileDateTime("C:\Temp\????????.???") 'Dateinamen eintragen

Command1/Click
'erstellt eine neue Datei und gibt ihr das aktuelle Datum-Zeit
Open "C:\Temp\Aktdat.txt" For Output As #1
   Print #1, " " 'schreibt imaginären Inhalt in Datei
Close #1 'schließt diese Datei

'Definiert erstellte Datei als Ausgangsdatei, von der Datum abgenommen wird
Aktfile$ = "C:\Temp\Aktdat.txt"    

Zielfile$ = "C:\Temp\????????.???"      'zu aktualisierende Datei

Result = SetTime(Aktfile$, Zielfile$)    'Funktionsaufruf

'Nur zur Anzeige das neues Datums & Zeitformats
Label2.Caption = FileDateTime("C:\Temp\????????.???")

Kill "C:\Temp\Aktdat.txt"                   'Löscht die Ursprungsdatei

Dies läßt sich natürlich noch verfeinern und Ihren Vorstellungen anpassen.

Für die 32Bit Version, gibt es die STKIT432.DLL oder VB5STKIT.DLL oder VB6STKIT.DLL ! Aber Vorsicht, es klappt nicht überall.
STKIT432 = Funktion definiert, beim Test unter VB6 keine Änderung des Datums
VB5STKIT = Funktion definiert, Datum/Uhrzeit wird geändert

Private Declare Function SetTime Lib "VB5STKIT.DLL" (ByVal a As String, ByVal b As String) As Integer

VB6STKIT = Funktion nicht definiert


Tipp-Download

Quelle :

Zurück zur Übersichtsseite