Private Sub Load_File()
        Dim lenomfichier As String, dimsup, diminf, i As Integer
        Dim sFiles() As String
        Dim s() As String
        Dim Path, fichier As String

        Path = "C:\Documents and Settings\lemerite\Bureau\STATIC 02 AU 03-08-2008\BSC03\"
        connectstr = "workstation id=qos;packet size=4096;integrated security=SSPI;data source=Perf_server;persist security info=False;initial catalog=mtnind"
        sFiles = Directory.GetFileSystemEntries(Path, "*.ASCII")
        For i = 0 To sFiles.GetUpperBound(0)
            s = Split(sFiles(i), "\")
            Console.Write("\n")
            fichier = s(4)

            Console.Write(fichier)
            Application.DoEvents()
            Kill("C:\Documents and Settings\lemerite\Bureau\STATIC 02 AU 03-08-2008\BSC03\" & fichier)
        Next
        Kill("D:\New Folder (4)\*.ASCII")
        End
    End Sub