You might be able to do something with sendkeys, but I would think that would be
close to disasterous!

Maybe you could just select all the files you want with one File|open:

Option Explicit
Sub testme2()

Dim myFileNames As Variant
Dim iCtr As Long

myFileNames = Application.GetOpenFilename _
(filefilter:="Text files, *.txt", MultiSelect:=True)

If IsArray(myFileNames) Then
'keep going
Else
Exit Sub 'user hit cancel
End If

For iCtr = LBound(myFileNames) To UBound(myFileNames)
'do your stuff
Next iCtr

'....

End Sub

===
when that file|open dialog is displayed, you can click, ctrl-click, and
shift-click to get a bunch.

scantor145 wrote:

Visual basic 6.0 w/Excel 2000

Below is a section of code I use to open up a specified number of
files.

Code:
--------------------
For N = 1 To NumFiles

FilterList = "Text Files(*.txt),*.txt"

With Application
MyFile(N) = .GetOpenFilename(filefilter:=FilterList)
End With

Next N
--------------------

99.9% of the time the files in the File Open dialog box are listed in
the order in which I select them. When the File Open dialog box opens
for the first time, and every time after that, the first file in the
list is always highlighted. Is there a way to have to have VB6 move the
highlight down a file(s) after each File Open execution?

--
scantor145
------------------------------------------------------------------------
scantor145's Profile: http://www.excelforum.com/member.php...o&userid=14766
View this thread: http://www.excelforum.com/showthread...hreadid=264329

--

Dave Peterson