Check Directory if FIle exist

[vbMarkO]

TO Check if file exist in a Folder

If Converted.txt Exist in Dir Then
 
 Open App.Path & "\210\February\Converted.txt" For Input As #1
             Do Until EOF(1)
                 Input #1, a, b, C, D
                 Set itm = lv(intInd).ListItems.Add(, , a)
                     itm.SubItems(1) = b
                     itm.SubItems(2) = C
                     itm.SubItems(3) = D
                Loop
Else
 
cmdLoad.Enabled = False
chkLoad.Enabled = False
Exit Sub
End If

vbMarkO