vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Brandneu! sevEingabe v3.0 - Das Eingabecontrol der Superlative!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

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

Visual-Basic Einsteiger
Von Datum ...Bis Datum 
Autor: Boris
Datum: 18.12.02 11:21

Hy!

Ich hab eine sevListBox.
in der 1. Spalte stehen Dateinamen, in der 2. Spalte das Datum der Datei.
Weiters habe ich 3 textboxen. eine txt_VonDatum, eine txt_BisDatum und eine txt_Pfad.

Beim klick auf cmd_berechnen möchte ich alle dateien die zwischen dem vonDatum und dem BisDatum liegen in die sevListBox einlesen und zwar alle Dateien aus dem Pfad der in txt_Pfad steht. (inklusive Unterordner).

Ich hab eine Funktion die mir alle Dateien Bis zu dem angegebenen datum ausgibt.
jetzt weiß ich aber nicht wie ich sie anpassen muss, sodass ich die dateien zwischen den beiden daten bekomme!

Dim lCount As Long
    Dim nBytes As Currency
    Dim path As String
    path = txt_pfad.Text
 
    ' zunächst Anzahl Dateien ermitteln
    lCount = VBEX_FileCount(path, 1, "*.*", nBytes)
 
' Array dimensionieren
ReDim sFiles(lCount) As String
 
' Dateinamen ermitteln
lCount = VBEX_FileList(path, 1, "*.*", sFiles(), nBytes)
MsgBox CStr(lCount + 1) & " Dateien, Gesamtgröße: " & CStr(nBytes) & " Bytes" & _
  vbCrLf & vbCrLf & ("Die Dateien werden jetzt eingelesen.") & vbCrLf & ("Bitte" & _
  "einen Moment Geduld..."), vbOKOnly, ("Berechnung")
Load frm_arbeite
frm_arbeite.Show
DoEvents
 
'array wurde dimensioniert
'dateien wurden eingelesen
'jetzt die dateien in die listbox schreiben...
 
' sFiles() ist das String-Array!
' nCount beinhaltet die Anzahl Dateien!
' sPath beinhaltet den genauen Pfad (Ordner) mit abschließendem Backslash!
 
    Dim vDate As Date
Dim i As Long
 
For i = 0 To lCount
  vDate = FileDateTime(path & "\" & sFiles(i))
  If vDate < CDate(txt_Datum.Text) Then
  sev_List1.AddItem , sFiles(i) + vbTab + Format$(vDate, "dd.mm.yyyy")
  End If
Next i
 
Unload frm_arbeite
DoEvents
wär nett wenn mir da jemand helfen könnte!
dankeschön!

cu
Bris

"640 KB Ram sind mehr als irgendein Programm jemals ben?tigen wird."
- (Bill Gates - 1981)

alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Von Datum ...Bis Datum481Boris18.12.02 11:21
Re: Von Datum ...Bis Datum285ModeratorDieter18.12.02 11:33
Re: Von Datum ...Bis Datum299Boris18.12.02 11:35

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-2025 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