AMCopyFile Example

Option Explicit

Sub Main

Dim intReturn As Integer

Dim varSourceFile As Variant

Dim varDestFile As Variant

 varSourceFile = "C:\*.txt"

 varDestFile = "C:\AnotherDir\*.bak"

 intReturn = Action2.AMCopyFile (varSourceFile, varDestFile)

 If intReturn = 0 Then

  MsgBox "Failure"

  MsgBox( Action2.GetLastError )

 ElseIf intReturn = 1 Then

  MsgBox "Success"

 End If

End Sub