XLA routines: EE_CopyFile
EE_CopyFile copies a file from one place to the next
Sub EE_CopyFile(strFullFilePath As String, strTarget As String) 'http://excelexperts.com/xla-routines-eeCopyFile for updates on this sub routine If EE_FileNameFromFilePath(strFullFilePath) = EE_FileNameFromFilePath(strTarget) Then 'FileCopy strFullFilePath, strTarget Call CreateObject("Scripting.FileSystemObject").CopyFile(strFullFilePath, strTarget) Else 'FileCopy strFullFilePath, strTarget & Application.PathSeparator & EE_FileNameFromFilePath(strFullFilePath) Call CreateObject("Scripting.FileSystemObject").CopyFile(strFullFilePath, strTarget & Application.PathSeparator & EE_FileNameFromFilePath(strFullFilePath)) End If End Sub
»
- Nick's blog
- Login or register to post comments
- 2793 reads
Recent comments
5 years 6 weeks ago
5 years 44 weeks ago
6 years 4 weeks ago
6 years 7 weeks ago
6 years 8 weeks ago
6 years 13 weeks ago
6 years 21 weeks ago
6 years 22 weeks ago
6 years 22 weeks ago
6 years 22 weeks ago