Gekozen datum als Bestandsnaam

[Jan92]

Dag allemaal,

Ik ben bezig met een "Logboek" project. Hierbij bewaar ik elk logboek

van elke dag als een afzonderlijk bestand op de harde schijf.

En de bestandsnaam is gelijk aan de datum van die dag.

De code hiervoor heb ik gevonden. Maar voor de omgekeerde

bewerking, een bepaald bestand terug inlezen, geraak ik er niet meer uit.

De gewenste dag zou moeten geselecteerd worden met behulp van een

DataTimePicker. Dit is het stukje code wat ik nu heb (Rood is waarschijnlijk fout)


Private Sub DateTimePicker1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker1.ValueChanged

'De gekozen datum als bestandsnaam declareren :
Dim Bestandsnaam As Date
DateTimePicker1.Value = Bestandsnaam

'Alle data uit het bestand in de Array laden :
loadArray()
'Het weergavescherm initialiseren :
initLogboekLezen()

End Sub

Private Sub loadArray()
'Index variabel van Array declareren :
Dim thisAccountRecordsNum As Integer = 0
'De Streamreader declareren :
Dim ACReader As IO.StreamReader

Try
'Het bestand openen en inlezen in het geheugen :
ACReader = IO.File.OpenText("D:\VB-Testen\" & "Lgb-" & Bestandsnaam & ".txt")
'Het bestand inlezen tot het einde bereikt is :
Do While ACReader.Peek <> -1

enz.....

 

[Jan92]

OK. Ik heb het ondertussen zelf gevonden.

'De gekozen datum van de DateTimePicker als bestandsnaam declareren :
Dim Datumnaam As String
Datumnaam = Format(DateTimePicker1.Value, "dd-MM-yyyy")


Try
'Het bestand openen en inlezen in het geheugen :
ACReader = IO.File.OpenText("D:\VB-Testen\" & "Lgb-" & Datumnaam & ".txt")

Vraag dus opgelost !