Moin!
ich stehe einmal wieder im Wald ..
Folgenden Code habe ich:
Nun geht es um die Variable _ListFile - diese wird in Zeile 4 definiert, dann in Zeile 24 ff und sogar noch in Zeile 47 verwendet.
Aber in den Zeilen 52,54 und 55 wird hierzu angemerkt, dass diese nicht verwendet wird vor einer Belegung und als OBJECT angezeigt.
Legt man den Mauszweiger noch in Zeile 47, dann wird noch als Typ ein List( Of String) angezeigt.
Kann mir einer sagen wo mein Denkfehler ist?
Gruß Jan
ich stehe einmal wieder im Wald ..
Folgenden Code habe ich:
VB.NET-Quellcode
- ....
- Public Class MainDialog
- ....
- Private _ListFile As New List(Of String)
- ...
- Public Sub New(IniFile As String)
- .
- End Sub
- ...
- Private Sub CollectData()
- Console.WriteLine(Environment.NewLine & "CollectData ...")
- ' auslesen des DateiFilters
- ' For i As Integer = 0 To _ListFileFilter.Count - 1
- Dim Filter As String = "EBL*"
- Console.WriteLine(Environment.NewLine & "****** Dateifilter:= " & Filter & " ******" & Environment.NewLine)
- For Each Datei As String In My.Computer.FileSystem.GetFiles(_FolderSource, FileIO.SearchOption.SearchTopLevelOnly, Filter)
- Dim ShortName As String = System.IO.Path.GetFileName(Datei)
- Dim Suffix As String = System.IO.Path.GetExtension(Datei).ToUpper
- Dim ShortNameNoEx As String = System.IO.Path.GetFileNameWithoutExtension(Datei)
- Console.WriteLine(Environment.NewLine & "+- " & ShortName & " - " & Suffix & " - " & ShortNameNoEx)
- If _ListFile.Contains(ShortNameNoEx) = False Then
- _ListFile.Add(ShortNameNoEx)
- End If
- Select Case Suffix
- Case ".DLL"
- If _DicDataDLL.ContainsKey(ShortName) = True Then
- _DicDataDLL.Item(ShortName) = True
- Else
- _DicDataDLL.Add(ShortName, True)
- End If
- ...
- End Select
- Next
- End Sub
- Private Sub FillTable()
- Console.WriteLine(Environment.NewLine & "FillTable ...")
- With DVG
- .Rows.Clear()
- For i As Integer = 0 To _ListFile.Count - 1
- Dim row As ArrayList = New ArrayList
- row.Add(True) 'Filter setzen
- ' Dateiname ohne Suffix
- row.Add(_ListFile)
- Dim FileNameSource As String = FolderType.Source, _ListFile.Item(i), FileSuffix.DLL)
- Dim FileNameTarget As String = FolderType.Target, _ListFile.Item(i), FileSuffix.DLL)
- ' Spalte 2 für DLL
- If System.IO.File.Exists(FileNameTarget) = True Then ' wenn Datei vorhanden, dann auf Datum prüfen
- 'wenn die Datei auf dem Server älter ist ...
- Dim DateCreatedSource As Date ' Zeitstempel der Erzeugung
- Dim DateCreatedTarget As Date ' Zeitstempel der Erzeugung
- DateCreatedSource = System.IO.File.GetLastWriteTime(FileNameSource)
- DateCreatedTarget = System.IO.File.GetLastWriteTime(FileNameTarget)
Nun geht es um die Variable _ListFile - diese wird in Zeile 4 definiert, dann in Zeile 24 ff und sogar noch in Zeile 47 verwendet.
Aber in den Zeilen 52,54 und 55 wird hierzu angemerkt, dass diese nicht verwendet wird vor einer Belegung und als OBJECT angezeigt.
Legt man den Mauszweiger noch in Zeile 47, dann wird noch als Typ ein List( Of String) angezeigt.
Kann mir einer sagen wo mein Denkfehler ist?
Gruß Jan