Save Imported File to Directory

[creyn]

Below is the code I am using to import a text file to a table in Access. However, is there a way to Save the file I just imported to the same Directory?

Option Compare Database

Public Sub Command0_Click()
Dim MyFolder As String
Dim MyFile As String
Dim MyFolder2 As String
Dim DQ As String
Dim MyData As String
Dim myQueryName As String
Dim myExportFileName As String

DoCmd.SetWarnings False
DoCmd.RunSQL "Delete * from Import_Data"
MyFolder2 = "S:\zCorey\TDD File Cleanup\Sample Files\New Version"
MyFile = Dir(MyFolder2 & "\*.txt")
Do While MyFile <> ""
DoCmd.SetWarnings False
DoCmd.RunSQL "Delete * from Import_Data"
DoCmd.TransferText acImportDelim, "Import Specification", "Import_Data", MyFile, True
FileCopy MyFile, "S:\zCorey\TDD File Cleanup\Sample Files\New Version" & [MyFile]
DoCmd.TransferText transferType:=acExportDelim, SpecificationName:="Export Specification", TableName:="Import_Data", _
FileName:="S:\zCorey\TDD File Cleanup\Sample Files\New Version" & [MyFile], hasfieldnames:=True
DoCmd.SetWarnings False
MyFile = Dir
Loop
End Sub