need code to copy one file from C drive to E drive

[ChuckRS]

What is the code so when a command button (on a form) is clicked, one specific file will be copied from c drive to e drive (having a USB flash)?

The complete pathway to each specific c drive file is in a field in every record. The form can display up to 30 command buttons with each being associated with a different c drive file

Added the below after the post by Orange

The form will display up to 30 thumbnails of full size photos. There are various needs to have a copy of the full size photo. Rather than trying to remember the file name and route through the folders to get to the photo then copy to the flash drive, do so within the Access form with a command button.

The photo db has hundreds of ways to search for photos



I was previously registered but I must have the log in name and or password wrong and my email has changed

[orange]

??? Why do you want to use Access for this?? Please tell us more.

Have you tried Google

FSO

[ChuckRS]

The form will display up to 30 thumbnails of full size photos. There are various needs to have a copy of the full size photo. Rather than trying to remember the file name and route through the folders to get to the photo then copy to the flash drive, do so within the Access form with a command button.

The photo db has hundreds of ways to search for photo

[orange]

Chuck,

I responded to your PM. I also found this link (but haven't tried it).

[June7]

Look into FileCopy method.

[NoellaG]

Hi,

you could use the filesystemobject, example:

Public Function MoveFile(strFile As String, strLoc As String) As Boolean
On Error GoTo Err_MoveFile
  Dim fsoImport As Object
  Dim floImportFile As Object
  
  Set fsoImport = CreateObject("Scripting.FileSystemObject")
  Set floImportFile = fsoImport.GetFile(strFile)
  If strFile <> strLoc Then
    floImportFile.Move strLoc
  End If
  MoveFile = True
Exit_MoveFile:
    Set fsoImport = Nothing
    Set floImportFile = Nothing
    Exit Function
    
Err_MoveFile:
    MoveFile = False
    Debug.Print Err.Number & ": " & Err.Description
    Resume Exit_MoveFile
End Function

The code can be called as follows:


movefile("C:\mydata\myfile.txt","C:\test\myfile.tx t")

greetings
NG