| 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. |
| Tipp-Download |
| Quelle : |
 |