←←←/Access/コピー

Public Function コピー()
    Dim sourceFile , DestinationFile
    sourceFile = "D:\DVDテーブル.txt"
    DestinationFile = "D:\DVDテーブル_back.csv"
    FileCopy SourceFile ,  DextinationFile


    DoCmd.TransferText acLinkDelim , "DVDテーブル" , "D:\DVDテーブル_back.csv" , True
End Function