Imports System.IO Imports System.Net.Mime.MediaTypeNames Imports System.ComponentModel Public Class FilSystemWatcher Inherits Component Implements ISupportInitialize Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim MonFichier As application Dim instance As FileSystemWatcher MonFichier = Dir("C:\RECEPTIONS") If MonFichier <> "" Then If range (A1:A10) = "" then End If End If End Sub End Class
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question