FiveTech Support Forums

#include "FiveWin.ch"


static oTmr


function Main()

   local oDlg, oProg
   
   DEFINE DIALOG oDlg TITLE "Progress and timer"
 
   
   @ 2.5, 10 BUTTON "End" ACTION oDlg:End()
   
   ACTIVATE DIALOG oDlg CENTER ;
      ON INIT (  Timer( oDlg, oProg ) )
   
return nil   

//----------------------------------------------------------------------------//

function Timer( oDlg, oProg )
   
   DEFINE TIMER oTmr INTERVAL 300 ;
      ACTION ( checkDir() ) OF oDlg

   ACTIVATE TIMER oTmr

return nil   
//----------------------------------------------------------------------------//

function checkDir()
 local aDirServ := {}
    oTmr:Deactivate()
    
    aDirServ := directory( "r:\itouch\bills\" + "*.dbf", "D" )

      if len(aDirServ) > 0
msginfo(   UPPER( aDirServ[1,1] ) )

        endif


  oTmr:activate()
return nil

VB6 code!!!!

Private Sub Form_Load()
     Set fso = New FileSystemObject
    Timer1.Interval = 300
  
End Sub


Private Sub Timer1_Timer()

    Dim cLockDatei        As String
        Timer1.Enabled = False
        cLockDatei = "r:\itouch\bills\" & "test.txt"

        If fso.FileExists(cLockDatei) = True Then
            
            MsgBox ("file ok")
        
        Else

        End If
        Timer1.Enabled = True
End Sub