Mover archivos en Visual 6

[roscon]

Hola buenas, os comento mi problema, tengo que mover PDF's de un carpeta a otra, se manejar la funciona para copiar pero siempre que yo le de el nombre exacto del archivo a mover, mi problema es que yo quiero que los mueva el programa solo, os pongo mi código:

Private Sub Command1_Click()
Dim i, nombre As String
Adodc1.Refresh
Adodc1.Recordset.MoveFirst
While Not Adodc1.Recordset.EOF
i = Adodc1.Recordset.Fields("idobra")
nombre = "f-" & i & ".pdf"
FileCopy "D:\...\nombre", "C:\....\nombre"
Adodc1.Recordset.MoveNext
Wend
MsgBox "Todas las facturas volcadas con éxito", vbOKOnly
End Sub

el problema es que no se asignarle el nombre aleatorio en la Funcion FileCopy

Muchas gracias si alguien me ayuda