どうも皆さんこんばんは。
さっそくですが入門講座の卒業制作に関するヘルプです。
環境：ＶＩＳＴＡ　２００５Ｅｘｐ

仕様では画像やテキストファイルを保存し読み込みのできるようになっています。
具体的には３－４－４まで行きました。そこでちょっと問題にさしかかっています。

ドロップで画像ファイルやテキストファイルを右側に表示させることはできます。
説明にもあったとおりワードなどの場合はワードソフトが開かれました。

ところが保存しても空のデータが保存されたことになってしまいます。
読み込みにしてもブラウザは空白のままです。

デスクトップに画像あるいはテキストファイルを保存しようとしたのですが、
それを開こうとすると画像なら「データがありません」と表示されますし、
テキストファイルなら白紙のメモ帳が開かれるだけです。

保存になっていないということなのでしょう。
そのためそれらファイルを開いてもブラウザには表示されません。

３－５以降にはまだ進んでいないのですが、とりあえずここまでのコードは以下のとおりです。

>>Public Class Form1
    Dim FullPaths As New ArrayList


    Private Sub lstFileName_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles lstFileName.DragDrop
        Dim FileName As String

        FileName = CType(e.Data.GetData(DataFormats.FileDrop), String())(0)

        FullPaths.Add(FileName)
        lstFileName.Items.Add(IO.Path.GetFileName(FileName))


    End Sub

    Private Sub lstFileName_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles lstFileName.DragEnter

        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
            e.Effect = DragDropEffects.Copy
        Else
            e.Effect = DragDropEffects.None

        End If





    End Sub

    Private Sub lstFileName_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles lstFileName.SelectedIndexChanged
        Dim FullPath As String

        FullPath = FullPaths(lstFileName.SelectedIndex)

        WebBrowser1.Navigate(FullPath)

        Me.Text = Application.ProductName & "-" & FullPath


    End Sub

    Private Sub btnSave_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSave.Click

        Dim Dialog As New SaveFileDialog

        If Dialog.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then
            Dim Writer As New IO.StreamWriter(Dialog.FileName)

            For Index As Integer = 0 To FullPaths.Count - 1
            Next
            Writer.Close()


        End If


    End Sub

    Private Sub btnLoad_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnLoad.Click
        Dim Dialog As New OpenFileDialog

        If Dialog.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then

            Dim Value As String
            Dim Reader As New IO.StreamReader(Dialog.FileName)

            FullPaths.Clear()
            lstFileName.Items.Clear()

            Do
                Value = Reader.ReadLine
                If Value Is Nothing Then

                    Exit Do

                Else
                    FullPaths.Add(Value)
                    lstFileName.Items.Add(IO.Path.GetFileName(Value))


                End If
            Loop

            Reader.Close()

        End If
    End Sub
End Class




どうかアドバイスよろしくお願いします。