vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
SEPA-Dateien erstellen inkl. IBAN-, BLZ-/Kontonummernprüfung  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Ein- und Umsteiger
Re: ältestes und jüngstes Datei-Erstell-Datum in einem Ordner mit Suchtag 
Autor: Manfred X
Datum: 17.09.17 12:45

Ich nehme an, Du möchtest die extremen Uhrzeitzen der
Datei-Erstellung an einem bestimmten Tag.

Dir fehlen elementare Kenntnisse.
Du mußt zunächst ein VB-Lehrbuch durcharbeiten.
Wenn Du einen Parameter "Suchtag" bei einer Funktion einführst,
dann wird dieser Parameter im rufenden Programmteil belegt,
nicht durch die Abfrage eines Labels innerhalb der Routine.
Die Text-Eigenschaft eines Labels enthält eine Zeichenfolge (Typ: String).
Um Zeitpunkte zu bearbeiten, wird eine Variable des Typs "Date"
erstellt.
Eine direkte Zuweisung zwischen verschiedenen Datentypen ist nicht möglich
bzw. nicht sinnvoll. Es müssen passende Konvertierungsfunktionen eingesetzt
werden.
(VB erlaubt in machen Fällen "schlampiges" Programmieren. Schalte
"Option Strict On" ein, damit die IDE ggf. entsprechende Warnungen geben kann.)

Hier die Methode von oben inclusive Datumsfilter:
Public Shared Function GetFolderCreationTimeLimits3 _
                      (ByVal folder As String, _
                       ByVal criticalday As Date, _
                       ByRef mintime As Date, _
                       ByRef maxtime As Date) As Boolean
 
    mintime = New Date(2100, 12, 31)
    maxtime = New Date(1900, 1, 1)
 
    If Not IO.Directory.Exists(folder) Then Return False
 
    Try
       For Each file As String In IO.Directory.GetFiles(folder)
          Dim fi As New IO.FileInfo(file)
          fi.Refresh() 'in VB-Doku empfohlen !!
          Dim ct As Date = fi.CreationTime
          If ct.Date = criticalday.Date Then
             If mintime > ct Then mintime = ct
             If maxtime < ct Then maxtime = ct
          End If
       Next file
       Return True
    Catch
       Return False
    End Try
 
End Function
Anwendungsbeispiel:
lblCriticalday, lblMinTime, lblMaxTime sind Label-Controls.
Dim mintime, maxtime As Date
 
lblCriticalday.Text = "27.3.2015" 'Zeichenfolge in Label-Eigenschaft
 
Dim folder As String = "C:\daten" 'zu durchsuchender Ordner
 
Dim criticalday As Date = CDate(lblCriticalday.text) 'Umwandlung in Date
 
If Not GetFolderCreationTimeLimits3 _
            (folder, criticalday, mintime, maxtime) Then
   MsgBox("Fehler")
Else
   lblMintime.Text = mintime.ToString("g") 'Formatierung von Date als String
   lblmaxtime.Text = maxtime.ToString("g")
End If
Die Anwendung von LINQ-Abfragen bringt meiner Kenntnis nach hier keine Vorteile.

Beitrag wurde zuletzt am 17.09.17 um 13:08:18 editiert.
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
älterstes und jüngstes eines Ordners ermitteln2.200Leberkas13.09.17 18:46
Re: älterstes und jüngstes eines Ordners ermitteln1.665stefan22027313.09.17 18:51
Re: ältestes und jüngstes ??? eines Ordners ermitteln1.613Manfred X13.09.17 19:27
Re: ältestes und jüngstes ??? eines Ordners ermitteln1.596Leberkas13.09.17 19:57
ältestes und jüngstes Datei-Erstell-Datum in einem Ordner1.644Manfred X13.09.17 20:11
Re: ältestes und jüngstes Datei-Erstell-Datum in einem Ordne...1.615Housedog14.09.17 09:40
Re: ältestes und jüngstes Datei-Erstell-Datum in einem Ordne...1.621Manfred X14.09.17 12:56
Re: ältestes und jüngstes Datei-Erstell-Datum in einem Ordne...1.627Leberkas14.09.17 20:51
Re: ältestes und jüngstes Datei-Erstell-Datum in einem Ordne...1.618Manfred X14.09.17 21:50
Re: ältestes und jüngstes Datei-Erstell-Datum in einem Ordne...1.608Leberkas16.09.17 23:17
Differenz zwischen zwei Uhrzeiten1.592Manfred X16.09.17 23:58
Re: ältestes und jüngstes Datei-Erstell-Datum in einem Ordne...1.673Leberkas17.09.17 10:19
Re: ältestes und jüngstes Datei-Erstell-Datum in einem Ordne...1.639Manfred X17.09.17 12:45
Ergänzende Hinweise zu FileInfo.Refresh / CreationTime1.661Manfred X17.09.17 13:59

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel