Visual Basic

 Inherits System.Windows.Forms.Form<br />
    Private Declare Function GetDiskFreeSpaceEx _<br />
    Lib "kernel32" _<br />
    Alias "GetDiskFreeSpaceExA" _<br />
    (ByVal lpDirectoryName As String, _<br />
    ByRef lpFreeBytesAvailableToCaller As Long, _<br />
    ByRef lpTotalNumberOfBytes As Long, _<br />
    ByRef lpTotalNumberOfFreeBytes As Long) As Long<br />
<br />
<br />
<br />
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br />
        TextBox1.Text = GetFreeSpace("C:\")<br />
        TextBox2.Text = GetTotalSpace("C:\")<br />
        GetPercentageFree()<br />
        If TextBox3.Text < 36 Then<br />
            MsgBox("You are running out of space")<br />
        End If<br />
    End Sub<br />
    Public Function GetFreeSpace(ByVal Drive As String) As Long<br />
        'returns free space in MB, formatted to two decimal places<br />
        'e.g., msgbox("Free Space on C: "& GetFreeSpace("C:\") & "MB")<br />
<br />
        Dim lBytesTotal, lFreeBytes, lFreeBytesAvailable As Long<br />
<br />
        Dim iAns As Long<br />
<br />
        iAns = GetDiskFreeSpaceEx(Drive, lFreeBytesAvailable, _<br />
             lBytesTotal, lFreeBytes)<br />
        If ians > 0 Then<br />
<br />
            Return BytesToMegabytes(lFreeBytes)<br />
        Else<br />
            Throw New Exception("Invalid or unreadable drive")<br />
        End If<br />
<br />
<br />
    End Function<br />
<br />
<br />
    Public Function GetTotalSpace(ByVal Drive As String) As String<br />
        'returns total space in MB, formatted to two decimal places<br />
        'e.g., msgbox("Free Space on C: "& GetTotalSpace("C:\") & "MB")<br />
<br />
        Dim lBytesTotal, lFreeBytes, lFreeBytesAvailable As Long<br />
<br />
        Dim iAns As Long<br />
<br />
        iAns = GetDiskFreeSpaceEx(Drive, lFreeBytesAvailable, _<br />
             lBytesTotal, lFreeBytes)<br />
        If iAns > 0 Then<br />
<br />
            Return BytesToMegabytes(lBytesTotal)<br />
        Else<br />
            Throw New Exception("Invalid or unreadable drive")<br />
        End If<br />
    End Function<br />
<br />
    Private Function BytesToMegabytes(ByVal Bytes As Long) _<br />
    As Long<br />
<br />
<br />
        Dim dblAns As Double<br />
        dblAns = (Bytes / 1024) / 1024<br />
        BytesToMegabytes = Format(dblAns, "###,###,##0.00")<br />
<br />
    End Function<br />
    Public Function GetPercentageFree()<br />
        Dim free As Integer<br />
        Dim total As Integer<br />
        Dim percent As Integer<br />
        free = GetFreeSpace("C:\")<br />
        total = GetTotalSpace("C:\")<br />
<br />
        percent = (free / total) * 100<br />
        TextBox3.Text = percent<br />
    End Function

Dim strPath() As String <br />
Dim strSearch As String <br />
strPath = IO.Directory.GetFiles("C:\video")<br />
<br />
For Each strSearch In strPath<br />
If InStr(strSearch, ".avi", CompareMethod.Text) Then<br />
ListBox1.Items.Add(strSearch)<br />
End If<br />
Next

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click<br />
<br />
Dim frm2 As New Form2<br />
frm2.Showdialog() <br />
end sub

Christian Graus wrote:

If you call Show and not ShowDialog, the form should be a member variable.

Dim currentProcess As Process = Process.GetCurrentProcess()<br />
Dim allProcesses() As Process = Process.GetProcessesByName(currentProcess.ProcessName)<br />
<br />
If allProcesses.Length > 1 Then<br />
    Me.Opacity = 0.5<br />
    MessageBox.Show("Program already running. This session will close")<br />
    Application.Exit()<br />
End If

virendra_007 wrote:

Though code is going fine with text files.

virendra_007 wrote:

whole_file = Input$(LOF(fnum), #fnum)

Dim TextLine
Open "MyFile.CSV" For Input As #1
Do While Not EOF(1)
   Line Input #1, TextLine
   ' parse up the line on comma's to get the values
Loop
Close #1