Copying and Rename of Files based on fields

[desk4tbc]

Hello,

I'm trying to rename and move a file based on information in fields. I have tried FileCopy with

Private Sub FileRename_Click()
Dim OldName As String
Dim NewName As String
OldName = "\\SERVER\Test.mp3"
NewName = "\\SERVER\Files\Patients\" & [Patient] & "\" & [Patient] & "_" & [File Type] & "_" & [Date] & "_" & [Accession Number] & ".mp3"
FileCopy OldName, NewName
End Sub

and with pkstormy's moveafile module found here: https://www.accessforums.net/program...lder-7588.html

Function MoveAFile(OldName as variant, NewName as variant)
if isnull(OldName) or isnull(NewName) then
msgbox "Old or New Folder/File name not supplied to function."
exit function
end if
retval = 0
Dim objFSO As Object
Set objFSO = CreateObject("Scripting.FileSystemObject")
retval = objFSO.CopyFile(OldName, NewName, True)
Set objFSO = Nothing 
msgbox "File has been moved."
End Function

with
Call MoveAFile("\\SERVER\Test.mp3", "\\SERVER\Files\Patients\" & [Patient] & "\" & [Patient] & "_" & [File Type] & "_" & [Date] & "_" & [Accession Number] & ".mp3")



but both don't seem to work and both paths are valid but returns with Run-time error '438'. I've checked and the format of the FileCopy are similar to the one listed by Microsoft at: http://support.microsoft.com/kb/237273
Can anyone help?

[ajetrumpet]

what does "don't seem to work" mean? too vague...

by the way, I like pkStormy, but messing around with the FSO when all you want to do is move or copy files is way too much work. see here for more info: https://www.accessforums.net/code-re...ing-14596.html

[desk4tbc]

Figured it out. Access didn't like me naming the data source and the field the same thing. I don't know why as I didn't put any reference to the source, but there you go.