Russell McMahon wrote:

> XXCOPY is a superb file copying program  for
> Win 95 / 98 / ME / NT / 2000 / XP
> DOS version also available.

   Another MS thing on the subject (really usefull one):
   FileSystemObject from Microsoft Scripting Runtime=20
Library(Scrrun.dll). Can be referenced almost from=20
anything: Visual Studio, Office, any of hundreds of=20
software environments with built-in VBA such as Corels,=20
AutoCad and so on.

From MSDN for example:  =20

HOWTO: Recursively Search Directories Using FileSystemObject

      Option Explicit
      Dim fso As New FileSystemObject
      Dim fld As Folder

      Private Sub Command1_Click()
        Dim nDirs As Integer, nFiles As Integer, lSize As Long
        Dim sDir As String, sSrchString As String
        sDir =3D InputBox("Please enter the directory to search", _
                        "FileSystemObjects example", "C:\")
        sSrchString =3D InputBox("Please enter the file name to search", =
_
                        "FileSystemObjects example", "vb.ini")
        MousePointer =3D vbHourglass
        Label1.Caption =3D "Searching " & vbCrLf & UCase(sDir) & "..."
        lSize =3D FindFile(sDir, sSrchString, nDirs, nFiles)
        MousePointer =3D vbDefault
        MsgBox Str(nFiles) & " files found in" & Str(nDirs) & _
               " directories", vbInformation
        MsgBox "Total Size =3D " & lSize & " bytes"
      End Sub

      Private Function FindFile(ByVal sFol As String, sFile As String, _
        nDirs As Integer, nFiles As Integer) As Long
        Dim tFld As Folder, tFil As File, FileName As String

        Set fld =3D fso.GetFolder(sFol)
        FileName =3D Dir(fso.BuildPath(fld.Path, sFile), vbNormal Or _
          vbHidden Or vbSystem Or vbReadOnly)
          While Len(FileName) <> 0
            FindFile =3D FindFile + FileLen(fso.BuildPath(fld.Path, _
                       FileName))
            nFiles =3D nFiles + 1
            List1.AddItem fso.BuildPath(fld.Path, FileName)  ' Load
ListBox
            FileName =3D Dir()  ' Get next file
               DoEvents
            Wend
       Label1 =3D "Searching " & vbCrLf & fld.Path & "..."
       nDirs =3D nDirs + 1
       If fld.SubFolders.Count > 0 Then
            For Each tFld In fld.SubFolders
               DoEvents
               FindFile =3D FindFile + FindFile(tFld.Path, sFile, nDirs, =
_
                          nFiles)
            Next
       End If
      End Function

--
http://www.piclist.com hint: The PICList is archived three different
ways.  See http://www.piclist.com/#archives for details.