File System - Files copyingmoving with the API

'Description: Moves or Copies a file using API

'Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
'Private Declare Function MoveFile Lib "kernel32" Alias "MoveFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String) As Long

'Place the following code in under a command button or in a menu, etc...

source = "C:\myfile.txt"
target = "C:\Windows\myfile.txt"

'Copy File
A = CopyFile(Trim$(Source), Trim(Target), False)
If A Then
MsgBox "File copied!"
Else
MsgBox "Error. File not moved!"
End If

'Move File
A = MoveFile(Trim$(Source), Trim(Target))
If A Then
MsgBox "File moved!"
Else
MsgBox "Error. File not moved!"
End If