salut,
dans un dossier c:\a j'ai des fichier htm que je veux renomer avec le titre entre <title et </title> voici un debut mais je ne sais pas comment contunuer



Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
lRet = GetFilesPathFromDirectory("c:\a", aResultat())
If lRet <> -1 Then
For i = 0 To lRet
Open aResultat(i) For Input As #ff
MyText = MyText & Input(LOF(ff), #ff)
nStart = InStr(1, sBuffer, "<title>", vbBinaryCompare)
nEnd = InStr(1, sBuffer, "</title>", vbBinaryCompare)
If nStart > 0 And nEnd > 0 Then
title= Mid$(sBuffer, nStart + 7, nEnd - nStart - 8)
Close #ff
Next i
End If