Hi,
ich bekomme hier einen Fehler "Teilen durch 0". Es liegt wohl an der CInt() Funktion, allerdings weiß ich nicht, wie ich es sonst machen soll. Die Funktion soll folgendes machen:
- Dateinamen aus Ordner lesen
- Datum und Uhrzeit am Ende des Namens zu einer ganzen Zahl zusammenhängen
- Maximale Zahl bestimmen
Am Ende soll Datum und Uhrzeit wieder getrennt werden und im Ordner nach der Datei gesucht werden, die diesen Teil enthält. Das ist dazu da, die letzte gespeicherte Datei wieder zu öffnen.
ich bekomme hier einen Fehler "Teilen durch 0". Es liegt wohl an der CInt() Funktion, allerdings weiß ich nicht, wie ich es sonst machen soll. Die Funktion soll folgendes machen:
- Dateinamen aus Ordner lesen
- Datum und Uhrzeit am Ende des Namens zu einer ganzen Zahl zusammenhängen
- Maximale Zahl bestimmen
Am Ende soll Datum und Uhrzeit wieder getrennt werden und im Ordner nach der Datei gesucht werden, die diesen Teil enthält. Das ist dazu da, die letzte gespeicherte Datei wieder zu öffnen.
VB.NET-Quellcode
- Dim Ordnerinhalt As New List(Of String)
- Dim directory As New System.IO.DirectoryInfo(savePathDS)
- For Each datei As System.IO.FileInfo In directory.GetFiles
- If datei.Extension = ".xml" And datei.Name <> "000_formular_Start.xml" Then
- Ordnerinhalt.Add(datei.Name.ToString) 'Lese alle Dateinamen aus \konfig\
- End If
- Next
- Dim Dateien() As String = Ordnerinhalt.ToArray
- Dim Num(Dateien.Length) As Integer
- For i As Integer = 0 To Dateien.Length - 1
- Dim speicher As Integer
- Dateien(i) = Mid(Dateien(i), Dateien(i).Length - 16, 13) 'mmjjjj_ssmmss
- Dim aStr() As String = Dateien(i).Split("_") 'entferne _
- Dateien(i) = aStr(0) & aStr(1) 'mmjjjjssmmss
- speicher = CInt(Dateien(i))
- Num(i) = speicher
- Next