salut tous le monde,
comment est ce que je peux suprimer 100 premier ligne et 100 dernier ligne de tous les fichier d'un repertoire j'ai ce code pour ouvrire mais comment suprimer.

merci


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
    Dim r() As String
    Dim Text      As String
    Dim lRet        As Long
    Dim i           As Long
    Dim ff          As Integer: f = FreeFile
        lRet = GetFilesPathFromDirectory("c:\doc\a", r())
    If lRet <> -1 Then
        For i = 0 To lRet
            Open r(i) For Input As #f
              Text = Text & Input(LOF(ff), #f)
            Close #f
        Next i
    End If