Formloop with FileCopy?

[Descecrator]

I've got a problem. The database-user can search through the database and the results are displayed in a subform. There's a button attachted to that subform and when that button is pressed, the files, which are linked to the found records and saved outside the database, have to be copied to an other folder. So how do I make I loop for copying those files?

I've got the following code behind the button (but it doesn't work):

Private Sub Command56_Click()
Dim rst As Recordset
Dim strBnaam As String

Set rst = CurrentDb.OpenRecordset("[Forms]![frmZoekVast]![qryZoekVast subform]")
With rst
Do While Not (rst.EOF)
.MoveFirst
strBnaam = rst!Tpon
FileCopy "\\NLFS006\A110154$\Stage Bidteam\Systeem\Teksten\" & strBnaam & ".doc", "C:\TempOfferteTraject\" & strBnaam & ".doc"
.MoveNext
Loop
End With
End Sub

Can somebody help me plz ??? THNX!

Greetz

 

[ghudson]

Multi-posting the same question in different sections of this forum is a waste for all those involved. Please delete the duplicate post. Open the starter post you made at the top of the thread with the Edit button and then click the Delete Message button. Thanks!

http://www.access-programmers.co.uk/forums/showthread.php?t=97362