Hallo!
Ich benutze folgenden Code, um die *.html -Dateien aus einem entpackten *.zip Ordner rauszufiltern und in eine TreeView einzufügen:
Leider erhalte ich den im Titel genannten Fehler, mit einem Verweis auf das "End If", dass vor dem "Next" der For Each-Schleife steht.
Ich habe bereits gegoogelt, was das sein könnte, bin aber auf nichts ausschlaggebendes gestoßen.
MfG,
C8002.
Ich benutze folgenden Code, um die *.html -Dateien aus einem entpackten *.zip Ordner rauszufiltern und in eine TreeView einzufügen:
VB.NET-Quellcode
- Private Sub Load_Click(sender As Object, e As EventArgs) Handles Load.Click
- Dim fb As New OpenFileDialog
- fb.Title = "Choose an eBook"
- fb.Filter = "ePUB (.epub)|*.epub*"
- If fb.ShowDialog() = DialogResult.OK Then
- Dim r As New Random
- Dim ID As String = r.Next.ToString
- Directory.CreateDirectory(Path.GetTempPath & "/" & ID)
- ZipFile.ExtractToDirectory(fb.FileName, Path.GetTempPath & "/" & ID & "/")
- Dim Direc As New DirectoryInfo(Path.GetTempPath & "/" & ID & "/")
- Dim FileI As FileInfo()
- FileI = Direc.GetFiles
- For Each i As FileInfo In FileI
- If i.Name.Contains(".html") Then
- TreeView1.Nodes.Add(fb.SafeFileName.Replace(".epub", ""))
- TreeView1.Nodes(0).Nodes.Add(i.Name.Replace(".html", ""))
- Document(TreeView1.Nodes.Count + 1) = File.ReadAllText(i.FullName)
- End If
- Next
- End If
- End Sub
Leider erhalte ich den im Titel genannten Fehler, mit einem Verweis auf das "End If", dass vor dem "Next" der For Each-Schleife steht.
Ich habe bereits gegoogelt, was das sein könnte, bin aber auf nichts ausschlaggebendes gestoßen.
MfG,
C8002.
“If debugging is the process of removing software bugs, then programming must be the process of putting them in.”
-Unbekannt
-Unbekannt