Hi.
This Msgbox says how many files is in this Folder, but if i want use this (i) for NewFile name ext get wrong results??
Need some help!

[VBA]
Sub GetiValue()
Dim SWs As SHDocVw.ShellWindows, vIE As SHDocVw.InternetExplorer, MyPath As String
Dim vFF As String, SubFolderName As String, FilesInPath As String, wkb As Workbook
Dim MyFiles() As String, FilePath, i As Long
Set SWs = New SHDocVw.ShellWindows

For Each vIE In SWs
If Left(vIE.LocationURL, 4) = "http" Then

MyPath = ThisWorkbook.Path
If Right(MyPath, 1) <> "\" Then MyPath = MyPath & "\"

FilesInPath = Dir(MyPath & "*.htm")

i = 0
Do While FilesInPath <> ""
i = i + 1
ReDim Preserve MyFiles(1 To i)
MyFiles(i) = FilesInPath
FilesInPath = Dir()
Loop

MsgBox i '.Value 'Get exsisting Files.value for New FileName
vFF = FreeFile
SubFolderName = ThisWorkbook.Path
FilePath = ActiveWorkbook.Path

If Right$(FilePath, 1) <> "\" Then FilePath = FilePath & "\"

Open FilePath & ("AB(i+1).htm") For Output As #vFF
Print #vFF, vIE.Document.Body.innerhtml
Close #vFF
End If
Next
Set SWs = Nothing
Set vIE = Nothing
End Sub
[/VBA]