SUPPR UNE SECTION *.INI AVEC NETTOYAGE AUTO!

'Il faut un boutton=command1

'============
'La Fonction====
'============
Public Function SupprSection(Section As String, FichierINI As String)
Dim a As Long
Dim i As Long
Dim Lettre As String
Dim Ligne As String
Dim Found As String
Dim INI As String
Dim Detect As Boolean
Dim LongeurChaine As Long
Detect = True
i = 0
a = FreeFile()
Open FichierINI For Input As #a
While Not EOF(a)
    Line Input #a, Ligne
    Lettre = Left(Ligne, 1)
    If Lettre = "[" Then
        i = i + 1
        Found = InStr(Ligne, "[" & Section & "]")
        If Found = 0 Then INI = INI & vbCrLf & Ligne: Detect = True Else Detect = False
    ElseIf Lettre <> "" And Lettre <> "[" Then
        If Detect = True Then
            Found = InStr(Ligne, "=")
            If Found <> 0 Then INI = INI & vbCrLf & Ligne
        End If
    End If
Wend
Close #a
LongeurChaine = Len(INI)
Open FichierINI For Output As a
If LongeurChaine = 0 Then
    Print #a, INI
Else
    Print #a, Right(INI, LongeurChaine - 2)
End If
Close a
End Function


'==========
'L'appel=====
'==========
Private Sub Command1_Click()
SupprSection "Setting", App.Path & "\Fichierini.ini"
End Sub