Visual Basic

Public Function GenerateDrillDown(ByVal strFileName As String) As Boolean
  Dim App As Object = Nothing
  Dim pres As Object = Nothing
  Dim slide As Object = Nothing

  Try
    App = CreateObject("PowerPoint.Application")
    App.Visible = -1 '  For debugging. Comment this out or set to 0 to keep the application from being visible.

    pres = App.Presentations.Open("C:\DevProjects\Docs\DrillDown.ppt", 0, -1, -1)
    slide = pres.Slides(1) ' There's only one slide in this ppt i'm using as the template.

    slide.Shapes.Item("Text Box 8").TextFrame.TextRange.Text = DecisionTitle ' These are all string variables
    slide.Shapes.Item("Text Box 13").TextFrame.TextRange.Text = Narrative
    slide.Shapes.Item("Text Box 14").TextFrame.TextRange.Text = Issues
    slide.Shapes.Item("Text Box 19").TextFrame.TextRange.Text = Scope

    If TopicType = 1 Then
     slide.Shapes.Item("Autoshape 9").TextFrame.TextRange.Text = IDNumber.ToString()
     slide.Shapes.Item("Autoshape 9").Visible = -1
     slide.Shapes.Item("Autoshape 56").Visible = 0
    ElseIf TopicType = 2 Then
      slide.Shapes.Item("Autoshape 56").TextFrame.TextRange.Text = "ST" & IDNumber.ToString()
      slide.Shapes.Item("Autoshape 56").Visible = -1
      slide.Shapes.Item("Autoshape 9").Visible = 0
    End If

    pres.SaveAs(strFilename, 1, 0)
  Catch ex As Exception
    Return False
   Finally
     ' Most of this is coming from another article I found online to help combat the problem of open references with office automation.
     GC.Collect()
     GC.WaitForPendingFinalizers()
     GC.Collect() ' Intentionally repeated
     GC.WaitForPendingFinalizers() 
     If Not slide Is Nothing Then
      Marshal.FinalReleaseComObject(slide)
      slide = Nothing
     End If
    
    If Not pres Is Nothing Then
      pres.Close()
      Masrhal.FinalReleaseComObject(pres)
      pres = Nothing
    End If
    
    If Not App Is Nothing Then
      App.Quit()  ' This doesn't do anything, no errors but ap stays open
      Marshal.FInalReleaseComObject(App)
      App = Nothing
    End If
  End Try

  Return True
End Function

Imports System.IO<br />
Imports System.Net<br />
Imports System.Text<br />
Imports System<br />
Imports System.Collections.Generic<br />
Imports System.ComponentModel<br />
Imports System.Data<br />
Imports System.Drawing<br />
<br />
Imports System.Windows.Forms<br />
<br />
Imports System.Threading<br />
Public Class Download<br />
    Private thrDownload As Thread<br />
    ' The stream of data retrieved from the web server<br />
    Private strResponse As Stream<br />
    ' The stream of data that we write to the harddrive<br />
    Private strLocal As Stream<br />
    ' The request to the web server for file information<br />
    Private webRequest As HttpWebRequest<br />
    ' The response from the web server containing information about the file<br />
    Private webResponse As HttpWebResponse<br />
    ' The progress of the download in percentage<br />
    Private Shared PercentProgress As Integer<br />
    ' The delegate which we will call from the thread to update the form<br />
    Private Delegate Sub UpdateProgessCallback(ByVal BytesRead As Int64, ByVal TotalBytes As Int64)<br />
    ' When to pause<br />
    Private goPause As Boolean = False<br />
    Private Sub Download(ByVal startPoint As Object)<br />
        Try<br />
            <br />
            Dim startPointInt As Integer = Convert.ToInt32(startPoint)<br />
            ' Create a request to the file we are downloading<br />
            webRequest = DirectCast(Net.WebRequest.Create("http://dl.google.com/picasa/picasaweb-current-setup.exe"), HttpWebRequest)<br />
            ' Set the starting point of the request<br />
            webRequest.AddRange(startPointInt)<br />
<br />
            ' Set default authentication for retrieving the file<br />
            webRequest.Credentials = CredentialCache.DefaultCredentials<br />
            ' Retrieve the response from the server<br />
            webResponse = DirectCast(webRequest.GetResponse(), HttpWebResponse)<br />
            ' Ask the server for the file size and store it<br />
            Dim fileSize As Int64 = webResponse.ContentLength<br />
<br />
            ' Open the URL for download <br />
            strResponse = webResponse.GetResponseStream()<br />
<br />
            ' Create a new file stream where we will be saving the data (local drive)<br />
            If startPointInt = 0 Then<br />
                strLocal = New FileStream("C:\", FileMode.Create, FileAccess.Write, FileShare.None)<br />
            Else<br />
                strLocal = New FileStream("C:\", FileMode.Append, FileAccess.Write, FileShare.None)<br />
            End If<br />
<br />
            ' It will store the current number of bytes we retrieved from the server<br />
            Dim bytesSize As Integer = 0<br />
            ' A buffer for storing and writing the data retrieved from the server<br />
            Dim downBuffer As Byte() = New Byte(2047) {}<br />
<br />
            ' Loop through the buffer until the buffer is empty<br />
            While (bytesSize = strResponse.Read(downBuffer, 0, downBuffer.Length)) > 0<br />
                ' Write the data from the buffer to the local hard drive<br />
                strLocal.Write(downBuffer, 0, bytesSize)<br />
                ' Invoke the method that updates the form's label and progress bar<br />
                '					Me.Invoke(New UpdateProgessCallback(Me.UpdateProgress), New Object() {strLocal.Length, fileSize + startPointInt})<br />
<br />
                If goPause = True Then<br />
                    Exit While<br />
                End If<br />
            End While<br />
        Finally<br />
            ' When the above code has ended, close the streams<br />
            strResponse.Close()<br />
            strLocal.Close()<br />
        End Try<br />
    End Sub<br />
<br />
   <br />
<br />
End Class<br />

PrivateSub mnuSaveAsItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles mnuSaveAsItem.Click<br />
Dim letter As Char Dim lngCode As Short <br />
Dim i, charsInFile As Long <br />
Dim Code As Short <br />
SaveFileDialog1.Filter = "Text files (*.txt)|*.txt"<br />
SaveFileDialog1.ShowDialog()<br />
If SaveFileDialog1.FileName <> "" Then <br />
lngCode = InputBox("Insert code to code the file.")<br />
If lngCode = "" Then Exit Sub <br />
Code = charsInFile = Txtnote.Text.Length<br />
FileOpen(1, SaveFileDialog1.FileName, OpenMode.Output)<br />
letter = Txtnote.Text.Substring(i, 1)<br />
Print(1, Asc(letter) <br />
CShort(lngCode)For i = 0 To charsInFile - 1Xor Code)Next <br />
FileClose(1)<br />
mnuCloseItem.Enabled = True End If End Sub Private Sub mnuCloseItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuCloseItem.ClickDim a As String <br />
a = InputBox("Did you save?")<br />
If a = ("Yes") Or a = ("yes") Then <br />
Txtnote.Text = ""<br />
ElseIf a = ("No") Or a = ("no") Then <br />
MsgBox("Don't forget to save your file first")<br />
Else <br />
MsgBox("Please answer with ""Yes"" or ""No""")<br />
End If <br />
End Sub <br />
Private Sub mnuOpenItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuOpenItem.ClickDim CelTekst, LinijaNaTekst As String Dim lngCode As Short <br />
OpenFileDialog1.Filter = "Text files (*.TXT)|*.TXT"<br />
OpenFileDialog1.ShowDialog()<br />
Dim Code As Short If OpenFileDialog1.FileName <> "" Then Try <br />
FileOpen(1, OpenFileDialog1.FileName, OpenMode.Input)<br />
LinijaNaTekst = LineInput(1)<br />
CelTekst = CelTekst & LinijaNaTekst & vbCrLf<br />
Do Until EOF(1)Loop <br />
Txtnote.Text = CelTekst<br />
Txtnote.Select(1, 0)<br />
Txtnote.Enabled = True <br />
mnuCloseItem.Enabled = True Catch <br />
MsgBox("Error with opening the file.")<br />
Finally <br />
FileClose(1)<br />
End Try <br />
End If <br />
End Sub