Floppy Drive

[MrGTI]

Yeah, i know. Floppy drives are so 90's. But i still have a question.

Why can't i check if a floppy is in the drive? Take a look at this code:

Public Function fc_VerifyDirectory(ByVal sDirectory As String) As Boolean
        sDirectory = sDirectory.Trim
        If sDirectory = "" Then
            fc_VerifyDirectory = False
        Else
            Try
                If Dir(sDirectory, FileAttribute.Directory) > "" Then fc_VerifyDirectory = True
            Catch
                fc_VerifyDirectory = False
            End Try
        End If
    End Function

It's a basic function to check if a directory exists. Give it a shot. Place a floppy in the drive, and call the function passing in "A:\". You'll get back False. Try it again with "C:\" and it returns True.

Strange?

[Iouri]

You can check if floppy in the drive by calling fictisious file and catching an error

Imports System.IO
Public Class Form1
    Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "
#End Region
    Dim Retries As Short = 0

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Try
            PictureBox1.Image = System.Drawing.Bitmap.FromFile("a:\fileopen.bmp")
        Catch
                MsgBox("Please insert the disk in drive A!")
        End Try

    End Sub
End Class

[Lunatic3]

Your code returns true if the floppy contains any file and False if not. You even dont need to call for 'fictisious file' . Just make this change in your code.

Public Function fc_VerifyDirectory(ByVal sDirectory As String) As Boolean
        sDirectory = sDirectory.Trim
        If sDirectory = "" Then
            fc_VerifyDirectory = False
        Else
            Try
                Dim fd As DirectoryInfo = New DirectoryInfo(sDirectory)
               
                   fc_VerifyDirectory = fd.Exists
                ' If Dir(sDirectory, FileAttribute.Directory) > "" Then fc_VerifyDirectory = True
            Catch
                fc_VerifyDirectory = False
            End Try
        End If
    End Function

[MrGTI]

Once i added the required import ( Imports System.IO ), it worked great! Thanks guys.

PS: I hate floppy drives.

[Lunatic3]

PS: I hate floppy drives.

Why? Poor floppies. You know what good jobs still can be done by a single floppy?

[Pirate]

Originally posted by Lunatic3
Why? Poor floppies. You know what good jobs still can be done by a single floppy?

Floppies are being replaced by Zips and USB Drives by the passing days as CDs by DVDs .

[Lunatic3]

Still you can boot a computer and run an OS with only a floppy and no HD, and take advantage of it.

As CD's could not wipe out Cassetes totally ( I still use LPs ) I dont think DVD would wipe out CD and Zip drivers floppies.