Code:
    If Not Dir("c:\dimava.dat", vbNormal Or vbReadOnly Or vbHidden Or _
        vbSystem Or vbArchive) = "" Then
        Form1.Visible = True
    End If