Imports CRMImportApp.CrmSdk
Imports System
Imports System.IO
 
Module Module1
 
Private Watch As New FileSystemWatcher()
 
Public Sub Main()
 AddHandler Watch.Created, AddressOf Watch_Created
 
 Try
  Watch.Path = "D:\ImportCRM"
  Watch.Filter = "*.xml"
  Watch.IncludeSubdirectories = True
  Watch.EnableRaisingEvents = True
 Catch Err As Exception
   Console.WriteLine(Err)
 End Try
End Sub
 
 
Private Sub Watch_Created(ByVal sender As Object, ByVal e As _
  System.IO.FileSystemEventArgs)
  'Programmablauf
End Sub
 
 
End Module