Like:
VB Code:
  1. Option Explicit

  2.  
  3. Private Sub Form_Load()

  4.     Dim strBuff As String

  5.  
  6.     'Set the first FileName (if pressent)

  7.     strBuff = Dir("C:\temp\*.*", vbNormal)

  8.  
  9.     'If a FileName exisits - perform the copy if Numeric, and continue till all files copied

  10.     If Len(strBuff) <> 0 Then

  11.         Do

  12.             If IsNumeric(Left$(strBuff, InStr(strBuff, ".") - 1)) Then

  13.                 FileCopy "C:\temp\" & strBuff, "C:\temp\New Folder\" & strBuff

  14.             End If

  15.  
  16.             strBuff = Dir

  17.  
  18.         Loop Until Len(strBuff) = 0

  19.     End If

  20.  
  21. End Sub




Bruce.