View: - 153
'REFERENCE USED : Microsoft Scripting Runtime Public FSO As Scripting.FileSystemObject Public SourcePath As String Public DestPath As String Public Sub CopyFile() SourcePath = "C:\mytext.txt" 'The File you need to copy. DestPath = "D:\MyFolder\" 'The target folder. Set FSO = New Scripting.FileSystemObject FSO.CopyFile SourcePath, DestPath, False 'True for overwrite exisisting file. Set FSO = Nothing End Sub
