Moin!
ich habe eigentlich ein ganz einfaches Stück Code:
Die Kontrollausgabe sieht wie folgt aus:
Hat einer von Euch eine Idee warum es dazu kommt?
Gruß Jan
ich habe eigentlich ein ganz einfaches Stück Code:
VB.NET-Quellcode
- Dim _Err_IllegalFilesPositions As Integer ' Anzahl Datei die
- ...
- Private Sub SearchIllegalFilesInFolder(Folder As String)
- Console.WriteLine("* SearchIllegalFilesInFolder")
- Console.WriteLine(" + Folder:= " & Folder)
- If System.IO.Directory.Exists(Folder) = False Then Exit Sub
- 'suche nach Dateien
- Dim CountFiles As Integer = My.Computer.FileSystem.GetFiles(Folder, FileIO.SearchOption.SearchTopLevelOnly, "*.*").Count
- Console.WriteLine(" + Count:= " & CountFiles)
- If CountFiles > 0 Then
- Console.WriteLine(" + _Err_IllegalFilesPositions:= " & _Err_IllegalFilesPositions.ToString)
- Console.WriteLine(" + CountFiles:= " & CountFiles.ToString)
- _Err_IllegalFilesPositions = _Err_IllegalFilesPositions + CountFiles 'Anzahl fehlerhafter Dateien ' <<<<<<-----------------------------ZEILE 293
- Dim Verzeichnisse() As String = Directory.GetDirectories(Folder, FileIO.SearchOption.SearchTopLevelOnly, "*.*")
- Dim ListOfFiles As String = " + Files:= "
- Try
- For j As Integer = 0 To Verzeichnisse.Count - 1
- If j > 0 Then ListOfFiles += ", "
- ListOfFiles += System.IO.Path.GetFileName(Verzeichnisse(j))
- Next 'j
- Console.WriteLine(ListOfFiles)
- Catch ex As Exception
- Console.WriteLine("Fehler:= " & ex.ToString)
- End Try
- ' ggf. Namen des Verzeichnis in die Liste aufnehmen
- If _Folder2CheckFilePosition.Contains(Folder) = False Then
- _Folder2CheckFilePosition.Add(Folder)
- End If
- End If
- End Sub
Unbehandelte Ausnahme: System.InvalidCastException: Ungültige Konvertierung von der Zeichenfolge *.* in Typ Integer. ---> System.FormatException: Die Eingabezeichenfolge hat das falsche Format.
bei Microsoft.VisualBasic.CompilerServices.Conversions.ParseDouble(String Value, NumberFormatInfo NumberFormat)
bei Microsoft.VisualBasic.CompilerServices.Conversions.ToInteger(String Value)
--- Ende der internen Ausnahmestapelüberwachung ---
bei Microsoft.VisualBasic.CompilerServices.Conversions.ToInteger(String Value)
bei EBL_Crawler_DigGrundAkte.main.SearchIllegalFilesInFolder(String Folder) in C:\VSProjects\Konsolenanwendungen\EBL_Crawler_DigGrundAkte\EBL_Crawler_DigGrundAkte\EBL_Crawler_DigGrundAkte\main.vb:Zeile 293.
bei EBL_Crawler_DigGrundAkte.main.WrongFolderInLetterRoot() in C:\VSProjects\Konsolenanwendungen\EBL_Crawler_DigGrundAkte\EBL_Crawler_DigGrundAkte\EBL_Crawler_DigGrundAkte\main.vb:Zeile 324.
bei EBL_Crawler_DigGrundAkte.main.Main() in C:\VSProjects\Konsolenanwendungen\EBL_Crawler_DigGrundAkte\EBL_Crawler_DigGrundAkte\EBL_Crawler_DigGrundAkte\main.vb:Zeile 184.
Die Kontrollausgabe sieht wie folgt aus:
* SearchIllegalFilesInFolder
+ Folder:= \\ms-FileSrv-1\abteilung$\EBL\PLNB\GKG\Grundstcke
+ Count:= 2
+ _Err_IllegalFilesPositions:= 0
+ CountFiles:= 2
Hat einer von Euch eine Idee warum es dazu kommt?
Gruß Jan