Private Function DateienVergleich(ByVal SourceFile As String, ByVal TargetFile _
  As String)
        Dim Passed As Boolean = False
        Dim a As DateTime = File.GetLastAccessTime(SourceFile)
        Dim b As DateTime = File.GetLastAccessTime(TargetFile)
        If a > b Then
            Passed = True
        Else
            Passed = False
        End If
        Return Passed
    End Function

MFG Gizmo


Beitrag wurde zuletzt am 07.11.13 um 17:57:47 editiert.