Tjekke om der er kommet en ny CSV fil.

Her er lidt kode du kan rode med
Det virker fint hos mig når jeg ser om der er kommet nye GIF filer
-------------Kode start ---------

Public counter As Integer      'My counter for the example
Public StopTimer As Boolean    'The flag to stop the timer

Public lastfilename As String
Public lastfileupdate As Date      'Date for last fileupdate


Private Sub CommandButton1_Click()
  Timer_Start
End Sub

Private Sub CommandButton2_Click()
  Timer_Stop
End Sub

Private Sub CommandButton3_Click()
 
  Dim fDate As Date
 
  mypath = "c:\temp\*.gif"    ' Set the path.
  myname = Dir(mypath)
  Do While myname <> ""
    fDate = FileDateTime("c:\temp\" + myname)
    If Format(fDate, "dd,mm,yy hh:mm:ss") > lastfileupdate Then
      lastfileupdate = fDate
      lastfilename = "c:\temp\" + myname
      Ark1.Cells(1, 1) = lastfilename ' kun for at virke at det virker :-)
    End If
    myname = Dir
  Loop
End Sub

Public Sub Timer_Start()
    Timer_Tick
End Sub

Public Sub Timer_Tick()

  If StopTimer = True Then            'Exit if the timer is stopped
    StopTimer = False
    Exit Sub
  End If

  Call Timer_Kode        'Køre timer koden
  ' Kalder sig selv om 10 sek
  Application.OnTime Now() + CDate(Format("00:00:10", "hh:mm:ss")), "Ark1.Timer_Tick"

End Sub

Public Sub Timer_Kode()
    Call CommandButton3_Click

    MsgBox "testtimer" ' Din kode
    DoEvents
End Sub

Public Sub Timer_Stop()
  StopTimer = True
  Application.OnTime 0, "Ark1.Timer_Tick", False
End Sub
-------------- Kode SLUT -----------------

Mvh
  Jesper