Or you could try:
[tt]
Option Explicit
Private Sub Command1_Click()
With New Shell32.Shell
.FindFiles
End With
End Sub
[/tt]
This requires that you make a reference to the Microsoft Shell Controls and Automation library (SHDOC401.DLL). And a word of warning: the library has a dependence of Shell32.dll; this needs to be version 4.71 or later (W98, Me, 2000, XP). The correct version may be installed on W95 and/or NT4 if IE4's Active Desktop components were ever installed