Adrian Birkett  wrote in message
news:...
> Mike wrote:
> 
> >Okay!! I want to copy the entire files in a directory to another
> >directory.
> >
> >Heres the code:
>
>--------------------------------------------------------------------------------
> >
> >Private Sub Command1_Click()    
> >   MsgBox File1.FileName 
> >End Sub
> >
> >Private Sub Dir1_Change()    
> >   File1.Path = Dir1.Path
> >End Sub
> >
>
>--------------------------------------------------------------------------------
> >
> >
> >Okay, As you can see it only shows one file name. I want it to do a
> >wildcard copy. Anyone know how to do that??? (From one directory to
> >another)
> >
> >PS and File1 is going to be invisible
> >
> 
> OK, off the top of my head without any testing...
> 
> dim to_dir as string, from_dir as string, filename as string
> 
> from_dir = "c:\my_from_dir\"
> to_dir = "c:\my_to_dir"
> 
> filename = dir(from_dir & "*.*")
> do while filename  ""
>     name from_dir & filename as to_dir & filename
>     filename = dir()
>     doevents
> loop
> 
> or something like that anyway
> 
> Regards,
> 
> Ade



Dim fromDir As String
Dim toDir As String

File1.Path = fromDir

For I = 0 To File1.ListCount - 1

    If Right(App.Path, 1) = "\" Then
        toDir = App.Path & File1.ListIndex(I)
    Else
        toDir = App.Path & "\" & File1.ListIndex(I)
    End If

    r = Copy(fromDir, toDir)

Next I

Eric
---
þ RIMEGate(tm)/RGXPost V1.14 at BBSWORLD * Info{at}bbsworld.com

---
 * RIMEGate(tm)V10.2áÿ* RelayNet(tm) NNTP Gateway * MoonDog BBS
 * RgateImp.MoonDog.BBS at 6/17/04 9:46:11 AM