Sub テキストファイルのコピー()
    Dim FSO As New FileSystemObject
    Dim MyPath As String
    Dim MyFolder As String
    Dim MyFile As String, myFile2 As String

    MyFolder = "Sample"
    MyFile = "File1.csv"
    myFile2 = "File2.csv"
    MyPath = CurrentProject.Path & "\" & MyFolder & "\"
    
    If FSO.FileExists(MyPath & MyFile) Then
        FSO.CopyFile MyPath & MyFile, MyPath & myFile2
    End If
    
    Set FSO = Nothing
    
End Sub


 ↓ facebook のフォローで応援してください。お願いします。



Microsoft Office ブログランキングへ