View: - 394
'REFERENCE USED : Microsoft Scripting Runtime Public FSO As Scripting.FileSystemObject Public SourcePath As String Public DestPath As String Public Sub MoveFile() SourcePath = "C:\mytext.txt" 'The File you need to Move. DestPath = "D:\MyFolder\" 'The target folder. Set FSO = New Scripting.FileSystemObject FSO.MoveFile SourcePath, DestPath Set FSO = Nothing End Sub
