Auteur Topic: VB fout in module - datumcontrole ! (gelezen 1194 keer)

Hombre · « **Gepost op:** 25 oktober 2006, 11:28:29 »

Hallo

In de volgende module wil ik controleren of een bestand ouder is dan een ander. Ik kom er echter niet uit waarom het niet werkt.
kan iemand helpen?

Code: [Selecteer]

Sub controle()
' Datumcontrole
Dim fileA As String
Dim fileB As String

fileA = "C:\Rap\Archief\Graad2.xls"
fileB = "C:\Rap\Gr2\Graad2.xls"

If fileA.DateLastModified > fileB.DateLastModified Then
    MsgBox "OK"
Else
    MsgBox "niet OK"
End If
End Sub

Bedankt voo alle hulp

Hombre · « **Reactie #1 Gepost op:** 25 oktober 2006, 18:11:47 »

Na lang zoeken zelf gevonden

Code: [Selecteer]

Sub Vergelijk()
Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objLocalFile = objFSO.GetFile("c:\bestand1.xls")
dtmLocalDate = objLocalFile.DateLastModified

Set objServerFile = objFSO.GetFile("c:\bestand2.xls")
dtmServerDate = objServerFile.DateLastModified

    If dtmLocalDate > dtmServerDate Then
        MsgBox "Bestand 1 is meest recent"
    Else
        MsgBox "Bestand 2 is meest recent"
    End If

End Sub

Bedankt
Afgesloten

Help!

Menu

Hulp bij posten

Zoeken

Recente topics

Auteur Topic: VB fout in module - datumcontrole ! (gelezen 1194 keer)

Hombre

VB fout in module - datumcontrole !

Hombre

Re:VB fout in module - datumcontrole !