Visual Basic

Function DeleteandMoveFile(ByVal dest As String, ByVal source As String, ByVal filename As String) As Boolean
Dim filesys As Object
DeleteandMoveFile = TRUE 'just a dummy operation

  Set filesys = CreateObject("Scripting.FileSystemObject")

  'Check if File exists in destinationpath then delete it
  If filesys.FileExists(dest & filename) Then
    If filesys.DeleteFile(dest & filename)then
      'MsgBox "file deleted successfully
    Else
      'MsgBox "couldn't delete file"
      Application.WriteEventLog "macro", "couldn't delete file",5
    End If		
  End If

  ' Check if file exists in source path then move it
  If filesys.FileExists(source & filename) Then 
    If filesys.MoveFile(source & filename, dest)
      'MsgBox "file moved"
    Else		
      Application.WriteEventLog "macro", "file couldn't be moved!",5
    End If
  Else
    Application.WriteEventLog "macro", "file does not exist!" ,5
  End If
  Set filesys = Nothing
End Function

Public Class Form1
    Dim gApp As Acrobat.CAcroApp
<p>
    Private Sub Form_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        gApp = CreateObject("AcroExch.App")
    End Sub <p>


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim pdDoc As Acrobat.CAcroPDDoc
        Dim page As Acrobat.CAcroPDPage
        Dim jso As Object
        Dim path As String
        Dim point(1) As Integer
        Dim popupRect(3) As Integer
        Dim pageRect As Object
        Dim annot As Object
        Dim props As Object
<p>
        OpenFileDialog1.ShowDialog()
        path = OpenFileDialog1.FileName
<p>
        pdDoc = CreateObject("AcroExch.PDDoc")
<p>
        If pdDoc.Open(path) Then
            jso = pdDoc.GetJSObject
            If Not jso Is Nothing Then
                ' Get size for page 0 and setup arrays
                page = pdDoc.AcquirePage(0)
                pageRect = page.GetSize
                point(0) = 0
                point(1) = pageRect.y
                popupRect(0) = 0
                popupRect(1) = pageRect.y - 100
                popupRect(2) = 200
                popupRect(3) = pageRect.y
                ' Create a new text annot
                annot = jso.AddAnnot
                props = annot.getProps
                props.Type = "Text"
                annot.setProps(props)
                ' Fill in a few fields
                props = annot.getProps
                props.page = 0
                props.point = point
                props.popupRect = popupRect
                props.author = "Rob McAfee"
                props.noteIcon = "Comment"
                props.strokeColor = jso.Color.red
                props.Contents = "I added this comment from Visual Basic!"
                annot.setProps(props)
                pdDoc.Close()
                MsgBox("Annotation added to " & path)
            Else
                MsgBox("Failed to open " & path)
            End If
        End If
        pdDoc = Nothing
    End Sub
<p>

End Class</p></p></p></p></p></p>