Deutsch
Quelltexte/ Codesnippets

Datei Datum Lesen ändern

 

KompilierenMarkierenSeparieren
Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Datei: Datum einer Datei lesen und ändern
Beschreibung des Programmes FileTime.
Das Programm liest und ändert das Datum einer Datei (Erstellungsdatum und Datum der
letzten Änderung).
Version 1.2   9.4.2002.     Das Programm kann frei benutzt werden, für
Schäden kann keine Haftung übernommen werden.
Autor: Gerhard Putschalka
email: g.putschalka@web.de
homepage: http://members.telering.at/g.putschalka/index.html
Funktionen definieren
DEF CloseHandle(1)         !KERNEL32,CloseHandle
DEF OpenFile(3)            !KERNEL32,OpenFile
DEF GetFileTime(4)         !KERNEL32,GetFileTime
DEF SetFileTime(4)         !KERNEL32,SetFileTime
DEF GetLastError(0)        !KERNEL32,GetLastError
Def ToSystemTime(2)        !KERNEL32,FileTimeToSystemTime
Def FromSystemTime(2)      !KERNEL32,SystemTimeToFileTime
Def LocalTimeToFileTime(2) !KERNEL32,LocalFileTimeToFileTime
Def FileTimeToLocalTime(2) !KERNEL32,FileTimeToLocalFileTime
Declare FilHndl&,Buff1#,Buff3#,Buff2#,ETime#,FTime#,LTime#,CTime#,Ret&,Datei$
Declare Jahr&,Monat&,WoTag&,Tag&,Stund&,Minut&,Seknd&,Fehler%,WoTag$
Drucken des Datums und der Zeit

Proc Umsetzen

    Parameters W$
    Let Jahr&  = @Word(Buff3#,0)
    Let Monat& = @Word(Buff3#,2)  1 - 12
    Let WoTag& = @Word(Buff3#,4)  0 = Sonntag, ... 7= Samstag
    Let Tag&   = @Word(Buff3#,6)  1 - 31
    Let Stund& = @Word(Buff3#,8)
    Let Minut& = @Word(Buff3#,10)
    Let Seknd& = @Word(Buff3#,12)
    drucken der Werte. In W$ wird ein Text übergeben.
    Print W$,@Substr$(WoTag$,(WoTag& + 1),;),
    @Str$(Tag&);.;@Str$(Monat&);.;@Str$(Jahr&); um ;
    @Str$(Stund&);:;@Format$(00,Minut&);:;@Format$(00,Seknd&)
    Return

EndProc

======
Main
======
CLS
Dim Buff1#,128
Dim Buff2#,255
Dim Buff3#,20
Dim ETime#,4  Erstellungsdatum
Dim LTime#,4  Datum letzter Zugriff
Dim CTime#,4  Datum der letzten Änderung
Dim FTime#,4  Arbeitsbereich
initialisiere die Wochentagtabelle
Let WoTag$ = Sonntag;Montag;Dienstag;Mittwoch;Donnerstag;Freitag;Samstag
zu bearbeitende Datei auswählen
Let Datei$ = @LoadFile$(Datei auswählen,*.*)
Case @equ$(Datei$,) : End
String Buff1#,0 = Datei$
ACHTUNG: OpenFile() kann nur Pfade bis 128 Zeichen nutzen.
Öffnen der Datei. Der Dateihandle wird für GetFileTime gebraucht
FilHndl& = OpenFile(Buff1#,Buff2#,0)
Let Ret& = GetFileTime(FilHndl&,ETime#,LTime#,CTime#)
CloseHandle(FilHndl&)
Rückgabe bei GetFileTime() und SetFileTime: 1 = OK, 0 = Fehler

IfNot Ret&

    Let Ret& = @GetLastError()
    @MessageBox(@Str$(Ret&),Fehler,32)
    Let Fehler% = 1

Else

    die gelesenen Daten sind im UTC Format und differieren zur Ortszeit. Daher muß
    die Filetime in die Ortszeit (LocalTime) umgesetzt werden.
    FileTimeToLocalTime(ETime#,FTime#)  Erstellungs- UTC Time in Ortszeit konvertieren
    ToSystemTime(FTime#,Buff3#)         .. und in verarbeitbare Form konvertieren
    Umsetzen erstellt am:
    FileTimeToLocalTime(CTime#,FTime#)  Änderungs- UTC Time in Ortszeit konvertieren
    ToSystemTime(FTime#,Buff3#)         .. und in verarbeitbare Form konvertieren
    Umsetzen geändert am:

EndIf

Hier wird, nur als Beispiel, angeführt wie ein Datum geändert werden kann.
das zu ändernde Datum und die Uhrzeit müssen sich in Buff3# befinden, wie in der
Prozedur Umsetzen beschrieben ist. Der Wochentag wird dabei ignoriert.

IfNot Fehler%  ... wenn es bisher funktionierte

    soll also z.B. das Datum letzte Änderung geändert werden:
    z.B. Tag auf 17 und Monat auf 5 im Änderungsdatum und Uhrzeit auf 7:23 ändern:
    Word Buff3#,6 = 17
    Word Buff3#,2 = 5
    Word Buff3#,8 = 7
    Word Buff3#,10 = 23
    Let Ret& = FromSystemTime(Buff3#,FTime#)   Änderungsdatum im Buff3# speichern
    LocalTimeToFileTime(FTime#,CTime#) CTime# ist letzte Änderung, ETime# wäre Erstellung

    If (Ret& = 0)

        Let Fehler% = 1  bei Null war Fehler (fehlerhaftes Datum ...)
        @MessageBox(fehlerhaftes Datum,,32)

    EndIf

EndIf

IfNot Fehler%  wenn noch immer kein Fehler war erfolgt jetzt update der Datei.

    erneut die Datei öffnen (geht sonst nicht) und FileTime in Datei ändern.
    ACHTUNG: es werden dabei alle 3 Daten (Erstellung, Änderung und letzter Zugriff für
    die Datei geändert !!! (also CTime#, ETime# und LTime# müssen korrekt sein !!!)
    FilHndl& = OpenFile(Buff1#,Buff2#,1)
    Let Ret& = SetFileTime(FilHndl&,ETime#,LTime#,CTime#)

    IfNot Ret&

        Let Ret& = @GetLastError()
        @MessageBox(@Str$(Ret&),Fehler bei Update. Fehlernummer:,32)

    Else

        @MessageBox(Programm korrekt beendet,,32)

    EndIf

EndIf

CloseHandle(FilHndl&)
Dispose Buff2#
Dispose Buff1#
Dispose Buff3#
Dispose ETime#
Dispose LTime#
Dispose CTime#
END
 
15.07.2007  
 



Zum Quelltext


Thementitel, max. 100 Zeichen.
 

Systemprofile:

Kein Systemprofil angelegt. [anlegen]

XProfan:

 Beitrag  Schrift  Smilies  ▼ 

Bitte anmelden um einen Beitrag zu verfassen.
 

Themenoptionen

3.283 Betrachtungen

Unbenanntvor 0 min.
H.Brill10.10.2022
Georg20.12.2020
kustg04.12.2019
Walter23.10.2019
Mehr...

Themeninformationen

Dieses Thema hat 1 Teilnehmer:

unbekannt (1x)


Admins  |  AGB  |  Anwendungen  |  Autoren  |  Chat  |  Datenschutz  |  Download  |  Eingangshalle  |  Hilfe  |  Händlerportal  |  Impressum  |  Mart  |  Schnittstellen  |  SDK  |  Services  |  Spiele  |  Suche  |  Support

Ein Projekt aller XProfaner, die es gibt!


Mein XProfan
Private Nachrichten
Eigenes Ablageforum
Themen-Merkliste
Eigene Beiträge
Eigene Themen
Zwischenablage
Abmelden
 Deutsch English Français Español Italia
Übersetzungen

Datenschutz


Wir verwenden Cookies nur als Session-Cookies wegen der technischen Notwendigkeit und bei uns gibt es keine Cookies von Drittanbietern.

Wenn du hier auf unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung von Informationen in unseren Cookies auf XProfan.Net zu.

Weitere Informationen zu unseren Cookies und dazu, wie du die Kontrolle darüber behältst, findest du in unserer nachfolgenden Datenschutzerklärung.


einverstandenDatenschutzerklärung
Ich möchte keinen Cookie