Visual Basic

Dim FSO
Dim oFS
CONST F_ATTR_RONLY = 1
Set FSO = CreateObject("Scripting.FileSystemObject")
Set oFS = FSO.GetFile("d:\test\o2\test.png") 
IF oFS.Attributes AND F_ATTR_RONLY 'check if bit 1 is set - read only
THEN 
'do nothing
ELSE 
FSO.CopyFile "d:\test\o1\test.png", "d:\test\o2\"
END IF

Public Class frmSalesData
    Dim intCars, intTickets, intPopcorn, intCandy As Integer

    Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
        Me.Close()
    End Sub

    Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
        Me.txtNumCars.Clear()
        Me.txtNumTickets.Clear()
        Me.txtNumPopcorn.Clear()
        Me.txtNumCandy.Clear()
        Me.lblTotal.Text = Nothing
        Me.txtNumCars.Focus()
    End Sub

    Private Sub btnCalculate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalculate.Click
        Dim strMessage As String
        Dim dblNumCars, dblNumTickets, dblNumPopcorn, dblNumCandy As Double
        Dim dblTotalSales As Double

        If radRegular.Checked = True Then
            Me.lblTotal.Text = "Tonight was a REGULAR night."
        ElseIf radCar.Checked = True Then
            Me.lblTotal.Text = "Tonight was a CAR night."

        End If

        Double.TryParse(Me.txtNumCars.Text, dblNumCars)
        Double.TryParse(Me.txtNumTickets.Text, dblNumTickets)
        Double.TryParse(Me.txtNumPopcorn.Text, dblNumPopcorn)
        Double.TryParse(Me.txtNumCandy.Text, dblNumCandy)

        dblTotalSales = dblNumTickets + dblNumPopcorn + dblNumCandy

        strMessage = "The total number of cars present was: " & dblNumCars.ToString() & _
                     "The total number of tickets sold was: " & dblNumTickets.ToString() & _
                     "The total popcorn sales were: " & dblNumPopcorn.ToString("N2") & _
                     "The total candy sales were: " & dblNumCandy.ToString("N2")

        Me.lblTotal.Text = strMessage


    End Sub
End Class

Member 10970081 wrote:

how to filter

Bastard Programmer from Hell
If you can't read my code, try converting it here[^]

Member 10728667 wrote:

sideLength = Convert.ToDouble(length)