Removed unused code

Author: Digitoxin1

DiskImageTool/Modules/FloppyDiskIO.vb

@@ -55,49 +55,6 @@ Module FloppyDiskIO
         End If
     End Function
 
-    Public Function FloppyDiskSaveFile(Buffer() As Byte, DiskFormat As FloppyDiskFormat, LoadedFileNames As Dictionary(Of String, ImageData)) As String
-        Dim FileExt = ".ima"
-        Dim FileFilter = GetSaveDialogFilters(DiskFormat, FloppyImageType.BasicSectorImage, FileExt)
-
-        Using Dialog As New SaveFileDialog With {
-                .Filter = FileFilter.Filter,
-                .FilterIndex = FileFilter.FilterIndex,
-                .DefaultExt = FileExt
-            }
-
-            AddHandler Dialog.FileOk,
-                Sub(sender As Object, e As CancelEventArgs)
-                    If LoadedFileNames.ContainsKey(Dialog.FileName) Then
-                        Dim Msg = String.Format(My.Resources.Dialog_FileCurrentlyOpen, IO.Path.GetFileName(Dialog.FileName), Environment.NewLine, Application.ProductName)
-                        MsgBox(Msg, MsgBoxStyle.Exclamation, WithoutHotkey(My.Resources.Menu_SaveAs))
-                        e.Cancel = True
-                    End If
-                End Sub
-
-            If Dialog.ShowDialog = DialogResult.OK Then
-                Dim Success As Boolean
-                Try
-                    Dim FloppyImage As New BasicSectorImage(Buffer)
-                    Dim Disk As New DiskImage.Disk(FloppyImage, 0)
-                    Dim Response = SaveDiskImageToFile(Disk, Dialog.FileName, False)
-                    Success = (Response = SaveImageResponse.Success)
-                Catch ex As Exception
-                    DebugException(ex)
-                    Success = False
-                End Try
-
-                If Success Then
-                    Return Dialog.FileName
-                Else
-                    MsgBox(My.Resources.Dialog_SaveFileError2, MsgBoxStyle.Exclamation)
-                    Return ""
-                End If
-            Else
-                Return ""
-            End If
-        End Using
-    End Function
-
     Public Sub FloppyDiskWrite(Owner As IWin32Window, Disk As Disk, Drive As FloppyDriveEnum)
         If Disk Is Nothing Then
             Exit Sub